pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@317 8e941d3f-bd1b-0410-a28a-d453659cc2b4

Browse Source
This commit is contained in:
inoussa
2008-01-08 17:26:19 +00:00
parent 6a27d090ba
commit 39f4363e56
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
wst/trunk/samples/user_client_console/user_client_console.pas
View File

@ -7,7 +7,7 @@ uses
user_service_intf_proxy, user_service_intf_proxy,
same_process_protocol, synapse_tcp_protocol, synapse_http_protocol, library_protocol, same_process_protocol, synapse_tcp_protocol, synapse_http_protocol, library_protocol,
soap_formatter, binary_formatter, json_formatter, soap_formatter, binary_formatter, json_formatter,
user_service_intf, xmlrpc_formatter; user_service_intf, xmlrpc_formatter, service_intf;
var var
UserServiceInst : UserService; UserServiceInst : UserService;
@ -229,6 +229,9 @@ begin
CoInitialize(nil); CoInitialize(nil);
try try
{$ENDIF} {$ENDIF}
{$IF DECLARED(SetHeapTraceOutput)}
SetHeapTraceOutput('heaptrace.txt');
{$IFEND}
SYNAPSE_RegisterTCP_Transport(); SYNAPSE_RegisterTCP_Transport();
SYNAPSE_RegisterHTTP_Transport(); SYNAPSE_RegisterHTTP_Transport();
LIB_Register_Transport(); LIB_Register_Transport();