Функция от 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;  
...