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

Updated to use FPC's servers (TCP and HTTP) implementation

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1780 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2011-08-06 17:01:02 +00:00
parent 86a3f15843
commit 2466c0ab1a
3 changed files with 23 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
wst/trunk/samples/tcp_server/tcp_server.pas
View File

@ -28,8 +28,9 @@ uses
base_binary_formatter, server_binary_formatter,
metadata_service, metadata_service_imp, metadata_service_binder,
server_listener ,
fpc_tcp_server,
//synapse_tcp_server,
indy_tcp_server,
//indy_tcp_server,
user_service_intf, user_service_intf_binder, user_service_intf_imp , imp_helper,
server_service_xmlrpc;
@ -53,7 +54,8 @@ begin
WriteLn(Format('WST sample TCP Server listning on "%d"',[sSERVER_PORT]));
WriteLn('Hit <enter> to stop.');
//listener := TwstSynapseTcpListener.Create();
listener := TwstIndyTcpListener.Create();
//listener := TwstIndyTcpListener.Create();
listener := TwstFPCTcpListener.Create();
listener.Start();
ReadLn;
end.