Hi!
also "Length(Res)" wird so nicht funktionieren, da du mit
Unicode arbeitest und das einzelne Zeichen 2 byte groß ist.
Somit muss du das so machen:
Delphi-Quellcode:
procedure Write;
var
strLength : integer;
begin
Res:=Http.Get(
url);
Copyinbuffer
AssignFile(Datei,Dir+Dateiname);
Rewrite(Datei,1);
strlength := length(res);
BlockWrite(Datei,buffer,SizeOf(res[1])*strLength);
CloseFile(Datei);
end;
Gruß!