调用C写的动态库中的函数

[haoqingqlm]

我要调用一动态库中的函数，声明如下
DLLImport(bool) WriteInfo(LPCTSTR lpszPWD,PVOID pData,BYTE DataNo,BYTE &Length);

在delphi中已知的四个参数类型是string,string,int,int

请问如何调用，给个实列,谢谢

[haoqingqlm]

自己先顶

[很土]

const Dll_Name = 'abc.dll'; // 动态库名由自己定义

function WriteInfo(const APassword: PChar; AData: Pointer;
ADataNo: Byte; var ALength: Byte): Boolean; cdecl;
external Dll_Name name 'WriteInfo';

[很土]

调用例子:
var
AStr1, AStr2: String;
intV1, intV2: Integer;
begin
AStr1 := '123412341234';
SetLength(AStr2, 255);
intV1 := 0;
intV2 := 255;

WriteInfo(PChar(AStr1), PChar(AStr2), intV1, intV2);
end;

[vicky_jam]

虽然也是问题 但是能调用DLL 呵呵~
http://community.csdn.net/Expert/topic/4283/4283244.xml?temp=.6506159

注意Delphi 的String类型 和 VC 中的string类型是不一样的 不能直接调用~~

[xixuemao]

function WriteInfo(lpszPWD: PChar; const pData;DataNo: byte;var Length: byte): boolean;

这样试试看

[xixuemao]

好像少了个const
function WriteInfo(const lpszPWD: PChar; const pData; DataNo: byte; var Length: byte): boolean;

[hexenzhou]

function WriteInfo(lpstr: PChar; pData: Pointer; DataNo: byte; var Length: byte): Boolean;

[haoqingqlm]

自己做好了

var
pData: Pointer;
v1,len: Integer;
Content:string;
begin
len := length(Content);
GetMem(pData, len);
Move(Content[1], pData^, len);
if WriteInfo(WPSW, pData, 5, len) then
........
end;