Entwickler-Ecke :: Thema anzeigen - SQLGetInstalledDrivers in Delphi

OlafSt - Mi 13.06.18 13:35
Titel: SQLGetInstalledDrivers in Delphi

Hallo Freunde,

ich versuche gerade, die Liste an installierten ODBC-Treibern auszulesen. Dazu gibt es in ODBCCP32.DLL die prima Routine

BOOL SQLGetInstalledDrivers(
LPTSTR lpszBuf,
WORD cbBufMax,
WORD * pcbBufOut);

Meine Delphi-Übersetzung:

Delphi-Quelltext

1:	function SQLGetInstalledDriversW(lpszBuf:PChar; cbufMax: word; pcbBufOut: PWord): boolean; external 'ODBCCP32.DLL';

Rufe ich das nun auf, gibt es einen Stack Overflow:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var
   Buf: string;
   Res: Word;
begin
     Setlength(Buf, 2000);
     Res:=0;
     SQLGetInstalledDriversW(PChar(Buf), 2000, Res);
end;

Auch wenn ich @Res als letzten Parameter nehme, wenn ich PAnsiChar verwende etcpp... Stets gibts einen Stack Overflow.

Was mache ich falsch ?

jasocul - Mi 13.06.18 13:56

Zunächst muss noch stdcall eingebaut werden:

Delphi-Quelltext

1:	function SQLGetInstalledDriversW(lpszBuf:PChar; cbufMax: word; pcbBufOut: PWord): boolean; stdcall; external 'ODBCCP32.DLL';

Danach wie folgt:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

var
   Buf: PChar; //string;
   Res: Cardinal;
begin
  GetMem(Buf, 2000);
  Res:=0;
  SQLGetInstalledDriversW(Buf, 2000, @Res);

OlafSt - Do 14.06.18 15:51

SQLGetInstalledDrivers() liefert die Ergebnisse als AnsiChar zurück. Für Unicode wurde dann SQLGetInstalledDriversW() dazugefügt.

Darum bekam ich auch bei @Frühlingsrolle's Beispiel einen Haufen chinesische Zeichen zurück, die keinen Sinn ergaben (ja, ich kann das in begrenztem Umfang lesen). An sich hatte ich es schon fast, auf das stdcall; kam ich nur nicht.

Das ganze sieht also fertig so aus:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

uses Winapi.Windows, Vcl.Dialogs, System.SysUtils;

function SQLGetInstalledDriversW(lpszBuf:PChar; cbufMax: word; pcbBufOut: PWord): boolean; stdcall; external 'ODBCCP32.DLL';

procedure GetODBCDriver;
var
   Buf: array[0..2000] of Char;
   bufSize: word;
   Res: Cardinal;
begin
     ZeroMemory(@buf, Length(buf));
     bufSize:=0;
     SQLGetInstalledDriversW(@Buf, Length(buf), @bufSize);
     ShowMessage(IntToStr(bufSize));
     ShowMessage(buf);
end;

Das ganze liefert eine Liste der installierten ODBC-Treiber zurück. Jeder ODBC-Treibername ist mit einem 0-Byte abgeschlossen, das Ende der Liste mit zwei 0-Bytes in Folge. Ergo wird MAXPATH, das IIRC 260 beträgt, bei weitem nicht reichen (ich habe hier bereits 844 Bytes).

Aber: Frage beantwortet, danke für die Hilfe !

jasocul - Fr 15.06.18 07:26

Frühlingsrolle hat folgendes geschrieben :

In der Doku steht nichts über eine Unicode Version (SQLGetInstalledDriversW)! Und explizit danach gesucht, komm ich auf kein Suchergebnis! Daher bin ich ausgegangen, dass es diese Funktion nicht gibt. Verlinkt sie mir, solltet ihr sie finden.

In der MSDN-Doku kann ich auch nichts dazu finden. Aber Tante Google spuckt einiges dazu aus.

jasocul - Mo 18.06.18 09:11

Frühlingsrolle hat folgendes geschrieben :

welches ungleich diesem Topic entspricht.

Meinst du, weil das Topic "SQLGetInstalledDrivers in Delphi" heißt?
Ich habe mich halt eher an den Source im ersten Beitrag gehalten. Dort geht es dann doch um SQLGetInstalledDriversW.
Aber hier mal ein Link, der sich mit der WideChar-Variante auseinandersetzt:
https://www.pinvoke.net/default.aspx/odbccp32.SQLGetInstalledDriversW
Das war übrigens der erste Treffer in der Liste.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!