delphi加载c语言dll文件,delphi怎么调用DLL函数(C语言)

函数原型(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中应是怎样的)

来人救命啊!

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'

这个试试

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

--------------------------

新闻：FriendFeed 正在踏进 twitter 的领域

导航：博客园首页  知识库  新闻  招聘  社区  小组  博问  网摘  找找看