Registriert seit: 24. Okt 2004
1.542 Beiträge
Delphi XE Architect
|
Re: [IdHttpServer] Verhindern das ContentStream freigegeben
17. Aug 2009, 13:39
Also das Assign nicht geht hast du eh schon bemerkt
Deine nachbesserung funktioniert auch noch nicht ganz hat mich aber auf den richtigen Weg gebraucht:
Delphi-Quellcode:
if MS_Image <> nil then
begin
AResponseInfo.ResponseNo := 200;
AResponseInfo.ContentType := 'image/gif';
AResponseInfo.ContentStream := TMemoryStream.Create;
MS_Image.Position := 0;
AResponseInfo.ContentStream.CopyFrom(MS_Image, MS_Image.Size);
end
else
begin
AResponseInfo.ResponseNo := 404;
AResponseInfo.ContentText := 'Not Found';
end;
So funktioniert es. Danke
Alex "Sage nicht alles, was du weißt, aber wisse alles, was du sagst!" Matthias Claudius
"Wer sich über Kritik ärgert, gibt zu, daß er sie verdient hat." Tacitus
|