program WebServ1;

{$APPTYPE CONSOLE}

uses
 WebBroker,
 CGIApp,
 Unit1 in 'Unit1.pas' {WM: TWebModule},
 S1Intf in 'S1Intf.pas',
 S1Impl in 'S1Impl.pas';

{$R *.res}

begin
 Application.Initialize;
 Application.CreateForm(TWM, WM); // разьве этого недостаточно?
 Application.Run;
end.

unit S1Impl;

interface

uses InvokeRegistry, Types, XSBuiltIns, S1Intf, Unit1, Classes, SysUtils, FIBDatabase, pFIBDatabase, DB, FIBDataSet, pFIBDataSet, Unit2;

type

 { TS1 }
 TS1 = class(TInvokableClass, IS1)

 public
   LogLst: TStringList;
 function  GetTT(d:integer): TArrString; stdcall;
 function  GiveX2(d:integer): integer; stdcall;
 function  GetDataFromBase(s:AnsiString): AnsiString; stdcall;
 procedure Log(str:AnsiString); stdcall;
 end;

implementation

function Ts1.GetTT(d:integer): TArrString; stdcall;
var A1: TArrString;
begin
SetLength(A1,2); A1[0] := 'val1'; A1[1] :='val2';
end;

function Ts1.GiveX2(d:integer): integer; stdcall;
begin
   Log('вызываю GiveX2');
   Result:=d*2;
end;

function Ts1.GetDataFromBase(s:AnsiString): AnsiString; stdcall;
begin
  Log('Начало функции');
try
     WM.FbDatabase.Connected:=true; // тут получаю Access Violation
     wM.FbFirms.Active:=true;
    Result:=WM.FbFirmsFIRMA.AsString;
     WM.FbDatabase.Connected:=false;
except
     on E: Exception do Log('Произошла ошибка '+E.Message);
end;
  Log('Конец функции');
end;

procedure Ts1.Log(str:AnsiString); stdcall;
begin
   LogLst:=TStringList.Create;
   if (FileExists('WLog.txt')) then LogLst.LoadFromFile('WLog.txt');
   LogLst.Add(str);
   LogLst.SaveToFile('WLog.txt');
end;

initialization
{ Invokable classes must be registered }
  InvRegistry.RegisterInvokableClass(TS1);
end.

unit S1Intf;

interface

uses InvokeRegistry, Types, XSBuiltIns, Unit1;

type

 { Invokable interfaces must derive from IInvokable }
 TArrString = array of string;
 IS1 = interface(IInvokable)
 ['{181AF89B-CDAC-43FE-AF7F-83660617C558}']

 function GetTT(d:integer): TArrString; stdcall;
 function GiveX2(d:integer): integer; stdcall;
 function GetDataFromBase(s:AnsiString): AnsiString; stdcall;
   { Methods of Invokable interface must not use the default }
   { calling convention; stdcall is recommended }
 end;

implementation

initialization
 { Invokable interfaces must be registered }
 InvRegistry.RegisterInterface(TypeInfo(IS1));

end.

unit Unit1;

interface

uses
 SysUtils, Classes, HTTPApp, InvokeRegistry, WSDLIntf, TypInfo,
 WebServExp, WSDLBind, XMLSchema, WSDLPub, SOAPPasInv, SOAPHTTPPasInv,
 SOAPHTTPDisp, WebBrokerSOAP, FIBDatabase, pFIBDatabase, DB, FIBDataSet,
 pFIBDataSet;

type
 TWM = class(TWebModule)
   HTTPSoapDispatcher1: THTTPSoapDispatcher;
   HTTPSoapPascalInvoker1: THTTPSoapPascalInvoker;
   WSDLHTMLPublish1: TWSDLHTMLPublish;
   FbDatabase: TpFIBDatabase;
   FbTransRead: TpFIBTransaction;
   FbTransWrite: TpFIBTransaction;
   FbFirms: TpFIBDataSet;
   FbFirmsFIRMA: TFIBStringField;
   FbFirmsFIRMKOD: TFIBSmallIntField;
   FbFirmsFIRMNAME: TFIBStringField;
   FbFirmsFIRMPASS: TFIBStringField;
   procedure WebModule1DefaultHandlerAction(Sender: TObject;
     Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
   procedure WebModuleCreate(Sender: TObject);
   procedure WebModuleDestroy(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 WM: TWM;

implementation

{$R *.dfm}

procedure TWM.WebModule1DefaultHandlerAction(Sender: TObject;
 Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
 WSDLHTMLPublish1.ServiceInfo(Sender, Request, Response, Handled);
end;

procedure TWM.WebModuleCreate(Sender: TObject);
begin
FbDatabase.Connected:=true;
  FbFirms.Active:=true;
end;

procedure TWM.WebModuleDestroy(Sender: TObject);
begin
       if (FbDatabase.Connected) then
       begin
               if (FbTransRead.InTransaction) then FbTransRead.Rollback();
               if (FbTransWrite.InTransaction) then FbTransWrite.Rollback();
               FbDatabase.CloseDataSets();
               FbDatabase.Close();
       end;
end;
end.

function Ts1.GetDataFromBase2(s:AnsiString): AnsiString; stdcall;
var FbDatabase: TpFIBDatabase;
   FbTransRead: TpFIBTransaction;
   FbTransWrite: TpFIBTransaction;
   FbFirms: TpFIBDataSet;
   FbSql: TpFibQuery;
begin
  Log('Начало функции');
FbDatabase:=TpFibDatabase.Create(nil);
try
  with FbDatabase.DBParams do
  begin
   Add('user_name='+'SYSDBA');
   Add('password='+'masterke');
   Add('lc_ctype='+'WIN1251');
  end;
  FbDatabase.DatabaseName:='C:\Ruslan\...\Base\avtobase.fdb';
  try
   FbDatabase.Connected := True;
   FbTransRead:=TpFibTransaction.Create(nil);
   try
    FbTransRead.DefaultDatabase:=FbDatabase;
    FbSql:=TpFibQuery.Create(nil);
   .................................
//итд?