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

fpc compatibility fix

Browse Source 
doc update

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@236 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2007-08-12 15:18:57 +00:00
parent 84af5e672b
commit ab89744bda
27 changed files with 425 additions and 519 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
wst/trunk/samples/delphi/tcp_server/tcp_server.dpr
View File

@ -12,22 +12,22 @@ uses
metadata_service,
metadata_service_imp,
metadata_service_binder,
synapse_tcp_server,
//synapse_tcp_server,
indy_tcp_server,
user_service_intf,
user_service_intf_binder,
user_service_intf_imp,
imp_helper,
server_service_xmlrpc;
server_service_xmlrpc,
server_listener;
{$INCLUDE wst.inc}
var
listnerThread : TServerListnerThread;
listener : TwstListener;
begin
CoInitialize(nil);
try
SetLogger(TConsoleLogger.Create());
Server_service_RegisterBinaryFormat();
Server_service_RegisterSoapFormat();
Server_service_RegisterXmlRpcFormat();
@ -39,9 +39,11 @@ begin
RegisterUserServiceImplementationFactory();
Server_service_RegisterUserServiceService();
Logger().Log('WST sample TCP Server listning on "%s"',[sSERVER_PORT]);
Logger().Log('Hit <enter> to stop.');
listnerThread := TServerListnerThread.Create();
WriteLn(Format('WST sample TCP Server listning on "%d"',[sSERVER_PORT]));
WriteLn('Hit <enter> to stop.');
//listener := TwstSynapseTcpListener.Create();
listener := TwstIndyTcpListener.Create();
listener.Start();
ReadLn;
finally
CoUninitialize();