videocap有没有支持D7的版本（急）(30分)

搜索了很多网页，支持D7的videocap很难找到。
请教各位：videocap有D7版本吗，如有请给个连接或发个信给小弟。
或介绍一下其他图片捕抓控件，不胜感激。

真的每人知道吗？

我也没有找到，我用的是的6要不要？

好啊，谢谢，先看看啦，有没有demo的？

futhanlo@21cn.com

我又 4 5 6用了

unit drvedit;

interface

procedure Register;

implementation

// uses classes,dsgnintf,sysutils,vfw,videocap; // d5 d4 d3

uses classes, DesignIntf, DesignEditors, sysutils, vfw, videocap; // d6 d7

// Property Editor for driver selection in Video-Cap
type
TDrivereditor = class(TPropertyEditor)
function GetAttributes: TPropertyAttributes; override;
procedure GetValues(Proc: TGetStrProc); override;
function GetValue: string; override;
procedure SetValue(const Value: string); override;
end;

function TDriverEditor.GetAttributes: TPropertyAttributes;
begin
result := [paRevertable, paValueList];
end;

procedure TDriverEditor.GetValues(Proc: TGetStrProc);
var
i: integer;
name: array[0..80] of char;
ver: array[0..80] of char;
s: string;

begin
for i := 0 to 9 do
begin
if capGetDriverDescription(i, name, 80, ver, 80) then
s := strpas(name)
else
s := '';
proc(s);
end;

end;

function TDriverEditor.GetValue: string;

var
n: array[0..80] of char;
ver: array[0..80] of char;
s: string;

begin
with Getcomponent(0) as TVideoCap do
begin
if capGetDriverDescription(DriverIndex, n, 80, ver, 80) then
s := strpas
else
s := '';
end;
result := s; //fVideoDrivername;
end;

procedure TDriverEditor.SetValue(const Value: string);
begin
with Getcomponent(0) as TVideoCap do
SetDrivername(value);
Modified;
end;

procedure Register;
begin

RegisterPropertyEditor(TypeInfo(string), TVideoCap, 'DriverName', TDriverEditor);
end;

end.

to hfghfghfg
没有看明白，能详细讲解吗，需要到什么控件？