来人救命啊!

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