안녕하세요...
제가 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;
이것을 역으로 입력하려고 하니 안되네요..
방법좀 가려커 주세요