如何在程序中获取本机的全部已有的数据驱动程序信息(100分)

F

first

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #1

如何在程序中获取本机的全部已有的数据驱动程序信息

 

Z

zm30

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #2

是bde的还是odbc
bde可用session.getdriversname

 

F

first

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-19

• #3

to Zm30:
是odbc的。

 

T

Tense

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #4

ODBC的话看看MSDN;

 

F

first

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #5

等于没说 to Tense

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-13

• #6

得用ODBCAPI，去http://xuhao23.myetang.com/api/里有一个msodbCxx.zip 里面的ODBCINST.pas 应该对你有用
关于HELP，好象98就有，在硬盘上找找ODBCINST。hlp

first:
你最好还是准备一个MSDN.

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-13

• #7

还不如直接把注册表
HKEY_LOCAL_MACHINE/SOFTWARE/ODBC/ODBCINST.INI/ODBC Drivers
都列举出来就行了.

 

F

first

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-13

• #8

to menxin:
function SQLGetInstalledDrivers(lpszBuf: LPSTR; cbBufMax: WORD;
pcbBufOut: PWORD): BOOL; cdecl;
lpszBuf是个Output类型的参数，相对印delphi用什么类型。

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-13

• #9

呵呵，老兄，这个文件是.PAS能是什么类型呢？本来就是DELPHI的类型.实际是PCHAR,

 

F

first

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-13

• #10

to menxin:
var
Form1: TForm1;
function SQLGetInstalledDrivers(lpszBuf: LPSTR; cbBufMax: WORD;
pcbBufOut: PWORD): BOOL; external 'ODBCCP32.dll'
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var BuffCHAR;
BuffOutWORD;
begin
SQLGetInstalledDrivers(Buff,255,BuffOut);
end;
为什么出现读地址错误

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-13

• #11

Buff没有分配内存.试试看
GetMem(Buff,255);
SQLGetInstalledDrivers(Buff,255,BuffOut);
FreeMem(Buff)

 

F

first

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-14

• #12

to bluerain:
还是不行

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #13

你的函数定义少了一个stdcall,应该如下:

function SQLGetInstalledDrivers(lpszBuf: LPSTR; cbBufMax: WORD;
pcbBufOut: PWORD): BOOL; stdcall; external 'ODBCCP32.dll'

然后用就行了,试验通过了.
procedure TForm1.Button1Click(Sender: TObject);
var
Buff: array[0..2048] of char;
BuffOut: Word;
i: integer;
s: string;
begin
if SQLGetInstalledDrivers(Buff, 2048, @BuffOut) then
begin
s := '';
for i := 0 to Buffout do
begin
if Buff <> #0 then
s := s + Buff
else
begin
listbox1.Items.Add(s);
s := '';
end;
end;
end;
end;

 

F

first

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #14

接受答案了.