我对于VC一窍不通,dll也不熟悉。
单位有个大爷用VC写了个DLL我必须调用,
查看了相关资料,但总是不行。VC编译的DLL文件:DT.dllclass Isave
{
virtual void _stdcall svPack(BYTE ab, char *ap, DWORD aw) = 0;
}class Iout
{
virtual void _stdcall otPack(BYTE ab, char *ap, DWORD aw) = 0;
}
我用DELPHI调用:var
hd: THandle;
sp: function: integer; stdcall;
begin
hd := LoadLibrary('DT.dll');
if hd <> 0 then
begin
@sp := GetProcAddress(hd, 'ISend.SendPack');
if @sp <> nil then
showmessage('Loaded')
else
showmessage('Fail');
end
else
showmessage('Dll not');
我目前能够LOADLIBRARY,但不能GETPROCADDRESS,总是Fail。
单位有个大爷用VC写了个DLL我必须调用,
查看了相关资料,但总是不行。VC编译的DLL文件:DT.dllclass Isave
{
virtual void _stdcall svPack(BYTE ab, char *ap, DWORD aw) = 0;
}class Iout
{
virtual void _stdcall otPack(BYTE ab, char *ap, DWORD aw) = 0;
}
我用DELPHI调用:var
hd: THandle;
sp: function: integer; stdcall;
begin
hd := LoadLibrary('DT.dll');
if hd <> 0 then
begin
@sp := GetProcAddress(hd, 'ISend.SendPack');
if @sp <> nil then
showmessage('Loaded')
else
showmessage('Fail');
end
else
showmessage('Dll not');
我目前能够LOADLIBRARY,但不能GETPROCADDRESS,总是Fail。
解决方案 »
- 怎样使用Wnd_proc(var message:TMessage)函数过滤掉自己不想要的消息。
- 继承TCustomEdit控件时,如何在设计期就去掉Ctl3d属性
- 关于删除DBGrid内容的问题,谢谢!!
- 求助寻找 vb rezq(vb反编译软件)
- Canvas的传递
- 求助,DEPHI先退出系统再重新运行该系统的代码怎么写?
- XP menu的BUG???-->'Property XPMenu1.DimLevel does not exist!'
- 问个简单的问题。关闭窗口用close和application.terminate有什么区别?
- 关于ADO的问题???//
- 谁有Des加解密算法或CRC加解密算法?
- 能不能实现这样的图象分割?
- dbf数据表如何打开,解决给100分
sp: function: integer; stdcall; 函数原形必须申明清楚,你这样好象不对吧,都没有写参数
@sp := GetProcAddress(hd, 'ISend.SendPack'); 第2个参数应该是导出函数名,这个'ISend.SendPack'不知道你是什么意思?