arkadaşlar ben proje odevi olarak kameradan cift yonlu goruntu almak ancak
yaptıkalrım az geldiki iki kameradan goruntu almak diye degiştirdi saolsun hocalar. yani uzay tanımlamasım gerekiyo yaada ekstra nerde duzeltmeler yapmam gerekiyo bir haftadır ugraşıyorum yorumda bulunursaız sevinirim her bilgi benim icin onemli şimdiden saolun

uzay tanımlamalarım

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls,clipbrd, ExtCtrls, ActnMan, ActnColorMaps, ComCtrls;
tanımlama
var;
Form1: TForm1;
HCam:hwnd;
bmp:tbitmap;
Function capCreateCaptureWindowA(lpszWindowName : String; dwStyle : integer; X : integer; Y : integer; nWidth : integer; nHeight : integer; hwndParent : hwnd; nID : integer):integer; stdcall; external 'C:\windows\system32\avicap32.dll';

procedure TForm1.FormCreate(Sender: TObject);
begin
bmp:=tbitmap.Create;
bmp.Width:=320;
bmp.Height:=240;

image1.Width:=320;
image1.Height:=240;

image2.Left:=image1.Left+500;
image2.Width:=320;
image2.Height:=240;

hcam:=capCreateCaptureWindowA('',0,0,0,320,240,han dle,0);

sendmessage(hcam,1034,0,0);
form1.DoubleBuffered:=true;
Timer1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin


sendmessage(hcam,1084,0,0);

sendmessage(hcam,1054,0,0);
image1.Picture.LoadFromClipboardFormat(cf_bitmap,c lipboard.GetAsHandle(cf_bitmap),0);
bmp.Canvas.Draw(0,0,image1.Picture.Bitmap);

image2.Canvas.stretchDraw(rect(image1.width,0,0,im age1.height),bmp);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
image2 de nasıl ikinci kameradaki goruntuyu gosterebilirim en azından bir fikir veririseniz cok yardımzı olursunuz
__________________