unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls, ExtCtrls,jpeg, Animate,Zlib;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    ClientSocket1: TClientSocket;
    Timer1: TTimer;
    Button3: TButton;
    Panel1: TPanel;
    AnimatedImage1: TAnimatedImage;
    Bevel1: TBevel;
    Label2: TLabel;
    RadioButton1: TRadioButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
Form1: TForm1;
c:longint;
m:tmemorystream;
ff:boolean;
implementation
uses Unit3;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
try
clientsocket1.Close;
clientsocket1.Host:=edit1.text;
clientsocket1.Open; //連接服務端
except
showmessage(edit1.text+#13#10+'未開機或未安裝服務程序');
end;
//Timer1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//clientsocket1.Socket.SendText('gets');
//clientsocket1.Socket.SendText('gets'); //發送申請，通知服務端需要屏幕圖象
Timer1.Enabled:=true;
//clientsocket1.Socket.SendText('gets'); //發送申請，通知服務端需要屏幕圖象
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
caption:='連接到'+edit1.text;
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
caption:='連接'+edit1.text+'失敗';
showmessage(edit1.text+#13#10+'未開機或未安裝服務程序');
errorcode:=0;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
buffer:array [0..20000] of byte; //設置接收緩沖區
len:integer;
ll:string;
b:tbitmap;
j:tjpegimage;
begin
try
if c=0 then //C為服務端發送的字節數，如果為0表示為尚未開始圖象接收
begin
ff:=false;
ll:=socket.ReceiveText;
c:=strtoint(ll); //設置需接收的字節數
clientsocket1.Socket.SendText('okok'); //通知服務端開始發送圖象
end else
begin //以下為圖象數據接收部分
len:=socket.ReceiveLength; //讀出包長度
socket.ReceiveBuf(buffer,len); //接收數據包并讀入緩沖區內
m.Write(buffer,len); //追加入流M中
if m.Size>=c then //如果流長度大于需接收的字節數，則接收完畢
begin
ff:=true;
m.Position:=0;
b:=tbitmap.Create;
j:=tjpegimage.Create;
try
j.LoadFromStream(m); //將流M中的數據讀至JPG圖像對象J中
b.Assign(j); //將JPG轉為BMP
//Image1.Picture.Bitmap.Assign(b); //分配給image1元件
//Image1.Picture.Bitmap:=b;
AnimatedImage1.Glyph.Assign(b);
finally //以下為清除工作
b.free;
j.free;
//clientsocket1.Socket.SendText('gets');
clientsocket1.Active:=false;
clientsocket1.Active:=true;
m.Clear;
c:=0;
end;
end;
end;
except
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
m:=tmemorystream.Create;
Button1.Click;
ff:=true;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
m.free;
ClientSocket1.Close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ff then
begin
if RadioButton1.Checked then
clientsocket1.Socket.SendText('gets') else
clientsocket1.Socket.SendText('gets1');
end;
 //發送申請，通知服務端需要屏幕圖象
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Timer1.Enabled:=false;
//stopThread;
end;



end.