getscreen.pas

一个远程监控程序

unit GetScreen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus;

type
  Tfrmgetscreen = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    PopupMenu1: TPopupMenu;
    A1: TMenuItem;
    X1: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmgetscreen: Tfrmgetscreen;

implementation

uses Umain, JPG;
{$R *.dfm}

procedure Tfrmgetscreen.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frmClient.State:=stWait;
  Timer1.Enabled:=false;
  Reset(frmClient.opFile);
end;

procedure Tfrmgetscreen.Timer1Timer(Sender: TObject);
var
   len      : integer;
   buf   : array [0..1023] of byte;
   opFile: file of byte;
begin
  if frmClient.State = stWait then
  begin
{    Len := FrmClient.ClntSocket.Socket.ReceiveLength;
    frmClient.ClntSocket.Socket.ReceiveBuf(buf,Len);
    blockWrite(opFile,buf,Len);
    if Len < sizeof(buf) then
    begin
//      JPEG_Screen.LoadFromStream(TmpStream);}
{      JPEG_Screen.LoadFromFile('C:\Pirate.jpg');
      frmgetscreen.Image1.Picture.Assign(JPEG_Screen);}
      frmClient.ClntSocket.Socket.SendText('spy'+IntToStr(frmJPG.TrackBar1.Position));
      assignFile(frmClient.opFile,'C:\Pirate.jpg');
      rewrite(frmClient.opFile);
      frmClient.State := stSpy;
      Timer1.Enabled:=False;
{    end else begin
       frmClient.ClntSocket.Socket.SendText('next'); }
    End;
end;


procedure Tfrmgetscreen.X1Click(Sender: TObject);
begin
  Close;
end;

procedure Tfrmgetscreen.A1Click(Sender: TObject);
begin
  self.BorderStyle:=bsNone;
end;

end.