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

最新推荐文章于 2024-10-15 13:27:45 发布

XINWEICO

最新推荐文章于 2024-10-15 13:27:45 发布

阅读量2.1k

点赞数 1

文章标签： delphi 10.3 IdTcpClient发送数据

本文链接：https://blog.csdn.net/nzwzyy/article/details/100863958

版权

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: TObj