Einzelnen Beitrag anzeigen

Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.350 Beiträge
 
Delphi 11 Alexandria
 
#24

AW: Firebird über NTService (Dienst) zugreifen funkt nicht

  Alt 7. Nov 2013, 11:55
Hi,

Port gibt es bei IBO nicht. Angabe Server ist so korrekt.
Ich würde dennoch versuchen, notebook durch die IP-Adresse zu ersetzen.

Dann würde ich noch sichergehen, dass die richtige fbclient.dll verwendet wird.

Bei neueren Versionen mit der Fuktion IB_GetClientLibNameFunc:

In die DPR
IB_Session (vor allen nicht zu Delphi gehörigen Units) unter uses und dann:

Delphi-Quellcode:
...
  function GetFBClientLibName: string;
  begin
    Result := ExtractFilePath(Application.ExeName) + 'fbclient.dll';
  end;

begin
  IB_GetClientLibNameFunc := GetFBClientLibName;
  if not Application.DelayInitialize or Application.Installing then
    Application.Initialize;
  Application.CreateForm(TService1, Service1);
  Application.Run;
end.
Frank

[EDIT]
Bei den Samples ist bei IBO eine NTServiceApp dabei.
Da wird das Service App Framework (IBS_BASE) verwendet.
Hab das nie gebraucht, aber vielleicht findest du ja dort einen Ansatz.^

Möglicherweise musst du auch den Dienst so konfigurieren, dass Datenaustausch mit Desktop aktiv ist.

[/EDIT]
Frank Reim

Geändert von dataspider ( 7. Nov 2013 um 12:41 Uhr)
  Mit Zitat antworten Zitat