基于阻塞Socket(Indy)的远程控制类库-TNetCommand世界中的礼仪-0

zp243685064

zp243685064

2016-02-19 12:47

岁数大了,QQ也不闪了,微信也不响了,电话也不来了,但是图老师依旧坚持为大家推荐最精彩的内容,下面为大家精心准备的基于阻塞Socket(Indy)的远程控制类库-TNetCommand世界中的礼仪-0,希望大家看完后能赶快学习起来。

TNetImage类?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

源代码

// uNetImge .pas 屏幕图像相关操作

{{

作者:蛐蛐

时间:2004.5.26

}

unit uNetImage;

 

interface

uses

  Classes, Windows, Graphics, Forms, Jpeg, SysUtils,

  IdTCPServer, IdTCPClient,uNetCommand;

type

  TNetImage = class (TNetCommand)

  public

    Compress: Integer;

    ImageStream: TMemoryStream;

    ImageTime: string;

    JpegImage: TJpegImage;

    RemoteImageStream: TMemoryStream;

    RemoteJpegImage: TJpegImage;

    constructor Create;

    destructor Destroy; override;

   

    function ReadData(Client: TIdTCPClient): Boolean; override;

function ReadImage(Client: TIdTCPClient): Boolean;

 

    // : 截取屏幕到Bitmap

    {{

    function SnapScreen.

    BmpScreen 返回值.

    Returns: 调用成功为true,否则为false.

    }

function SnapScreen(var BmpScreen: TBitmap): Boolean; overload;

 

    // : 截取屏幕到JPEG

    {{

    function SnapScreen.

    JpegScreen 返回值 , JpegCompress 图像压缩比.

    Returns: 调用成功为true,否则为false.

    }

    function SnapScreen(var JpegScreen: TJpegImage; JpegCompress: integer=100):

        Boolean; overload;

 

    // : 截取屏幕到Stream

    {{

    function SnapScreenToStream.

    Stream 返回值, JpegCompress 图像压缩比.

    Returns: 调用成功为true,否则为false.

    }

    function SnapScreenToStream(var Stream: TMemoryStream; JpegCompress:

        integer=100): Boolean;

    function WriteData(Server: TIdTCPServerConnection): Boolean; override;

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

    function WriteImage(Server: TIdTCPServerConnection): Boolean;

  end;

 

const

  CM_GETSCREEN=101;

 

implementation

{

********************************** TNetImage ***********************************

}

constructor TNetImage.Create;

begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  inherited Create;

  ImageStream:=TMemoryStream.Create;

  JpegImage:=TJpegImage.Create;

  RemoteJpegImage:=TJpegImage.Create;

  RemoteImageStream:=TMemoryStream.Create;

end;

 

destructor TNetImage.Destroy;

begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  ImageStream.Free;

  JpegImage.Free;

  RemoteJpegImage.Free;

  RemoteImageStream.Free;

  inherited Destroy;

end;

 

function TNetImage.ReadData(Client: TIdTCPClient): Boolean;

begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  result:=true;

  //

  Client.WriteInteger(TCP_NETIMAGE);    // Client: 1. 通知主人,是我来拜访

  RemoteCommandTime:=Client.ReadLn();

  Client.WriteInteger(CommandType);  // Client 2. 看看老兄的屏幕

 

  case CommandType of    //

// Client: 3. 收到了,把它装到RemoteJpegImage

    CM_GETSCREEN: Result:=ReadImage(Client);

    {  预留操作项

    1: ;

    2: ;

    3: ;

    }

  end;    // case

end;

 

function TNetImage.ReadImage(Client: TIdTCPClient): Boolean;

var

  Size: Integer;

begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  result:=true;

  try

  with Client do

  begin

    WriteInteger(Compress);   // 2  compress

    Size:=ReadInteger();      // 3  StreamSize

    ReadStream(RemoteImageStream,Size);

    RemoteImageStream.Position:=0;

    RemoteJpegImage.LoadFromStream(RemoteImageStream);

  end;

  except

    result:=false;

  end;

end;

 

function TNetImage.SnapScreen(var BmpScreen: TBitmap): Boolean;

var

  FullScreenCanvas: TCanvas;

  dc: HDC;

  SourceRect, DestRect: TRect;

begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  result := true;

 

  try

    dc := GetDC(0);

    FullScreencanvas := Tcanvas.Create;

    FullScreencanvas.Handle := dc;

 

    BmpScreen.Width := Screen.Width;

    BmpScreen.Height := Screen.Height;

    SourceRect := Rect(0, 0, Screen.Width, Screen.Height); ;

    DestRect := Rect(0, 0, Screen.Width, Screen.Height); ;

    BmpScreen.Canvas.CopyRect(SourceRect, FullScreenCanvas, DestRect);

  except

     result := false;

  end;

end;

 

function TNetImage.SnapScreen(var JpegScreen: TJpegImage; JpegCompress:

    integer=100): Boolean;

begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

{… }

end;

 

function TNetImage.SnapScreenToStream(var Stream: TMemoryStream; JpegCompress: 

    integer=100): Boolean;

begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

{… }

end;

 

function TNetImage.WriteData(Server: TIdTCPServerConnection): Boolean;

begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  result:=true;

 

  Server.WriteLn(TimeToStr(GetTime));  // Send Time

  case Server.ReadInteger of    //  Get Commandtype

    // Server: 2. 小事一桩,把屏幕传给你,准备接受

    CM_GETSCREEN: Result:=WriteImage(Server) ;

    1: ;

    2: ;

    3: ;

  end;    // case

 

end;

 

function TNetImage.WriteImage(Server: TIdTCPServerConnection): Boolean;

var

  Stream: TMemoryStream;

begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  Stream:= TMemorySTream.Create;

 

  Compress:=Server.ReadInteger();    // 1  compress

 

  if SnapScreenToStream(Stream,Compress) then

  begin

    with Server do

    begin

      WriteInteger(Stream.Size);

      WriteStream(Stream);

    end;

    result:=true;

  end

  else

    result:= false;

 

  Stream.Free;

end;

 

end.

 

 

Server端核心程序

procedure TFrmServer.cpsServerExecute(AThread: TIdPeerThread);

var

  intCommand: Integer;

  netCommand: TNetCommand;

begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  With AThread.Connection do

  begin

    intCommand:=ReadInteger();      //  Server: 1. 究竟是谁来拜访

    case intCommand of

      TCP_NETIMAGE:     //  1.1原来是TNetImage

    netCommand:=TNetImage.Create;  // “主随客便”干脆换上TNetImage的行头

      TCP_NETSYSTEMINFO:

    netCommand:=TNetSystemInfo.Create;

      TCP_NETPROCESS:

    netCommand:=TNetProcess.Create;

      TCP_NETFILE:

    netCommand:=TNetFile.Create;

      {

      //if you have new class ,you can do like this

      TCP_NETEXITWINDOWS:

    netCommand:=TNetExitWindows.Create;

      TCP_NETMOUSE:

    netCommand:=TNetMouse.Create;

 

      }

      TCP_QUIT:

    Disconnect;

    else

      exit;

    end;

  end;

// Server : 1.2总要招待一下客人,问问需要些什么

  netCommand.WriteData(AThread.Connection);

end;

 

Client端请求得到对方屏幕

procedure TFrmClient.aNetImageGetScreenExecute(Sender: TObject);

var

  netImage: TNetImage;

begin

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  netImage:=TNetImage.Create;

netImage.CommandType:=CM_GETSCREEN; // 事件 Client: 想看看老兄的屏幕

  netImage.Compress:=netImageCompress;

  if not netImage.ReadData(cpcClient) then

  begin

    ShowMessage('截取屏幕失败!');

  end

  else begin

    imgScreen.Picture.Assign(netImage.RemoteJpegImage);

 

    sbInfo.Panels[0].Text:='截取屏幕成功';

  end;

  netImage.Free;

end;

 

TNetCommand世界中的礼仪

 

事件 Client: 想看看老兄的屏幕

netImage.CommandType:=CM_GETSCREEN; netImage.ReadData(cpcClient)

 

   

Client:

    1. 通知主人,是我来拜访Client.WriteInteger(TCP_NETIMAGE);

Server:

    1. 究竟是谁来拜访? intCommand:=ReadInteger(); 

    1.1原来是TNetImage,“主随客便”干脆换上TNetImage的行头

    netCommand:=TNetImage.Create;

    1.2总要招待一下客人,问问需要些什么

    netCommand.WriteData(AThread.Connection);

    1.3嘘寒问暖,一笔带过吧

    Server.WriteLn(TimeToStr(GetTime));…

           

Client:

    2. 看看老兄的屏幕

    Client.WriteInteger(CommandType); // CommandType:=CM_GETSCREEN

    Server:

    2. 小事一桩,把屏幕传给你,准备接受

    case Server.ReadInteger of   

        CM_GETSCREEN: Result:=WriteImage(Server) ;

    end; 

    

Client:

    3. 收到了,把它装到RemoteJpegImage

    case CommandType of  

        CM_GETSCREEN: Result:=ReadImage(Client);

    end;   

 

得到屏幕图像….    

   

展开更多 50%)
分享

猜你喜欢

基于阻塞Socket(Indy)的远程控制类库-TNetCommand世界中的礼仪-0

编程语言 网络编程
基于阻塞Socket(Indy)的远程控制类库-TNetCommand世界中的礼仪-0

Windows 系统中的远程控制

windows 操作系统
Windows 系统中的远程控制

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

数据库远程控制的ASP实现

ASP
数据库远程控制的ASP实现

Windows XP系统中的远程控制

windows 操作系统
Windows XP系统中的远程控制

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

向日葵远程控制软件如何实现远程控制

电脑网络
向日葵远程控制软件如何实现远程控制

Linux系统中如何实现远程控制

Linux Linux命令 Linux安装 Linux编程 Linux桌面 Linux软件 Linux内核 Linux管理
Linux系统中如何实现远程控制

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Delphi中取某整数的某位的位状态的小函数

Delphi中取某整数的某位的位状态的小函数

IE支持HTML5的解决方法

IE支持HTML5的解决方法
下拉加载更多内容 ↓