AssignFile & Unicode-Dateinamen

[Dunkel]

Hallo zusammen!

Wie kann man eine Datei mit einem Unicode-Dateinamen erstellen/öffnen/löschen?

Konkret geht es mir um folgende Prozedur welche ich entsprechend umschreiben möchte

Delphi-Quellcode:

uses ..., System, zLib, ...;

procedure CompressFile(FileName: string);
var
  f: File of byte;
  pIn,pOut: Pointer;
  sizeRead,sizeWrite: integer;
begin
  pIn := nil;
  pOut := nil;
  assignfile(f, FileName);
  reset(f);
  try
    getmem(pIn, FileSize(f));
    BlockRead(f, pIn^, FileSize(f), sizeRead);
    CompressBuf(pIn, sizeRead, pOut, sizeWrite);
    ReWrite(f);
    BlockWrite(f, pOut^, sizeWrite);
  finally
    if pIn <> nil then freemem(pIn);
    if pOut <> nil then freemem(pOut);
    CloseFile(f);
  end;
end;

AssignFile erwartet als Parameter eine Dateivariable und einen Dateinamen, leider nur als String.

In den Tiefen der Win32-API wird es doch sicherlich was brauchbares geben, leider habe ich nichts gefunden.

[Dezipaitor]

Direkt mit API ist CreateFileW deine Antwort. Entgegen dem Name, kann man auch einfach Dateien öffnen.

Ich glaub bei den TNTClasses gibts auch nen TWideFileString oder so (musste jedoch wirklich suchen, da sie nicht mehr angeboten werden (oder so)).

[Dunkel]

Zitat von Dezipaitor:

Direkt mit API ist CreateFileW deine Antwort.

Vielen Dank! Das ist so ziemlich genau das was ich gesucht habe.

[Muetze1]

Ansonsten schau mal in meine ID3Lib auf meiner HP, die benutzt einen TFileStream der mit Unicode Dateinamen umgehen kann.