在activeform控件中,使用动态加载DLL方法,以下代码报错“Access violation at address....”,这是什么问题?type TIntFunc=function(szDevName: LPCSTR;
phCard: pointer)WORD;
stdcall;
var hHandleointer;
Th:Thandle;Tf:TIntFunc;Tp:TFarProc;aaWORD;begin
Th:=LoadLibrary('c:/dll/HD_GPAPI.dll');
{装载DLL}if Th>0 then
tryTp:=GetProcAddress(Th,'HSConnectDev');if Tp<>nilthen
begin
aa:=Tf('USB1',hHandle);Edit1.Text:=IntToStr(aa);////////用Edit1.Text:=IntToStr(GetLastError);发现GetLastError的结果为6用ShowMessage(SysErrorMessage(GetLastError));显示结果为句柄无效。