procedure TForm1.Button1Click(Sender: TObject);
begin
Cursor := crHourGlass; SDK_20001.Visible:=true;
SDK_20001.Connect(False);
Cursor := crDefault; with Tinifile.Create('Capturecfg1.ini') do
begin
SDK_20001.VideoStandard:=ReadInteger('Video','Standard',$00000020);
SDK_20001.Hue := 0;
SDK_20001.Saturation := 0; SDK_20001.SetCaptureWHT(
ReadInteger('Capture','width',768),
ReadInteger('Capture','height',576),
ReadInteger('Capture','type',1)); SDK_20001.SetPreviewWHT(
ReadInteger('image','width',768),
ReadInteger('image','height',576),
ReadInteger('image','type',1));
free;
end; Label1.caption:='正在播放';
end;
begin
Cursor := crHourGlass; SDK_20001.Visible:=true;
SDK_20001.Connect(False);
Cursor := crDefault; with Tinifile.Create('Capturecfg1.ini') do
begin
SDK_20001.VideoStandard:=ReadInteger('Video','Standard',$00000020);
SDK_20001.Hue := 0;
SDK_20001.Saturation := 0; SDK_20001.SetCaptureWHT(
ReadInteger('Capture','width',768),
ReadInteger('Capture','height',576),
ReadInteger('Capture','type',1)); SDK_20001.SetPreviewWHT(
ReadInteger('image','width',768),
ReadInteger('image','height',576),
ReadInteger('image','type',1));
free;
end; Label1.caption:='正在播放';
end;
我给你一个OCX,保证搞定。 抓为BMP , JPG 都可以。
谢谢,
去下一个吧,等着接分。
我上面那段程序对吗?to kiboisme(还是铁棒.....针) ( )
我在ActivX中装了,怎么看不到啊。是这样用的吗?
我用的是10Moons Video Capture SDK for Win2000 , Ver 5.2 版
不过是vc做的哈!