http server & stream...

[seppi.tm]

Danke für eure hilfe die idee mit dem memorystream war gut hier meine lösung:

Delphi-Quellcode:

...
var
  pic:Tbitmap;
  picj:Tjpegimage;
  str:Tmemorystream;
...

    //Objekte erstellen
    pic:=tbitmap.Create;
    str:=tmemorystream.Create;
    picj:=TJPEGImage.Create;
    picj.CompressionQuality:=100;

try
      //Bild auslesen und in jpg umwandeln
      imagelist1.GetBitmap(strtoint(jvlistview1.Items.Item[strtoint(trim(Arequestinfo.Params.Text))].SubItems[1])-1,pic);
      picj.Assign(pic);
      picj.SaveToStream(str);

        //ImageHeader und bild übergeben
        AResponseInfo.ContentType:='image/jpeg';
        AResponseInfo.ContentStream:=str;

finally
        //FREEEEE!!!einself
        pic.Free
        str.Free
        picj.Free
end;