43 lines
882 B
ObjectPascal
43 lines
882 B
ObjectPascal
unit ProxyServer_MainServer_Main;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, uROClient, uROBINMessage, uROClientIntf, uROServer, uROIndyTCPServer;
|
|
|
|
type
|
|
TProxyServer_MainServer_MainForm = class(TForm)
|
|
ROMessage: TROBINMessage;
|
|
ROServer: TROIndyTCPServer;
|
|
Memo: TMemo;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure ROServerReadFromStream(aStream: TStream);
|
|
private
|
|
|
|
protected
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
ProxyServer_MainServer_MainForm: TProxyServer_MainServer_MainForm;
|
|
|
|
implementation
|
|
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TProxyServer_MainServer_MainForm.FormCreate(Sender: TObject);
|
|
begin
|
|
ROServer.Active := TRUE;
|
|
end;
|
|
|
|
procedure TProxyServer_MainServer_MainForm.ROServerReadFromStream(aStream: TStream);
|
|
begin
|
|
Memo.Lines.Add('Request arrived...')
|
|
end;
|
|
|
|
end.
|