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

Soap header sample : client and server. See readme.txt for more informations.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@536 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2008-08-27 17:50:39 +00:00
parent 82d0c2a1c1
commit bfbb77cd0b
14 changed files with 1178 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
wst/trunk/samples/soap_headers/server/srv_calc.pas Normal file
View File

@ -0,0 +1,36 @@
{$UNDEF LOG_TO_FILE}
program srv_calc;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}cthreads,{$ENDIF}
Classes, SysUtils,
server_listener, indy_http_server,
server_service_intf, server_service_soap, metadata_service,
calcservice, calcservice_binder, calcservice_imp
{$IFDEF LOG_TO_FILE}
,file_logger_extension
{$ENDIF LOG_TO_FILE}
;
var
AppObject : TwstListener;
begin
Server_service_RegisterSoapFormat();
RegisterCalcServiceImplementationFactory();
Server_service_RegisterCalcServiceService();
{$IFDEF LOG_TO_FILE}
LogFileCompleteName := Format('.%slog.txt',[PathDelim]);
GetServiceImplementationRegistry().FindFactory('ICalcService').RegisterExtension(['TFileLoggerServiceExtension']);
{$ENDIF LOG_TO_FILE}
AppObject := TwstIndyHttpListener.Create('127.0.0.1',8000);
try
WriteLn('"Web Service Toolkit" HTTP Server listening at:');
WriteLn('');
WriteLn('http://127.0.0.1:8000/');
WriteLn('');
WriteLn('Press enter to quit.');
AppObject.Start();
ReadLn();
finally
FreeAndNil(AppObject);
end;
end.