Delphi的动态调用DLL的问题

显示全部楼层 · 2008-10-25 15:54:37

Delphi7中动态调用DLL的代码是
DLLHandle : THandle;
...DLL文件是Common.DLL那行代码忘记了。反正和书上写的一模一样。
@ReadIni = GetProcAddress(DLLHandle,'ReadIni');
if(@ReadIninil)
begin
....
end;
end.
我看书上就是这么写的，它的@ReadIni里总是有值，也就是说@ReadIninil是真，而我写的何书上一模一样，为什么我的@ReadIninil的条件为假？如果说是DLL文件没有放对位置，我特意把DLL文件拷贝到这个应用程序的的绝对目录下，可还是不行，ReadIni是DLL中的一个函数。始终没有找到该函数，DLLHandle的数值是8位的整形数字。请问是为什么？是不是GetProcAddress和我有仇？就是得不到那个函数。该问题已经有3个月没有解决了，希望有高手帮忙。
我把代码发上来了
function GetDBName(FileName:string):string;
begin
try

DLLHandle := LoadLibrary('Comm_Ini.dll');

@ReadIni :=GetProcAddress(DLLHandle,'ReadIni');

if @ReadIninil then

begin

Result:= ReadIni(FileName,'DBConn','DataSource');

end;
finally

FreeLibrary(DLLHandle);
end;
end;
end.
这个@ReadIni知怎么调试都是没有东西，书上的代码怎么调试都是有东西，我就说那个函数只听书上的，和我有仇

千问 · 2008-10-25 15:54:37

不说了。I/O操作只有高手解决，我菜鸟。...