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

[303]

Dll名为：rithg.dll 只告诉我函数名为：cgetID 说是送一个参数‘AAA’然后能得到字符串的反回值。
我应该怎么写啊？

[saien]

没有qq号！

• 打赏
• 举报

回复 赞

[saien]

var
sas:string;
begin
sas := p(PChar('astr'));
end;

• 打赏
• 举报

回复 赞

[saien]

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;

• 打赏
• 举报

回复 赞

[hch_45]

cgetID 的C是怎么定义的？

• 打赏
• 举报

回复 赞

[303]

我不知道啊，只告诉我这个了。

• 打赏
• 举报

回复 赞

[saien]

delphi调用VC中的dll，字符串参数要用pchar进行强制转换,其它的娄数据类型要尽量用指针来传递数据。

• 打赏
• 举报

回复 赞

[303]

大哥们，能否用QQ和您沟通啊？
if Assigned(p) then p(PChar('astr'));
之后我怎么能得到反回值啊？
我的QQ：49440483

• 打赏
• 举报

回复 赞