unit3.~pas

来自「威视V130采集卡开发包：包含了源代码、可执行文件和Demo」· ~PAS 代码 · 共 38 行

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unit2, StdCtrls, jpeg, ExtCtrls;

type
  TForm3 = class(TForm)
    Image1: TImage;
    procedure OnClick(Sender: TObject);
  private
  public
    m_DeviceHandle : HANDLE;
    m_pBitPattern  : PUCHAR;
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}
procedure TForm3.OnClick(Sender: TObject);
Var Area : RECT;
    Color : COLORREF;
begin
   Area.left := 0;          Area.right  := 400;
   Area.top  := 0;          Area.bottom := 300;
   Color     := RGB( $80, $80, $80 );

   m_pBitPattern := MV_MakeMaskBit( m_DeviceHandle, Form3.Handle, Area );
   MV_SetMaskBit( m_DeviceHandle, Area, m_pBitPattern );
end;

end.