请问各位大哥这样一个函数怎样在DELPHI中申明和调用
BOOL WINAPI GetMailInfo (long*, Mailinfo** ,char*)
参数:
long* 邮件数量
Mailinfo** Mailinfo结构数组指针.
char* 成功或失败时的ERRORTEXT
//////////////////////////////////////////////////////
Mailinfo
typedef struct
{
char* from;
char* subject;
}Mailinfo;
/////////////////////////////////////
BOOL WINAPI GetMailInfo (long*, Mailinfo** ,char*)
参数:
long* 邮件数量
Mailinfo** Mailinfo结构数组指针.
char* 成功或失败时的ERRORTEXT
//////////////////////////////////////////////////////
Mailinfo
typedef struct
{
char* from;
char* subject;
}Mailinfo;
/////////////////////////////////////
PMI=^MailInfo
MailInfo = record
from:pchar,
subject:pchar
end;
function=TGetMailInfo (count:int;Mailinfo:PMI;IsOk:pchar);boolean;var
GetMailInfo :TGetMailInfo ;
应该是这样
它会返回一个Mailinfo结构数组,怎么申明此参数?
MailInfo = record
from:pchar,
subject:pchar
end;
AMI=array[0.100] of MailInfo;
PMI=^MailInfo;
function GetMailInfo (.......;Mailinfo:PMI;.........):boolean;stdcall;external 'dllname.dll';
var
MyAMI:AMI;
begin
GetMailInfo(......,@MyAMI,.....);
end;随手写得不知道对不对,你可以试试。
楼上几位已经回答的差不多了