Welcome,
I have to be blind.
Example is inside source file...
I add little change. Because i want put image into Timage. Next i can save it using image1.picture.SaveToFile('myfile.jpg');
procedure TForm1.CapGrabFrame(Destination: TBitmap);
begin
capGrabFrameNoStop(FCapHandle); // Copy the current frame to a buffer
capEditCopy(FCapHandle); // Copy from buffer to the clipboard
if Clipboard.HasFormat(CF_Bitmap) then // Load the frame/image from clipboard
{$IFDEF FPC} // Lazarus way ;)
Destination.LoadFromClipboardFormat(CF_Bitmap);
image1.Picture.LoadFromClipboardFormat(CF_Bitmap);
EmptyClipboard;
{$ELSE} // Delphi compatibility
Destination.LoadFromClipboardFormat(CF_Bitmap, ClipBoard.GetAsHandle(CF_Bitmap), 0);
image1.Picture.LoadFromClipboardFormat(CF_Bitmap, ClipBoard.GetAsHandle(CF_Bitmap), 0);
{$ENDIF}
end;
I have last question.
How can i change capture resolution ?
I think all modern camera have 640, so i want use this as default.
Now it's 320 px.
Any idea ?