From 39f4363e56cacef46bdb258dbbaa9dd0059c24fe Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 8 Jan 2008 17:26:19 +0000
Subject: [PATCH] git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@317
 8e941d3f-bd1b-0410-a28a-d453659cc2b4

---
 .../samples/user_client_console/user_client_console.pas      | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/wst/trunk/samples/user_client_console/user_client_console.pas b/wst/trunk/samples/user_client_console/user_client_console.pas
index 22b1c2967..b4dbe6394 100644
--- a/wst/trunk/samples/user_client_console/user_client_console.pas
+++ b/wst/trunk/samples/user_client_console/user_client_console.pas
@@ -7,7 +7,7 @@ uses
   user_service_intf_proxy,
   same_process_protocol, synapse_tcp_protocol, synapse_http_protocol, library_protocol,
   soap_formatter, binary_formatter, json_formatter,
-  user_service_intf, xmlrpc_formatter;
+  user_service_intf, xmlrpc_formatter, service_intf;
 
 var
   UserServiceInst : UserService;
@@ -229,6 +229,9 @@ begin
   CoInitialize(nil);
   try
 {$ENDIF}
+{$IF DECLARED(SetHeapTraceOutput)}
+    SetHeapTraceOutput('heaptrace.txt');
+{$IFEND}
     SYNAPSE_RegisterTCP_Transport();
     SYNAPSE_RegisterHTTP_Transport();
     LIB_Register_Transport();