Client
, .
ClientSocket :
Port=1025 ( , 1024, )
Active=False.
Addres= 127.0.0.1 ( , , . IP .
OnRead ClientSocket :
Var S:String;
Begin
S:=Socket.ReceiveText;ListBox1.Items.Add(S);
{
- }
If S='48 > Pricol' Then ShowMessage('');
end;
Begin
If Not ClientSocket1.Active Then ClientSocket1.Active:=True;
end;
Begin
ClientSocket1.Socket.SendText(Edit1.Text);
end;
Begin
ClientSocket1.Active:=False;Close;
end;
.
- Socket. .
- , .
- , , .
1. , , . .
2. . .
3. . - .
1. Windows Socket.
2. .
3. -
4. .
5. IP-.
6. ?