DELPHI 10.3 IdTcpClient ANDROID发送数据（含十六进制）实例

DELPHI 10.3 IdTcpClient ANDROID发送数据（含十六进制）实例

unit Unit1;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.Classes,

System.Variants, math,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ScrollBox,

FMX.Memo, FMX.StdCtrls, FMX.Controls.Presentation, FMX.Edit, IdBaseComponent,

IdComponent, IdTCPConnection, IdTCPClient;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Memo1: TMemo;

Label1: TLabel;

IdTCPClient1: TIdTCPClient;

Button4: TButton;

CheckBox1: TCheckBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure IdTCPClient1Connected(Sender: TObject);

procedure IdTCPClient1Disconnected(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{undefinedKaTeX parse error: Expected 'EOF', got '}' at position 8: R *.fmx}̲ {R *.NmXhdpiPh.fmx ANDROID}

procedure TForm1.Button1Click(Sender: TObject);

begin

IdTCPClient1.Host := Edit1.Text;

IdTCPClient1.Port := STRTOINT(Edit2.Text);

if not IdTCPClient1.Connected THEN

begin

try

IdTCPClient1.Connect;

Memo1.Lines.Add(‘socke连接已经成功建立！’);

except

ShowMessage(‘连接失败,请检查连接设置!’);

end;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

try

IdTCPClient1.Disconnect;

Memo1.Lines.Add(‘socket连接已断开！’);

except

ShowMessage(‘断开连接时出错!’);

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Memo1.Lines.Clear;

end;

procedure TForm1.Button3Click(Sender: TObject);

var

s_send, s_hex, s: string;

i, j: Integer;

begin

if IdTCPClient1.Connected then

begin

if CheckBox1.IsChecked then

begin

  s_send := Edit3.Text;

  j := length(s_send) div 2;

  for i := 1 to j do

    s_hex := s_hex + char(STRTOINT('$' + copy(s_send, (2 * i - 1), 2)));

  IdTCPClient1.Socket.WriteLn(s_hex);

  Memo1.Lines.Add('十六进制数据发送成功：' + s_hex);

end

else

begin

  IdTCPClient1.Socket.WriteLn(Edit3.Text);

  Memo1.Lines.Add('数据发送成功：' + Edit3.Text);

end;

end

else

Memo1.Lines.Add(‘远程服务器已经断开！’);

end;

procedure TForm1.IdTCPClient1Connected(Sender: TObject);

begin

Memo1.Lines.Add(‘已连接到服务器！’);

end;

procedure TForm1.IdTCPClient1Disconnected(Sender: TObject);

begin

Memo1.Lines.Add(‘已经断开服务器’);

end;

end.