关于动态库调试，郁闷坏了我了

[lovelypig]

Button2.Enabled :=False;
dllinstance:=LoadLibrary('e:\test\PreBlock.dll');
iRet:=GetLastError; //结果是零
ShowMessage(Format('Load library last error= %d',[iRet]));
if self.dllinstance=0 then
begin
Result:=-1;
exit;
end;
self.PreBlockBegin:=TDLLPreBlockBegin(GetProcAddress(dllinstance,'PreBlockBegin'));
iRet:=GetLastError; //是127，找不到相应的函数，难为知道大概是什么原因
ShowMessage(Format('load proc preBlockBegin last error= %d',[iRet]));
self.PreBlockSendPolicy:=GetProcAddress(dllinstance,'PreBlockSendPolicy');
self.PreBlockEnd:=GetProcAddress(dllinstance,'PreBlockEnd');
self.PreBlockEnd:=GetProcAddress(dllinstance,'PreBlockTest');
self.PreBlockEnd:=GetProcAddress(dllinstance,'PreBlockFree');
Button2.Enabled :=True;
Result:=0;

入上面一段程序，我的函数名没错，为什么能装载动态库，却装载不了函数。
哪位知道，急坏了我了

[jerrymousenet2]

self.PreBlockBegin:=TDLLPreBlockBegin(GetProcAddress(dllinstance,'PreBlockBegin'));
你把self.PreBlockBegin 这个的定义改成别的名称试试看。不要和'PreBlockBegin'相同。
我以前就遇到过。