Fonction De C à Delphi

Question

J'ai créé une fonction similaire ci-dessous dans le code delphi. mais ça ne marchera pas. Quelle est la bonne façon de convertir cela?

char* ReadSpeechFile(char* pFileName, int *nFileSize) 
{ 
    char *szBuf, *pLinearPCM; 
    int nSize; 
    FILE* fp; 

    //read wave data 
    fp = fopen(pFileName, "rb"); 
    if(fp == NULL) 
     return NULL; 
    fseek(fp, 0, SEEK_END); 
    nSize = ftell(fp); 

    //linear 
    szBuf = (char *)calloc(nSize, sizeof(char)); 
    fseek(fp, 0, SEEK_SET); 
    fread(szBuf, sizeof(char), nSize, fp); 
    fclose(fp); 

    *nFileSize = nSize; 

    return szBuf; 
} 

Answer 1

je traduirai ce au code Delphi suivant (non testé):

function ReadSpeechFile(pFileName: PAnsiChar, var nFileSize: Integer): PAnsiChar; 
var 
szBuf: PAnsiChar; 
nSize: Integer; 
fp: TFileStream; 
begin 
    fp := TFilestream.Create(pFileName, fmOpenRead); 
    try 
    nSize := fp.Size; 
    GetMem(szBuf, nSize); 
    fp.Read(szBuf^, nSize); 
    finally 
    fp.Free; 
    end; 
    nFileSize := nSize; 
    Result := szBuf; 
end; 

Answer 2

Que diriez-vous de cette

function ReadSpeechFile(const AFileName: string): TMemoryStream; 
begin 
    Result := TMemoryStream.Create; 
    try 
    Result.LoadFromFile(AFileName); 
    except 
    FreeAndNil(Result); 
    raise; 
    end; 
end; 

Il est plus "delphish", fait la même chose, saute chaîne problèmes d'encodage. Vous pouvez l'utiliser comme ceci:

Speech := ReadSpeechFile('C:\somefile.dat'); 
MySize := Speech.Size; 
...