lazarus-ccr/wst/trunk/samples/tcp_server/tcp_server.pas

{
    This file is part of the Web Service Toolkit
    Copyright (c) 2006 by Inoussa OUEDRAOGO

    This file is provide under modified LGPL licence
    ( the files COPYING.modifiedLGPL and COPYING.LGPL).


    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
}
program tcp_server;

{$INCLUDE wst.inc}

uses
{$IFDEF FPC}
  {$IFDEF UNIX}
    {$DEFINE UseCThreads}
  {$ENDIF}
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
{$ENDIF}
  Classes, SysUtils,
  base_service_intf, server_service_soap, server_service_json,
  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,

  user_service_intf, user_service_intf_binder, user_service_intf_imp , imp_helper,
  server_service_xmlrpc;


var
  listener : TwstListener;
begin
  Server_service_RegisterBinaryFormat();
  Server_service_RegisterSoapFormat();
  Server_service_RegisterXmlRpcFormat();
  Server_service_RegisterJsonFormat();
  
  RegisterWSTMetadataServiceImplementationFactory();
  //Server_service_RegisterWSTMetadataServiceService();
  RegisterWSTMetadataServiceImplementationFactory();
  
  RegisterUserServiceImplementationFactory();
  Server_service_RegisterUserServiceService();
  
  WriteLn(Format('WST sample TCP Server listning on "%d"',[sSERVER_PORT]));
  WriteLn('Hit <enter> to stop.');
  //listener := TwstSynapseTcpListener.Create();
  //listener := TwstIndyTcpListener.Create();
  listener := TwstFPCTcpListener.Create();
  listener.Start();
  ReadLn;
end.