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

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

驱动编程

开发平台：

Delphi

clnMain.pas：源码内容
  1. unit clnMain;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ScrSpy, Menus;
  9. type
  10.   TForm1 = class(TForm)
  11.     ScreenPlayer1: TScreenPlayer;
  12.     PopupMenu1: TPopupMenu;
  13.     FullScreen1: TMenuItem;
  14.     Restore1: TMenuItem;
  15.     procedure ScreenPlayer1HeaderUpdate(Sender: TObject);
  16.     procedure ScreenPlayer1ScreenBitmap(Sender: TObject;
  17.       const Block: TScreenBlock);
  18.     procedure FormCreate(Sender: TObject);
  19.     procedure ScreenPlayer1FrameEnd(Sender: TObject;
  20.       const FrameCount: Cardinal; const IsIFrame, HasBitmapEvent: Boolean);
  21.     procedure FormResize(Sender: TObject);
  22.     procedure FullScreen1Click(Sender: TObject);
  23.     procedure Restore1Click(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.     XRate, YRate: Extended;
  27.     HasServer: Boolean;
  28.     BMP: array of TBitmap;
  29.     BMPBound: array of TRect;
  30.     Updated: array of Boolean;
  31.     Count: Integer;
  32.   public
  33.     { Public declarations }
  34.   end;
  36. var
  37.   Form1: TForm1;
  39. implementation
  41. {$R *.DFM}
  43. procedure TForm1.ScreenPlayer1HeaderUpdate(Sender: TObject);
  44. Var
  45.   i: Integer;
  46. begin
  47.   HasServer:= True;
  48.   XRate:= ClientWidth / ScreenPlayer1.ScreenWidth;
  49.   YRate:= ClientHeight / ScreenPlayer1.ScreenHeight;
  51.   For i:=0 to Count-1 do
  52.     BMP[i].Free;
  53.   Count:= ScreenPlayer1.BlockCount;
  54.   SetLength(BMP, Count);
  55.   SetLength(Updated, Count);
  56.   SetLength(BMPBound, Count);
  57.   For i:=0 to Count-1 do
  58.   Begin
  59.     BMP[i]:= TBitmap.Create;
  60.     BMP[i].HandleType:= bmDIB;
  61.     BMP[i].Width:= ScreenPlayer1.ScreenWidth;
  62.     BMP[i].Height:= ScreenPlayer1.ScreenHeight;
  63.     BMP[i].PixelFormat:= ScreenPlayer1.PixelFormat;
  64.   End;
  65. end;
  67. procedure TForm1.ScreenPlayer1ScreenBitmap(Sender: TObject;
  68.   const Block: TScreenBlock);
  69. begin
  70.   BMP[Block.BlockIndex].Assign(Block.BMP);
  71.   BMPBound[Block.BlockIndex]:= Block.Bound;
  72.   Updated[Block.BlockIndex]:= True;
  73. end;
  75. procedure TForm1.FormCreate(Sender: TObject);
  76. begin
  77.   HasServer:= False;
  78.   Count:= 0;
  79. end;
  81. procedure TForm1.ScreenPlayer1FrameEnd(Sender: TObject;
  82.   const FrameCount: Cardinal; const IsIFrame, HasBitmapEvent: Boolean);
  83. Var
  84.   i: Integer;
  85.   R: TRect;
  86. begin
  87.   If HasBitmapEvent then
  88.   Begin
  89.     For i:=0 to Count-1 do
  90.       If Updated[i] then
  91.       Begin
  92.         R:= Rect(Round(BMPBound[i].Left*XRate), Round(BMPBound[i].Top*YRate), Round(BMPBound[i].Right*XRate), Round(BMPBound[i].Bottom*YRate));
  93.         Canvas.StretchDraw(R, BMP[i]);
  94.         Updated[i]:= False;
  95.       End;
  96.   End;
  97. end;
  99. procedure TForm1.FormResize(Sender: TObject);
  100. begin
  101.   If HasServer then
  102.   Begin
  103.     XRate:= ClientWidth / ScreenPlayer1.ScreenWidth;
  104.     YRate:= ClientHeight / ScreenPlayer1.ScreenHeight;
  105.   End;
  106. end;
  108. procedure TForm1.FullScreen1Click(Sender: TObject);
  109. begin
  110.   BorderStyle:= bsNone;
  111.   WindowState:= wsMaximized;
  112. end;
  114. procedure TForm1.Restore1Click(Sender: TObject);
  115. begin
  116.   BorderStyle:= bsSizeable;
  117.   WindowState:= wsNormal;
  118. end;
  120. end.