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

Add JSON in the http server sample

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@780 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-04-20 13:40:36 +00:00
parent 0ef4baae5a
commit a0c252c656
3 changed files with 7 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/samples/http_server/http_server.lpi
View File

@@ -2,16 +2,16 @@
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="6"/>
<Version Value="7"/>
<General>
<Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<IconPath Value=".\"/>
<TargetFileExt Value=".exe"/>
</General>
<VersionInfo>

3
wst/trunk/samples/http_server/http_server.pas
View File

@@ -8,7 +8,7 @@ uses
{$ENDIF}{$ENDIF}
Classes, SysUtils,
indy_http_server, metadata_service, logger_extension, server_listener,
server_service_soap, server_binary_formatter, server_service_xmlrpc, config_objects,
server_service_soap, server_binary_formatter, server_service_xmlrpc, server_service_json, config_objects,
user_service_intf, user_service_intf_binder, user_service_intf_imp, server_service_intf;
@@ -18,6 +18,7 @@ begin
Server_service_RegisterBinaryFormat();
Server_service_RegisterSoapFormat();
Server_service_RegisterXmlRpcFormat();
Server_service_RegisterJsonFormat();
RegisterUserServiceImplementationFactory();
Server_service_RegisterUserServiceService();