X
xang2001
Unregistered / Unconfirmed
GUEST, unregistred user!
program Project7;
{$APPTYPE CONSOLE}
uses
WebBroker,
CGIApp,
Unit13 in 'Unit13.pas' {WebModule1: TWebModule},
HitchHiker in 'HitchHiker.pas';
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TWebModule1, WebModule1);
Application.Run;
end.
////////////////////////////////////////////////
unit Unit13;
interface
uses
SysUtils, Classes, HTTPApp, WSDLPub, SOAPPasInv, SOAPHTTPPasInv,
SoapHTTPDisp, WebBrokerSOAP;
type
TWebModule1 = class(TWebModule)
HTTPSoapDispatcher1: THTTPSoapDispatcher;
HTTPSoapPascalInvoker1: THTTPSoapPascalInvoker;
WSDLHTMLPublish1: TWSDLHTMLPublish;
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
end.
///////////////////////////////////////////////////////
unit HitchHiker;
interface
uses
InvokeRegistry;
type
IHitchHiker = interface(IInvokable)
['{06723E05-662D-11D5-81CE-00104BF89DAD}']
function TheAnswer: Integer;
stdcall;
function TheQuestion: String;
stdcall;
end;
THitchHiker = class(TInvokableClass, IHitchHiker)
public
function TheAnswer: Integer;
stdcall;
function TheQuestion: String;
stdcall;
end;
implementation
{ THitchHiker }
function THitchHiker.TheAnswer: Integer;
begin
Result := 42
end;
function THitchHiker.TheQuestion: String;
begin
Result := 'Whatdo
you get when you multiply six by nine?'
end;
initialization
InvRegistry.RegisterInterface(TypeInfo(IHitchHiker));
InvRegistry.RegisterInvokableClass(THitchHiker);
end.
//////////////////////////////////////////////////////////////
{$APPTYPE CONSOLE}
uses
WebBroker,
CGIApp,
Unit13 in 'Unit13.pas' {WebModule1: TWebModule},
HitchHiker in 'HitchHiker.pas';
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TWebModule1, WebModule1);
Application.Run;
end.
////////////////////////////////////////////////
unit Unit13;
interface
uses
SysUtils, Classes, HTTPApp, WSDLPub, SOAPPasInv, SOAPHTTPPasInv,
SoapHTTPDisp, WebBrokerSOAP;
type
TWebModule1 = class(TWebModule)
HTTPSoapDispatcher1: THTTPSoapDispatcher;
HTTPSoapPascalInvoker1: THTTPSoapPascalInvoker;
WSDLHTMLPublish1: TWSDLHTMLPublish;
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
end.
///////////////////////////////////////////////////////
unit HitchHiker;
interface
uses
InvokeRegistry;
type
IHitchHiker = interface(IInvokable)
['{06723E05-662D-11D5-81CE-00104BF89DAD}']
function TheAnswer: Integer;
stdcall;
function TheQuestion: String;
stdcall;
end;
THitchHiker = class(TInvokableClass, IHitchHiker)
public
function TheAnswer: Integer;
stdcall;
function TheQuestion: String;
stdcall;
end;
implementation
{ THitchHiker }
function THitchHiker.TheAnswer: Integer;
begin
Result := 42
end;
function THitchHiker.TheQuestion: String;
begin
Result := 'Whatdo
you get when you multiply six by nine?'
end;
initialization
InvRegistry.RegisterInterface(TypeInfo(IHitchHiker));
InvRegistry.RegisterInvokableClass(THitchHiker);
end.
//////////////////////////////////////////////////////////////