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

- Type Library Editor : array support

Browse Source 
- better Delphi support
- server listeners refactored to ease service creation

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@214 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2007-07-14 23:17:03 +00:00
parent 5ce9841611
commit 7032cef6b7
39 changed files with 1136 additions and 615 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,19 +27,17 @@ uses
base_service_intf, server_service_soap,
base_binary_formatter, server_binary_formatter,
metadata_service, metadata_service_imp, metadata_service_binder,
synapse_tcp_server,
server_listener ,synapse_tcp_server,
user_service_intf, user_service_intf_binder, user_service_intf_imp , imp_helper,
server_service_xmlrpc;
var
listnerThread : TServerListnerThread;
listener : TwstListener;
begin
SetLogger(TConsoleLogger.Create());
Server_service_RegisterBinaryFormat();
//Server_service_RegisterSoapFormat();
Server_service_RegisterSoapFormat();
Server_service_RegisterXmlRpcFormat();
RegisterWSTMetadataServiceImplementationFactory();
@ -49,9 +47,10 @@ 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.Start();
ReadLn;
end.