david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
22 lines
622 B
ObjectPascal
22 lines
622 B
ObjectPascal
program HTTPChatServer;
|
|
|
|
{#ROGEN:HTTPChatLibrary.rodl} // RemObjects: Careful, do not remove!
|
|
|
|
uses
|
|
uROComInit,
|
|
Forms,
|
|
HTTPChatServerMain in 'HTTPChatServerMain.pas' {HTTPChatServerMainForm},
|
|
HTTPChatLibrary_Intf in 'HTTPChatLibrary_Intf.pas',
|
|
HTTPChatLibrary_Invk in 'HTTPChatLibrary_Invk.pas',
|
|
HTTPChatService_Impl in 'HTTPChatService_Impl.pas' {HTTPChatService: TDARemoteService};
|
|
|
|
{$R *.res}
|
|
{$R RODLFile.res}
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.Title := 'HTTP Chat Server';
|
|
Application.CreateForm(THTTPChatServerMainForm, HTTPChatServerMainForm);
|
|
Application.Run;
|
|
end.
|