unit BoatMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzCommon, Menus, ExtCtrls, RzPanel, RzButton, RzGroupBar,
  ScktComp, RzStatus,jpeg, StdCtrls, Mask, RzEdit, RzSplit,Image,GPS,Sensor;

type
  TMainForm = class(TForm)
    MainMenu: TMainMenu;
    RzMenuController: TRzMenuController;
    N1: TMenuItem;
    RzToolbar: TRzToolbar;
    btnImage: TRzToolButton;
    rzspcr1: TRzSpacer;
    btnGPS: TRzToolButton;
    rzspcr2: TRzSpacer;
    RzGroupBoxServer: TRzGroupBox;
    RzGroupBoxImage: TRzGroupBox;
    RzGroupBar1: TRzGroupBar;
    RzGroupImage: TRzGroup;
    rzgrpGPS: TRzGroup;
    Image: TImage;
    serverImageControl: TServerSocket;
    serverImage: TServerSocket;
    serverGPS: TServerSocket;
    RzStatusBar1: TRzStatusBar;
    RzStatusPane1: TRzStatusPane;
    RzStatusPaneImage: TRzStatusPane;
    RzStatusPaneGPS: TRzStatusPane;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure RzGroupImageItems0Click(Sender: TObject);
    procedure RzGroupImageItems1Click(Sender: TObject);
    procedure serverImageControlAccept(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure serverImageControlClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure serverImageControlClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure serverImageClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure rzgrpGPSItems0Click(Sender: TObject);
    procedure rzgrpGPSItems1Click(Sender: TObject);
    procedure serverGPSAccept(Sender: TObject; Socket: TCustomWinSocket);
    procedure serverGPSClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure serverGPSClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure btnImageClick(Sender: TObject);
    procedure btnGPSClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure rzgrpGPSItems5Click(Sender: TObject);
    procedure rzgrpGPSItems6Click(Sender: TObject);
    procedure rzgrpGPSItems7Click(Sender: TObject);
//    procedure rzgrpGPSItems1Click1(Sender: TObject);
//    procedure rzgrpGPSItems9Click(Sender: TObject);
//    procedure rzgrpGPSItems10Click(Sender: TObject);
    procedure rzgrpGPSItems8Click(Sender: TObject);
    procedure rzgrpGPSItems2Click(Sender: TObject);
    procedure rzgrpGPSItems3Click(Sender: TObject);
    procedure rzgrpGPSItems4Click(Sender: TObject);
  private
    { Private declarations }
    mImage : TMemoryStream;
    ImageSizeStr:string; //客戶端發過來的圖片大小字符串
    s:Integer;
    ImageTransFlg : Boolean;//圖像傳送標志位，true為傳送，false為不傳送
    i : Integer;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

(**********************************************************************)
{服務器控制模塊}

{顯示實時圖像信息窗口}
procedure TMainForm.btnImageClick(Sender: TObject);
begin
  FormImage.Visible := True;
end;

{顯示實時GPS信息窗口}
procedure TMainForm.btnGPSClick(Sender: TObject);
begin
  FormGPS.Visible := True;
end;
{***********************************************************}
{以下為圖像傳送模塊}

{啟動圖像服務器}
procedure TMainForm.RzGroupImageItems0Click(Sender: TObject);
begin
  if serverImageControl.Active = True then
    serverImageControl.Active := False;
  try
    serverImageControl.Active := True;
  except
    ShowMessage('圖像傳輸控制服務啟動失敗！');
  end;

  if serverImage.Active = True then
    serverImage.Active := False;
  try
    serverImage.Active := True;
    RzStatusPaneImage.Caption := ' 圖像Server啟動！';
    FormImage.edtImageServerState.text := 'Server已經啟動！';
    FormImage.mmoImageServer.Lines.Add('圖像Server已經啟動！');
  except
    ShowMessage('圖像Server啟動失敗！');
    FormImage.edtImageServerState.text := 'Server啟動失敗！';
    FormImage.mmoImageServer.Lines.Add('圖像Server啟動失敗！');
  end;
  
  mImage := TMemoryStream.Create;
  ImageTransFlg := False;
end;

{停止圖像服務器}
procedure TMainForm.RzGroupImageItems1Click(Sender: TObject);
begin
  if serverImageControl.Active then
    serverImageControl.Active := False;
  if serverImage.Active then
    serverImage.Active := True;
  RzStatusPaneImage.Caption := ' 圖像Server停止！';
  FormImage.edtImageServerState.text := 'Server已經停止！';
  FormImage.mmoImageServer.Lines.Add('圖像Server已經停止！');

  mImage.free;
end;

{圖像客戶端連接}
procedure TMainForm.serverImageControlAccept(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  RzStatusPaneImage.Caption := ' 圖像客戶端'
                              + Socket.RemoteAddress
                              + '連接';
  FormImage.mmoImageServer.Lines.Add(' 圖像客戶端'
                                      + Socket.RemoteAddress
                                      + '已經連接');
end;

{圖像客戶端斷開}
procedure TMainForm.serverImageControlClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  RzStatusPaneImage.Caption := ' 圖像客戶端'
                              + Socket.RemoteAddress
                              + '斷開';
  FormImage.mmoImageServer.Lines.Add(' 圖像客戶端'
                                      + Socket.RemoteAddress
                                      + '已經斷開');
end;

{傳送圖像大小}
procedure TMainForm.serverImageControlClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  mImage.Clear; //清空圖片內存流
  
  ImageSizeStr:=socket.ReceiveText;
  s:=strtoint(ImageSizeStr); //設置需接收的字節數
  FormImage.mmoImageTrans.Lines.Add('收到圖片大小為'+ImageSizeStr+'字節');
  Socket.sendtext('ok'); //通知服務端開始發送圖象
  FormImage.mmoImageTrans.Lines.Add('開始接收圖片！');
end;

{傳送圖像}
procedure TMainForm.serverImageClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  buffer:array [0..8191] of byte; //設置接收緩沖區
  len:integer;
  j:tjpegimage;
begin
  len:=socket.ReceiveLength;
  socket.ReceiveBuf(buffer,len); //接收數據包并讀入緩沖區內
  mImage.Write(buffer,len); //追加入流M中
  if mImage.Size >= s then
  begin
    mImage.Position:=0;
    j:=tjpegimage.Create;
    try
      //mImage.Seek(0,soFromBeginning);
      mImage.Seek(0,s);
      j.LoadFromStream(mImage); //將流M中的數據讀至JPG圖像對象J中
      Image.Picture.Bitmap.Assign(j);

      Socket.SendText('ok');
    finally //以下為清除工作
      j.free;
      mImage.Clear;
      FormImage.mmoImageTrans.Lines.Add('圖像傳送完畢！');
    end;
end;
end;

{***************************************************************}
{以下為GPS模塊}

{啟動GPS服務器}
procedure TMainForm.rzgrpGPSItems0Click(Sender: TObject);
begin
  if serverGPS.Active then
    serverGPS.Active := False;
  try
    serverGPS.Active := True;
    RzStatusPaneGPS.Caption := '控制 Server已經啟動！';
    FormGPS.edtGPSState.Text := 'Server已經啟動！';
    FormGPS.mmoGPSServer.Lines.Add('控制 Server已經啟動！');
  except
    ShowMessage('控制服務啟動失敗！');
    FormGPS.edtGPSState.Text := 'Server啟動失敗！';
    FormGPS.mmoGPSServer.Lines.Add('控制 Server啟動失敗！');
  end;
  i := 0;
end;

{停止GPS服務器}
procedure TMainForm.rzgrpGPSItems1Click(Sender: TObject);
begin
  if serverGPS.Socket.ActiveConnections > 0 then
    begin
      serverGPS.Socket.Connections[0].SendText('DISL');
      FormGPS.mmoGPSTrans.Lines.Add('DISL！');
    end;
  serverGPS.Active := False;
  serverGPS.Close;
  RzStatusPaneGPS.Caption := '控制 Server已經停止！';
  FormGPS.edtGPSState.Text := 'Server已經停止！';
  FormGPS.mmoGPSServer.Lines.Add('控制 Server已經停止！');
end;


{GPS客戶端連接}
procedure TMainForm.serverGPSAccept(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  RzStatusPaneGPS.Caption := '控制 '
                              + Socket.RemoteAddress
                              + '連接';
  FormGPS.mmoGPSServer.Lines.Add('控制 '
                              + Socket.RemoteAddress
                              + '連接');
end;

{GPS客戶端斷開}
procedure TMainForm.serverGPSClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  RzStatusPaneGPS.Caption := '控制 '
                              + Socket.RemoteAddress
                              + '斷開';
    FormGPS.mmoGPSServer.Lines.Add('控制 '
                              + Socket.RemoteAddress
                              + '斷開');
end;

{傳送GPS信息}
procedure TMainForm.serverGPSClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  GPSstr : string;
begin
  GPSstr := Socket.ReceiveText;
  FormGPS.mmoGPSTrans.Lines.Add('對方收到' + GPSstr);
 {
  if GPSstr = 'GO' then
    FormGPS.mmoGPSTrans.Lines.Add('對方收到GO命令！');

  if GPSstr = 'BACK' then
    FormGPS.mmoGPSTrans.Lines.Add('對方收到BACK命令！');

  if GPSstr = 'UP' then
    FormGPS.mmoGPSTrans.Lines.Add('對方收到UP命令！');

  if GPSstr = 'DOWN' then
    FormGPS.mmoGPSTrans.Lines.Add('對方收到DOWN命令！');

  if GPSstr = 'LEFT' then
    FormGPS.mmoGPSTrans.Lines.Add('對方收到LEFT命令！');

  if GPSstr = 'RIGHT' then
    FormGPS.mmoGPSTrans.Lines.Add('對方收到RIGHT命令！')
 }
end;



{離開主窗口}
procedure TMainForm.N2Click(Sender: TObject);
begin
  MainForm.Close;
end;


//Go
procedure TMainForm.rzgrpGPSItems2Click(Sender: TObject);
begin
  if serverGPS.Socket.ActiveConnections > 0 then
    begin
      serverGPS.Socket.Connections[0].SendText('GO');
      FormGPS.mmoGPSTrans.Lines.Add('GO！');
    end;
end;

//BACK
procedure TMainForm.rzgrpGPSItems3Click(Sender: TObject);
begin
  if serverGPS.Socket.ActiveConnections > 0 then
    begin
      serverGPS.Socket.Connections[0].SendText('BACK');
      FormGPS.mmoGPSTrans.Lines.Add('BACK！');
    end;
end;

procedure TMainForm.rzgrpGPSItems4Click(Sender: TObject);
begin
  if serverGPS.Socket.ActiveConnections > 0 then
    begin
      serverGPS.Socket.Connections[0].SendText('STOP');
      FormGPS.mmoGPSTrans.Lines.Add('STOP！');
    end;
end;

//LEFT
procedure TMainForm.rzgrpGPSItems5Click(Sender: TObject);
begin
  if serverGPS.Socket.ActiveConnections > 0 then
    begin
      serverGPS.Socket.Connections[0].SendText('LEFT');
      FormGPS.mmoGPSTrans.Lines.Add('LEFT！');
    end;
end;

//RIGHT
procedure TMainForm.rzgrpGPSItems6Click(Sender: TObject);
begin
  if serverGPS.Socket.ActiveConnections > 0 then
    begin
      serverGPS.Socket.Connections[0].SendText('RIGHT');
      FormGPS.mmoGPSTrans.Lines.Add('RIGHT！');
    end;
end;

//UP
procedure TMainForm.rzgrpGPSItems7Click(Sender: TObject);
begin
  if serverGPS.Socket.ActiveConnections > 0 then
    begin
      serverGPS.Socket.Connections[0].SendText('UP');
      FormGPS.mmoGPSTrans.Lines.Add('UP！');
    end;
end;

//DOWN
procedure TMainForm.rzgrpGPSItems8Click(Sender: TObject);
begin
  if serverGPS.Socket.ActiveConnections > 0 then
    begin
      serverGPS.Socket.Connections[0].SendText('DOWN');
      FormGPS.mmoGPSTrans.Lines.Add('DOWN！');
    end;
end;

end.