Функция От C до Delphi

Question

Я создал функцию, подобную ниже в коде Delphi. но это не сработает. Каков правильный способ его преобразования?

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

Я переведу это на следующий код Delphi (не тестировался):

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

Как об этом

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

Это более "delphish", делает то же самое, пропускает строку проблемы с кодированием. Вы можете использовать его следующим образом:

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