У кого-нибудь есть пример передачи записи по TCP в INDY 10 , т
ак чтобы сервер передавал запись клиенту + интересует как клиент будет это принимать . Я уже все посмотрел , документацию почитал - ничего не понимаю (( сначала клиентское приложение зависало , даже с антифризом , потом сделал через таймер-перестала виснуть , зато не принимает сообщение.. короче я запутался вообще((
делаю вот так
сервер:
| Delphi |
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
| type
Tsoobshenie = Record
CenaVopr:integer;
Vopr:ShortString;
KolOtv:integer;
Otvet1:ShortString;
Otvet2:ShortString;
Otvet3:ShortString;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Button1.Tag=0) then
begin
Button1.Tag:=1;
IdTCPServer1.DefaultPort:=7777;
IdTCPServer1.Active:=True;
Button1.Caption:='отключиться';
end
else
begin
Button1.Tag:=0;
Button1.Caption:='подключиться';
IdTCPServer1.Active:=false;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var SMS : Tsoobshenie;
begin
with SMS do
begin
CenaVopr:=0;
Vopr:=Memo1.Lines[0];
KolOtv:=3;
Otvet1:=Memo2.Lines[0];
Otvet2:=Memo2.Lines[0];
Otvet3:=Memo2.Lines[0];
end;
Button2.Tag:=1;
end;
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
aBuffer: TBytes;
SMS : Tsoobshenie;
begin
Label1.Caption:='Клиент подключен';
if (Button2.Tag=1) then
begin
aBuffer := RawToBytes(SMS,sizeof(SMS));
AContext.Connection.Socket.Write(aBuffer);
Button1.Tag:=0;
end;
end;
end. |
|
клиент
| Delphi |
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
| type
Tsoobshenie = Record
CenaVopr:integer;
Vopr:ShortString;
KolOtv:integer;
Otvet1:ShortString;
Otvet2:ShortString;
Otvet3:ShortString;
end;
.......
procedure TKlientMod2Form.FormShow(Sender: TObject);
begin
try
IdTCPClient1.Connect;
Timer1.Enabled:=true;
except
on E:
Exception do
begin
MessageDlg ('Ошибка подключения, возможно сервер в отключке', mtError, [mbOk], 0); //on E: Exception do MessageDlg ('Ошибка подключения, возможно сервер в отключке'+#13+E.Message, mtError, [mbOk], 0);
IdTCPClient1.Disconnect;
end;
end;
end;
procedure TKlientMod2Form.Timer1Timer(Sender: TObject);
var
SMS: TSoobshenie;
Buf: TIdBytes;
O1,O2,O3:ShortString;
begin
IdTCPClient1.IOHandler.CheckForDataOnSource;
while not IdTCPClient1.IOHandler.InputBufferIsEmpty do
begin
IdTCPClient1.Socket.ReadBytes(buf,sizeof(SMS),TRUE);
BytesToRaw(buf, SMS, sizeof(SMS));
O1 := SMS.otvet1;
O2 := SMS.otvet2;
O3 := SMS.otvet3;
Memo1.Lines[0]:=O1;
Memo2.Lines[0]:=O2;
Memo3.Lines[0]:=O3;
end;
end; |
|
(
