type PChar = PWideChar; //version 2010 PChar = PAnsiChar; //version 2007
function nc_open(path : PAnsiChar; mode : integer; var ncidp : integer) : integer; cdecl; external 'netcdf.DLL';
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionunit ...; interface {$DEFINE CVCDECL} type LpStr = {$IFDEF UNICODE} PAnsiChar {$ELSE} PChar {$ENDIF}; function nc_open(path: LpStr; mode: LongInt; var ncidp: LongInt): LongInt; {$IFDEF CVCDECL}cdecl{$ELSE}stdcall{$ENDIF}; impementation const METHODLIB = 'methodes.dll'; NETCDFLIB = 'netcdf.dll'; function nc_open; external NETCDFLIB name 'nc_open'; end.
function TNetCDF.StrToPAnsiChar(sTexte: string) : PAnsiChar; begin result := PAnsiChar(AnsiString(sTexte)); end;