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
