david
2824855ea7
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 - Recompilación en Delphi10 de todos los paquetes de DA para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@9 b6239004-a887-0f4b-9937-50029ccdca16
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.
|
|
|