Delphi JPEG Error 53/54 bei Delphi 2009

Thema durchsuchen

Ansicht

Themen-Optionen

JPEG Error 53/54 bei Delphi 2009

Ein Thema von bugsysiegel · begonnen am 30. Dez 2009 · letzter Beitrag vom 1. Jan 2010

Vorheriger Beitrag

Nächster Beitrag

daywalker9

Registriert seit: 1. Jan 2010
Ort: Leer
594 Beiträge

Delphi XE3 Professional

Re: JPEG Error 53/54 bei Delphi 2009

1. Jan 2010, 17:38

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:

zusammenfalten · markieren

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ß!