delphi怎么调用DLL函数(C语言)

Question

函数原型(C):
函数定义：
long GetBasicInfo_Block(LPARAM pReserved,struct Log_BASICINFOARRAY *pLgBas);
参数：
pReserved：未用
pLgBas：基本信息内容（输出）
struct Log_BASICINFOARRAY{
char bDoc[10];
char bID[18];
char bName[20];
         char bSex;
char bAddress[60];
char bVehicleType[4];
char bTel[16];
long bFirstTestDate; 
long bAvailableDate; // 发卡日期，如20041202
long bReleaseDate; // 有效日期，如20041202};
在delphi中怎么引用  Record 怎么余struct 对应;(char类型,到delphi中应是怎样的)

Answer 1

Type
TLog_BASICINFOARRAY=record
         bDoc:array[0..9] of Char;
bIDA:array[0..17] of Char;
bName:array[0..19] of Char;
         bSex:Char;
bAddress:array[0..59] of Char;
bVehicleType:array[0..3] of Char;
bTel[16]:array[0..15] of Char;
bFirstTestDate:Double; 
bAvailableDate:Double; // 发卡日期，如20041202
bReleaseDate:Double; // 有效日期，如20041202
end;function GetBasicInfo_Block(pReserved:LongInt;pLgBas:PLog_BASICINFOARRAY):Double;stdcall;external 'DLL name'这个试试

Answer 2

Type
PLog_BASICINFOARRAY = ^TLog_BASICINFOARRAY;
TLog_BASICINFOARRAY = Packed Record
         bDoc:array[0..9] of Char;
bIDA:array[0..17] of Char;
bName:array[0..19] of Char;
         bSex:Char;
bAddress:array[0..59] of Char;
bVehicleType:array[0..3] of Char;
bTel[16]:array[0..15] of Char;
bFirstTestDate: Longint; 
long bAvailableDate: Longint; // 发卡日期，如20041202
long bReleaseDate: Longint; // 有效日期，如20041202
end;function GetBasicInfo_Block(pReserved:LongInt;pLgBas:PLog_BASICINFOARRAY):integer;stdcall