Einzelnen Beitrag anzeigen

Benutzerbild von gsh
gsh

Registriert seit: 24. Okt 2004
1.542 Beiträge
 
Delphi XE Architect
 
#3

Re: [IdHttpServer] Verhindern das ContentStream freigegeben

  Alt 17. Aug 2009, 12: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
  Mit Zitat antworten Zitat