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.
