大家帮忙啊,如何调用VC的Dll啊。

303 2004-05-08 12:40:20
Dll名为:rithg.dll 只告诉我函数名为:cgetID 说是送一个参数‘AAA’然后能得到字符串的反回值。
我应该怎么写啊?
...全文
41 7 点赞 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
303 2004-05-08
大哥们,能否用QQ和您沟通啊?
if Assigned(p) then p(PChar('astr'));
之后我怎么能得到反回值啊?
我的QQ:49440483
  • 打赏
  • 举报
回复
saien 2004-05-08
delphi调用VC中的dll,字符串参数要用pchar进行强制转换,其它的娄数据类型要尽量用指针来传递数据。
  • 打赏
  • 举报
回复
303 2004-05-08
我不知道啊,只告诉我这个了。
  • 打赏
  • 举报
回复
hch_45 2004-05-08
cgetID 的C是怎么定义的?
  • 打赏
  • 举报
回复
saien 2004-05-08
procedure loadCgetId;
var
H: HWnd;
p: procedure(Path: PChar); stdcall;
begin
H := LoadLibrary(PChar('{目录}rithg.dll'));
if H <> 0 then
begin
p := GetProcAddress(H, PChar('cgetID'));
if Assigned(p) then p(PChar('astr'));
end;
FreeLibrary(h);

end;
  • 打赏
  • 举报
回复
saien 2004-05-08
var
sas:string;
begin
sas := p(PChar('astr'));
end;
  • 打赏
  • 举报
回复
saien 2004-05-08
没有qq号!
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
加入

4969

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2004-05-08 12:40
社区公告
暂无公告