29 lines
542 B
ObjectPascal
29 lines
542 B
ObjectPascal
unit MegaDemoISAPIMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, HTTPApp, uROClient, uROClientIntf, uROBINMessage,
|
|
uROSOAPMessage, uROServer, uROWebBrokerServer, uROPostMessage;
|
|
|
|
type
|
|
TMegaDemoISAPIMainForm = class(TWebModule)
|
|
BINMessage: TROBINMessage;
|
|
SOAPMessage: TROSOAPMessage;
|
|
WebBrokerServer: TROWebBrokerServer;
|
|
PostMessage: TROPostMessage;
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
MegaDemoISAPIMainForm: TMegaDemoISAPIMainForm;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
end.
|