You've already forked lazarus-ccr
37 lines
793 B
ObjectPascal
37 lines
793 B
ObjectPascal
|
library lib_server;
|
||
|
|
|
||
|
|
uses
|
||
|
|
SysUtils, Classes,
|
||
|
|
base_service_intf,
|
||
|
|
server_service_intf,
|
||
|
|
server_service_soap,
|
||
|
|
server_binary_formatter,
|
||
|
|
server_service_xmlrpc,
|
||
|
|
metadata_repository,
|
||
|
|
metadata_wsdl,
|
||
|
|
metadata_service,
|
||
|
|
metadata_service_binder,
|
||
|
|
metadata_service_imp,
|
||
|
|
library_base_intf,
|
||
|
|
library_server_intf,
|
||
|
|
user_service_intf_binder,
|
||
|
|
user_service_intf_imp;
|
||
|
|
|
||
|
|
{$R *.res}
|
||
|
|
|
||
|
|
exports
|
||
|
|
wstHandleRequest name WST_LIB_HANDLER;
|
||
|
|
|
||
|
|
begin
|
||
|
|
RegisterStdTypes();
|
||
|
|
Server_service_RegisterBinaryFormat();
|
||
|
|
Server_service_RegisterSoapFormat();
|
||
|
|
Server_service_RegisterXmlRpcFormat();
|
||
|
|
|
||
|
|
RegisterUserServiceImplementationFactory();
|
||
|
|
Server_service_RegisterUserServiceService();
|
||
|
|
|
||
|
|
RegisterWSTMetadataServiceImplementationFactory();
|
||
|
|
Server_service_RegisterWSTMetadataServiceService();
|
||
|
|
end.
|