请问有没有图象采集卡的控件,哪里下载，怎样用？

Question

我有，但不知道是否支持MIL-Lite 6.0
想要的话留e-mail

Answer 1

谢！我的邮箱：[email protected]

Answer 2

我也要，谢谢[email protected]

Answer 3

procedure play;
begin
  jlcvideo1.Activo :=true;
  jlcvideo1.GrabarVideoDisco;
end;

Answer 4

采集卡的控件已收到真的十分感谢您的帮助。目前我的Matrox Meteor-II型采集卡还未安装到机器上，运行下面代码
procedure play;
begin
  jlcvideo1.Activo :=true;
  jlcvideo1.GrabarVideoDisco;
end; 
出错显示：No se ha podido conectar el driver. Pruebe a resetear el equipo。（单步执行到jlcvideo1.Activo :=true;就已出错）
不知道这是因为硬件未安装还是不支持这种型号的采集卡。我还想搞清楚TJLCVideo控件的几个重要方法：
1。将采集卡得到的图象输出到TBitmap类或以位图格式存盘
2。调整采集图象的分辨率。
3。实时显示采集图象。最后还问一下采集卡安装在PCI槽上有没有什么值得注意的地方。他们买的卡价值Y_4800（真搞不懂为什么买这么贵？）结果都不敢安装。请问有那么危险吗？

Answer 5

该控件从哪里找来已经不记得了。
硬件未安装会出错，但是否支持你的采集卡我也不能保证（它可以支持几种）。
采集卡安装没有什么值得注意的地方，但有些采集卡有兼容性的问题，品牌机对其支持好一些。
其实RMB1000左右一般就够了。1。将采集卡得到的图象输出到TBitmap类或以位图格式存盘
// jlcvideo1.ficheroImagen = c:\~temp.bmp
procedure TfrmMain.tcmdCaptureClick(Sender: TObject);
var
  Bitmap: TBitmap;
  MyRect, MyOther: TRect;
begin
  deletefile('c:\~temp.bmp');
  MyRect := Rect(0,0,image1.width,image1.height);
  MyOther := Rect(0,0,image1.width,image1.height);
  Bitmap := TBitmap.Create;
  jlcvideo1.GrabarImagenDisco ;
  jlcvideo1.StopVideo ;
  if fileexists('c:\~temp.bmp')=true then
  begin
    Bitmap.LoadFromFile('c:\~temp.bmp');
    image1.Picture:=nil;
    image1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
    image1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);    jlcvideo1.Visible :=false;
    blnNotSave:= True;
    image1.Visible :=true;
    tcmdCapture.Enabled :=false;
  end;
  deletefile('c:\~temp.bmp');
end;2。调整采集图象的分辨率。
// 我也不清楚3。实时显示采集图象。
  jlcvideo1.Activo :=true;
  jlcvideo1.GrabarVideoDisco;

Answer 6

VictorG():
   您好，非常感谢前几次的热心帮助，现在我们这儿Matrox Meteor-II采集卡和控件jlcvideo都已安装好。但运行
procedure play;
begin
  jlcvideo1.Activo :=true;
  jlcvideo1.GrabarVideoDisco;
end; 时仍然
出错显示：No se ha podido conectar el driver. Pruebe a resetear el equipo。以至无法采集图象。请问是否先要初始化或确定一些控件属性。
  后来我又下载了TVideoCap控件。但其属性DriverName无法找到，似乎也采集不到图象。
　请为我指点迷津。这一关搞不定很可能会被老板炒鱿鱼。

Answer 7

有没有用VC写的代码啊？这个好象是DELPHI，我不懂的？如果有的话，请发到