Probleme mit TSQLConnection in TService

[Axel Merk]

Hallo Leute,<br>

ich versuche vergebens, eine sqlconnection<br> in der ServiceStart-Procedure aufzubauen.<br>

Dazu benutze ich den Beispiel-Code von<br>
Borland und Herrn Kosch:<br>

var<br>
Service1: TService1; <br>
aFile: TextFile;<br>
conn1: TSQLConnection;<br>

procedure TService1.ServiceStart(Sender:<br> TService; var Started: Boolean);<br>
begin<br>
conn1 := TSQLConnection.Create(nil);<br>
conn1.Connected := false;<br>
conn1.ConnectionName := 'IBConnection';<br>
conn1.DriverName := 'Interbase';<br>
conn1.GetDriverFunc := <br>
'getSQLDriverINTERBASE';<br>
conn1.KeepConnection := true; <br>
conn1.LibraryName := 'dbexpint.dll';<br>
conn1.LoadParamsOnConnect := false;<br>
conn1.LoginPrompt := false;<br>
conn1.Name := '';<br>
conn1.Params.Values<br>['Database'] := 'c:\test.gdb';<br>
conn1.Params.Values<br>['RoleName'] := 'RoleName';<br>
conn1.Params.Values['User_Name']<br>
:= '****'; <br>
conn1.Params.Values<br>['Password'] := '****'; <br>
conn1.VendorLib := GDS32.dll;<br>
conn1.Open;<br>

Bis zur Zeile conn1.VendorLib läuft alles <br>
gut, sobald ich aber Open ausführe,<br>
bekomme ich den Windows-Fehler 2140.<br>

Das Erstaunliche ist, dass dieselben <br> Befehle in der Procedure<br>
ServiceAfterInstall problemlos laufen und <br>
in einer normalen Anwendung auch.<br>

Wer kann mir sagen, wo der Fehler liegt?<br>

Danke<br>

[Andreas Kosch]

Hallo,

der NT-Service wird in einem abgespalteten Thread ausgeführt, damit der Dienst in seinem primären Thread auf die Anforderungen des Service Control Manager reagieren kann. Daher darf nicht der direkte Datei-Zugriff via GDS32.DLL genutzt werden, sondern der Zugriff muss über ein Netzwerkprotokoll (wie TCP/IP) verfolgen: <b>localhost:</b>c:\testgd

[Axel Merk]

Hallo Herr Kosch,<br>

genau das war es.<br>

Vielen Dank, vor allem auch für die<br> schnelle Hilfe!<br&gt