Einzelnen Beitrag anzeigen

Benutzerbild von wicht
wicht

Registriert seit: 15. Jan 2006
Ort: Das schöne Enger nahe Bielefeld
809 Beiträge
 
Delphi XE Professional
 
#10

Re: Socket: Bild herunterladen

  Alt 24. Nov 2009, 20:44
Delphi-Quellcode:
Stream := TMemoryStream.Create;
try
  i := Pos(#13#10#13#10, s) + 4; // Header schnappen
  Stream.Write(s[i], Length(s) - i); // Ab da alles wegschreiben
  Stream.SaveToFile('c:\bild.jpg'); // Speichern
finally
  Stream.Free;
end;
Evtl so? Du wirst übrigens eventuell Probleme bei "chunked"-Transfer haben, aber dein empfangener Header sah nicht danach aus.

HTH
http://streamwriter.org

"I make hits. Not the public. I tell the DJ’s what to play. Understand?"
  Mit Zitat antworten Zitat