vserver.~pa

远程桌面

unit vServer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, NMUDP, jpeg, IdBaseComponent, IdComponent,
  IdUDPBase, IdUDPServer, IdSocketHandle, WinSkinData;

type
  TForm1 = class(TForm)
    SUDP: TNMUDP;
    ScrollBox1: TScrollBox;
    Image1: TImage;
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SUDPDataReceived(Sender: TComponent; NumberBytes: Integer;
      FromIP: string; Port: Integer);
    procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses vserver2;

{$R *.dfm}

const BufSize = 2048;
var
  RsltStream, TmpStream: TMemoryStream;
  jpeg: TJPEGImage;
  bitmap: TBitmap;
procedure TForm1.FormCreate(Sender: TObject);
begin
  RsltStream := TMemoryStream.Create;
  TmpStream := TMemoryStream.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  RsltStream.Free;
  TmpStream.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ReqCode: array[0..29] of char; ReqCodeStr: string;
begin
  Button1.Enabled := False;
  ReqCodeStr := 'show' + Edit3.Text + ':';
  StrpCopy(ReqCode, ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost := Edit2.Text;
  SUDP.SendBuffer(ReqCode, 30);
end;

procedure TForm1.SUDPDataReceived(Sender: TComponent; NumberBytes: Integer;
  FromIP: string; Port: Integer);
var
  ReqCode: array[0..29] of char;
  ReqCodeStr: string;
begin
  ReqCodeStr := 'show' + Edit1.Text;
  StrpCopy(ReqCode, ReqCodeStr);
  SUDP.ReadStream(TmpStream);
  RsltStream.CopyFrom(TmpStream, NumberBytes);
  if NumberBytes < BufSize then { 数据已读完 }
  begin
    try
      RsltStream.SaveToFile('c:\aa.jpg');
      jpeg := TJPEGImage.Create;
      jpeg.LoadFromFile('c:\aa.jpg');
      bitmap := TBitmap.Create;
      bitmap.Assign(jpeg);

      jpeg.LoadFromFile('c:\aa.jpg');
      RsltStream.Position := 0;
      Image1.Picture.bitmap.Assign(bitmap);
    finally
      jpeg.Free;
      TmpStream.Clear;
      RsltStream.Clear;
      Button1.Enabled := True;
      DeleteFile('c:\aa.jpg');
    end;
  end
  else
  begin
    TmpStream.Clear;
    ReqCode := 'show';
    SUDP.RemoteHost := Edit2.Text;
    SUDP.SendBuffer(ReqCode, 30);
  end;
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  sss: string;
  ex: boolean;
  len, i: Integer;
begin
  ex := False;
  SetLength(sss, AData.Size);
  AData.Read(sss[1], AData.Size);
  len := length(sss);
  ShowMessage(sss);

end;

end.