F
fartripLiao
Unregistered / Unconfirmed
GUEST, unregistred user!
在DELPHI6中怎么样动态调用DLL。
原来我在D5中的调用方法已不行了网上有的我试了也不行。
请各位高手帮帮小弟附上我原有的代码。
var
MyFunct:TintFunction;//TintFunction在D6中已不存在
begin
Hinst:=loadLibrary(dllname);
if Hinst>0 then
try
FPointer:=GetProcAddress(hinst,'TVCtrl32_SetVideoSource');//FPointer已不存在
if FPointer<>nil then
begin
MyFunct:=tintfunction(FPointer);
myFunct(GetVideoPortNo);
end
else
begin
showmessage('调用系统资源错误,请与开发商联系');
end;
finally
FreeLibrary(Hinst);
end;
end;
原来我在D5中的调用方法已不行了网上有的我试了也不行。
请各位高手帮帮小弟附上我原有的代码。
var
MyFunct:TintFunction;//TintFunction在D6中已不存在
begin
Hinst:=loadLibrary(dllname);
if Hinst>0 then
try
FPointer:=GetProcAddress(hinst,'TVCtrl32_SetVideoSource');//FPointer已不存在
if FPointer<>nil then
begin
MyFunct:=tintfunction(FPointer);
myFunct(GetVideoPortNo);
end
else
begin
showmessage('调用系统资源错误,请与开发商联系');
end;
finally
FreeLibrary(Hinst);
end;
end;