35 lines
800 B
ObjectPascal
35 lines
800 B
ObjectPascal
|
unit AsyncServerMain;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||
|
|
StdCtrls, uROClient, uROBINMessage, uROClientIntf, uROServer, uROBPDXTCPServer,
|
||
|
|
uROBPDXHTTPServer, uROPoweredByRemObjectsButton,
|
||
|
|
uROIndyUDPServer;
|
||
|
|
|
||
|
|
type
|
||
|
|
TAsyncServerMainForm = class(TForm)
|
||
|
|
ROMessage: TROBINMessage;
|
||
|
|
ROBPDXHTTPServer1: TROBPDXHTTPServer;
|
||
|
|
RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
|
||
|
|
ROIndyUDPServer1: TROIndyUDPServer;
|
||
|
|
procedure FormCreate(Sender: TObject);
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
AsyncServerMainForm: TAsyncServerMainForm;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.DFM}
|
||
|
|
|
||
|
|
procedure TAsyncServerMainForm.FormCreate(Sender: TObject);
|
||
|
|
begin
|
||
|
|
ROBPDXHTTPServer1.Active := True;
|
||
|
|
ROIndyUDPServer1.Active := True;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|
||
|
|
|