开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 驱动编程 > 查看源码
svrMain.pas
资源名称：SimpleSC.rar　[点击查看]
上传用户：juxian
上传日期：2013-04-01
资源大小：38k
文件大小：2k
源码类别：

驱动编程

开发平台：

Delphi

svrMain.pas：源码内容
  1. unit svrMain;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ScrSpy, StdCtrls, Spin, ExtCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     ScreenEncoder1: TScreenEncoder;
  12.     Button1: TButton;
  13.     Button2: TButton;
  14.     Label1: TLabel;
  15.     SpinEdit1: TSpinEdit;
  16.     SpinEdit2: TSpinEdit;
  17.     Label2: TLabel;
  18.     Label3: TLabel;
  19.     ComboBox1: TComboBox;
  20.     Bevel1: TBevel;
  21.     Panel1: TPanel;
  22.     Label4: TLabel;
  23.     Label5: TLabel;
  24.     SpinEdit3: TSpinEdit;
  25.     Label6: TLabel;
  26.     Label7: TLabel;
  27.     Label8: TLabel;
  28.     Label9: TLabel;
  29.     SpinEdit4: TSpinEdit;
  30.     procedure Button1Click(Sender: TObject);
  31.     procedure Button2Click(Sender: TObject);
  32.     procedure FormCreate(Sender: TObject);
  33.     procedure ScreenEncoder1FrameEnd(Sender: TObject;
  34.       const FrameCount: Cardinal; const IsIFrame, HasBitmapEvent: Boolean);
  35.   private
  36.     { Private declarations }
  37.     EmptyFrame: Integer;
  38.   public
  39.     { Public declarations }
  40.   end;
  42. var
  43.   Form1: TForm1;
  45. implementation
  47. {$R *.DFM}
  49. procedure TForm1.Button1Click(Sender: TObject);
  50. Var
  51.   i: Integer;
  52. begin
  53.   ScreenEncoder1.BlockDelay:= SpinEdit1.Value;
  54.   ScreenEncoder1.MaxBlockSize:= SpinEdit2.Value;
  55.   ScreenEncoder1.IFrame:= SpinEdit3.Value;
  56.   ScreenEncoder1.IFrameDelay:= SpinEdit4.Value;
  57.   Case ComboBox1.ItemIndex of
  58.     0: ScreenEncoder1.ThreadPriority:= tpIdle;
  59.     1: ScreenEncoder1.ThreadPriority:= tpLowest;
  60.     2: ScreenEncoder1.ThreadPriority:= tpLower;
  61.     3: ScreenEncoder1.ThreadPriority:= tpNormal;
  62.     4: ScreenEncoder1.ThreadPriority:= tpHigher;
  63.     5: ScreenEncoder1.ThreadPriority:= tpHighest;
  64.     6: ScreenEncoder1.ThreadPriority:= tpTimeCritical;
  65.     Else ScreenEncoder1.ThreadPriority:= tpNormal;
  66.   End;{CASE}
  67.   ScreenEncoder1.Active:= True;
  69.   For i:=0 to ControlCount-1 do
  70.     Controls[i].Enabled:= False;
  71.   Button2.Enabled:= True;
  72. end;
  74. procedure TForm1.Button2Click(Sender: TObject);
  75. Var
  76.   i: Integer;
  77. begin
  78.   ScreenEncoder1.Active:= False;
  80.   For i:=0 to ControlCount-1 do
  81.     Controls[i].Enabled:= True;
  82.   Button2.Enabled:= False;
  83. end;
  85. procedure TForm1.FormCreate(Sender: TObject);
  86. begin
  87.   EmptyFrame:= 0;
  88.   ComboBox1.ItemIndex:= 3;
  89. end;
  91. procedure TForm1.ScreenEncoder1FrameEnd(Sender: TObject;
  92.   const FrameCount: Cardinal; const IsIFrame, HasBitmapEvent: Boolean);
  93. begin
  94.   Label5.Caption:= IntToStr(FrameCount);
  95.   If Not HasBitmapEvent then
  96.     EmptyFrame:= EmptyFrame + 1;
  97.   Label8.Caption:= IntToStr(EmptyFrame);
  98. end;
  100. end.