我需要创建一个函数。在实现类中声明如下:
function WriteLogItem(a_LogName:Array[0..50] of char;LogItemInfo:TLogItemInfo):Integer;
其中TLogItemInfo为结构体,声明如下:
TLogItemInfo=Record
dwID:DWORD;
iType:Integer;
a_Source:Array[0..50] of char;
a_Description:Array[0..50] of char;
a_User:Array[0..50] of char;
pData:Pointer;
end;请教在接口中如何声明这个函数,因为这个结构体类型与自动化类型不兼容,需要转换,用Delphi6如何实现,请高手指点。
function WriteLogItem(a_LogName:Array[0..50] of char;LogItemInfo:TLogItemInfo):Integer;
其中TLogItemInfo为结构体,声明如下:
TLogItemInfo=Record
dwID:DWORD;
iType:Integer;
a_Source:Array[0..50] of char;
a_Description:Array[0..50] of char;
a_User:Array[0..50] of char;
pData:Pointer;
end;请教在接口中如何声明这个函数,因为这个结构体类型与自动化类型不兼容,需要转换,用Delphi6如何实现,请高手指点。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货