Bild mittels TServerSocket für Browser bereitstellen

[Nisbo]

bei mir schaut das jetzt so aus:

Delphi-Quellcode:

// Bild liefern
procedure TForm1.IdHTTPServer1CommandGet(
           AContext      : TIdContext;
           ARequestInfo  : TIdHTTPRequestInfo;
           AResponseInfo : TIdHTTPResponseInfo);
var Stream  : TMemoryStream;
var jp      : TJPEGImage;
begin
    AviCap.CopyToClipboard;

    Image2.picture := nil;
    Image2.Picture.Bitmap.Assign(Clipboard);

    jp   := TJPEGImage.Create;
    try with jp do begin
       Assign(Image2.Picture.Bitmap);
    end;
    except
    end;

    Stream := TMemoryStream.Create;
    jp.SaveToStream(Stream);

    Stream.Seek(0,soFromBeginning);
    AResponseInfo.ContentType   := 'Content-Type: image/jpeg';
    AResponseInfo.ContentStream := Stream;

    jp.free;
end;

allerdings ist: AviCap.CopyToClipboard; nicht unbedingt ne gute lösung nen einzelbild zu bekommen, funktioniert zwar aber man blockiert die Zwischenablage

hat da jemand noch ne Idee wie das besser geht ? hatte da was von GrabFrame gelesen aber irgendwie komme ich damit nicht klar