안녕하세요...

제가 VideoCap에 나와 있는 소스에는 추출하는것은 있는데 입력하는것이 없어서..

아래와 같이 나와 있는데

procedure TForm1.BtStartClick(Sender: TObject);

begin

EdUpdateChange(self);

bmInf:= VideoCap1.BitmapInfo;

with bmInf.bmiHeader do

begin

EdWidth.Text:= inttostr( biWidth);

EdHeight.Text:= inttostr(biHeight);

EdPlanes.Text:= inttostr(biPlanes);

edbitCount.Text:= inttostr(biBitCount);

case biCompression of

bi_RGB: edCompress.text:= 'bi_RGB';

BI_RLE8: edCompress.text:= 'bi_RLE8 ';

BI_RLE4: edCompress.text:= 'bi_RLE4 ';

BI_BITFIELDS : edCompress.text:= 'bi_BITFIELDS';

else

edCompress.text:= 'Other:'+inttostr( biCompression );

end;

EdSize.text := inttostr( biSizeImage);

Edx.text := inttostr( biXPelsPerMeter);

Edy.text := inttostr( biyPelsPerMeter);

Edclrused.text := inttostr( biclrused);

Edclrimportant.text := inttostr( biclrImportant);

end;



VideoCap1.StartCapture;

BtStart.Enabled:= false;

btStop.Enabled:= true;

btFormat.Enabled:= false;

btDriver.Enabled:= false;

count:= 0;

oldtime:=0;

oldtime2:=0;

oldcount:= 0;

end;



이것을 역으로 입력하려고 하니 안되네요..

방법좀 가려커 주세요