Socket: Bild herunterladen

[himitsu]

Mal 'ne Frage:
Wie hast'n das obrige Zitat

Zitat:

HTTP/1.1 200 OK
Date: Wed, 18 Nov 2009 20:01:55 GMT
Server: Apache/2.2.10 (Linux/SUSE)
Last-Modified: Sun, 23 Aug 2009 09:05:27 GMT
ETag: "63059c-82da-471cb66fd03c0"
Accept-Ranges: bytes
Content-Length: 33498
Connection: close
Content-Type: image/jpeg

ÿØÿà

eigentlich bekommen?

Etwa in einem Memo/RichEdit ausgegeben?


Diese hören ja bei #0 auf.

Denn also ich es grade mal testete, da hatte ich anscheinend das gesamte Bild im Output-String.
Also zumindestens in D7 gibt .ReceiveText alle Daten anscheinend sogar unconvertiert zurück ... auch die 0#.



[add]

Delphi-Quellcode:

// Datenanfang suchen:
// Alternativ solange Zeilen rauslesen, bis eine Leerzeile gefunden wird.
// Man könnte die gelesenen Zeilen auch gleich rauslöschen
// und dann hätte man im String nur noch das Bild drinnen
i := Pos(#13#10#13#10, Output) + 4;
i2 := Pos(#10#10, Output) + 2;
if (i2 > 2) and (i2 < i) then i := i2;

if i > 4 then
begin
  // Daten lesen:
  S := TMemoryStream.Create;
  S.ReadBuffer(Output[i], Length(Output) - i + 1);
  S.Position := 0;
  jpeg.LoadFromStream(S);
end;

PS: ab Delphi 2009 wirst du massive Probleme bekommen, da dort .ReceiveText Unicode ist und somit vermutlich die Binärdaten zerstört werden.