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

Question

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;入上面一段程序，我的函数名没错，为什么能装载动态库，却装载不了函数。
哪位知道，急坏了我了

Answer 1

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