谁有VideoCap23控件，给俺发一个，谢谢

[xzhifei]

在网上找了好久都没有找到，谁有的话，请帮忙发一个给俺，谢谢！
邮箱：[e-mail]

[xzhifei]

不好意思，邮箱发错了，应该是这个：[e-mail]

[aiirii]

请不要灌水

[aiirii]

unit Videocap;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,stdctrls,
ExtCtrls,vfw,mmsystem,syncobjs;

///////////////////////////////////////////////////////////////////////////////
// Video Capturing

type
// Types for audio-settings
TChannel = (Stereo, Mono);
TFrequency = (f8000Hz, f11025Hz, f22050Hz, f44100Hz);
TResolution = (r8Bit, r16Bit);


// Types for event-procedures
type
TCapStatusProc = procedure(Sender: TObject) of object;
TCapStatusCallback = procedure (Sender:TObject;nID:integer;status:string) of object;
TVideoStream = procedure (sender:TObject;lpVhdr:PVIDEOHDR) of object;
TAudioStream = procedure (sender:TObject;lpWHdr:PWAVEHDR) of object;
TError = procedure (sender:TObject;nID:integer; errorstr:string) of object;


// Exceptions
type ENoDriverException = class(Exception);
type ENoCapWindowException = class(Exception);
type ENotConnectException = class(Exception);
type ENoOverlayException = class(Exception);
type EFalseFormat = class(Exception);
type ENotOpen = class(Exception);
type EBufferFileError = class(Exception);


type
TAudioFormat = class (TPersistent)
private
FChannels :TChannel;
FFrequency:TFrequency;
FRes :TResolution;
private
procedure SetAudio(handle:Thandle); // Setting Audio Data to Capture Window

public
constructor create;

published
property Channels: TChannel read FChannels write Fchannels default Mono;
property Frequency: TFrequency read FFrequency write fFrequency default f8000Hz;
property Resolution : TResolution read FRes write FRes default r8Bit;
end;

[daily66]

顶一个

[daily66]

顶一个

[daily66]

顶一个

[aiirii]

ftp://ftp.cq.hktk.com/soft/soft_con_media/VIDEOCAP23.ZIP