Brauche Hilfe bei Übersetzung von c++-code nach Delphi...

[bingo72]

Hallo Experten!!

Ich sitze nun schon mehrere Tage an folgenden Code rum und komm einfach auf keinen grünen Zweig...
Ich bin echt nicht faul und auch nicht bequem mir den Code selbst zu übersetzen, wenn ich es könnte. Bitte um Hilfe, denn mir wäre damit sehr geholfen:

Code:

 if(file.Open(_T("C:\\Program Files\Windows Media 
Components\Encoder\Profiles\myprofile.prx"),CFile::modeRead)!=0){ 
                        WCHAR* perfilXML=new WCHAR[file.GetLength()]; 
                        file.Read(perfilXML,file.GetLength()); 
                        file.Close();

Was ich bislang zusammengebracht habe war folgendes...

Delphi-Quellcode:

    fStream := TFileStream.Create(APATHTOFILE + 'profile.prx', fmOpenRead);
    s := '';
    SetLength(s, fStream.Size);
    fStream.Read(s, fStream.Size);
    fStream.Free;

Bitte um Kontrolle und Korrektur....

Danke!!

[edit=Phoenix] C-und Delphi-Code-Tags eingefügt. Das nächste mal bitte gleich selber dran denken. Mfg, Phoenix[/edit]