На конец то выбрался с делами и хочу продолжить тему данной ветки.
Я написал приложение как в примере, но не работает, т.к. там есть пару моментов которые я не могу так просто найти на просторах интернета в хороших примерах, а в программировании я не сильно спец.
Выкладываю сюда как архив , так и код. Все на FMX. Максимально старался повторить код.
Получаю ошибку (естественно) при компиляции
1.
[DCC Error] Unit6.pas(74): E2003 Undeclared identifier: 'Data'
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
unit Unit6;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
IdTCPConnection, IdTCPClient, IdBaseComponent, IdComponent, IdCustomTCPServer,
IdTCPServer, FMX.Layouts, FMX.ListBox, FMX.StdCtrls, FMX.Edit,
FMX.Controls.Presentation,IdContext,System.SyncObjs;
type
TForm6 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
ListBox1: TListBox;
Label2: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Label3: TLabel;
Button2: TButton;
Button3: TButton;
Edit4: TEdit;
Label4: TLabel;
ListBox2: TListBox;
Edit6: TEdit;
Label6: TLabel;
Button4: TButton;
Server: TIdTCPServer;
Client: TIdTCPClient;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure ServerExecute(AContext: TIdContext);
procedure ServerDisconnect(AContext: TIdContext);
procedure ServerConnect(AContext: TIdContext);
procedure ClientConnected(Sender: TObject);
procedure ClientDisconnected(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TClientData = class
Id : integer;
end;
var
Form6: TForm6;
MaxId : integer = 0;
implementation
{$R *.fmx}
procedure TForm6.Button1Click(Sender: TObject);
begin
Server.Active:=False;
Server.DefaultPort:=StrToIntDef(Edit1.Text,0);
Server.Active:=True;
end;
procedure TForm6.Button2Click(Sender: TObject);
begin
var id:=StrToIntDef(Edit2.Text,0);
var List:=Server.Contexts.LockList;
try
for var Context: TIdContext in List do begin
if TClientData(Context.Data).Id=Id then begin
Context.Connection.IOHandler.WriteLn(Edit3.Text);
end;
end;
finally
Server.Contexts.UnlockList;
end;
end;
procedure TForm6.Button3Click(Sender: TObject);
begin
Client.Disconnect;
Client.Host:=Edit4.Text;
Client.Port:=StrToIntDef(Edit1.Text,0);
Client.Connect;
end;
procedure TForm6.Button4Click(Sender: TObject);
begin
Client.IOHandler.WriteLn(Edit6.Text);
end;
procedure TForm6.ClientConnected(Sender: TObject);
begin
Timer1.Enabled:=True;
end;
procedure TForm6.ClientDisconnected(Sender: TObject);
begin
Timer1.Enabled:=False;
end;
procedure TForm6.ServerConnect(AContext: TIdContext);
begin
var CD:=TClientData.Create;
CD.Id:=TInterlocked.Increment(MaxId);
AContext.Data:=CD;
ListBox1.Items.Add('Connected '+AContext.Binding.PeerIP+ ' id = '+CD.Id.ToString);
Edit2.Text:=CD.Id.ToString;
end;
procedure TForm6.ServerDisconnect(AContext: TIdContext);
begin
ListBox1.Items.Add('Disconnected '+AContext.Binding.PeerIP+ ' id = '+TClientData(AContext.Data).Id.ToString);
end;
procedure TForm6.ServerExecute(AContext: TIdContext);
begin
ListBox1.Items.Add('ClientId ['+TClientData(AContext.Data).Id.ToString+'] Message: '+AContext.Connection.Socket.ReadLn);
end;
procedure TForm6.Timer1Timer(Sender: TObject);
begin
if Assigned(Client) and Client.IOHandler.Opened and Client.IOHandler.Readable(1) then begin
ListBox2.Items.Add(Client.IOHandler.ReadLn);
end;
end;
end.
