5,927
社区成员
发帖
与我相关
我的任务
分享大家帮忙啊，如何调用VC的Dll啊。
Dll名为：rithg.dll 只告诉我函数名为：cgetID 说是送一个参数‘AAA’然后能得到字符串的反回值。
我应该怎么写啊？
我应该怎么写啊？
...全文
请发表友善的回复…
发表回复
303 2004-05-08
- 打赏
- 举报
大哥们，能否用QQ和您沟通啊？
if Assigned(p) then p(PChar('astr'));
之后我怎么能得到反回值啊？
我的QQ：49440483
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;
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;
sas:string;
begin
sas := p(PChar('astr'));
end;
saien 2004-05-08
- 打赏
- 举报
没有qq号！
