Всем привет.... Начал осваивать сокеты
сделал, сервер и клиент, почему на компе эти две программки договариваются, а в инете нет?
СЕРВЕр
procedure TForm1.Button1Click(Sender: TObject);
begin
server.Port:=StrToINt(edit1.Text);
server.Active:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
server.Active:=false;
shape1.Brush.Color:=clred;
end;
procedure TForm1.ServerClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
label1.Caption:='на связи';
end;
procedure TForm1.ServerAccept(Sender: TObject; Socket: TCustomWinSocket);
begin
label1.Caption:='Accepted';
end;
procedure TForm1.ServerClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
label1.Caption:='отлючен';
end;
procedure TForm1.ServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
label1.Caption:=socket.ReceiveText;
end;
procedure TForm1.ServerListen(Sender: TObject; Socket: TCustomWinSocket);
begin
shape1.Brush.Color:=clgreen;
end;
Клиент
procedure TForm1.Button1Click(Sender: TObject);
begin
client1.Port:=strToINt(edit3.Text);
if radiobutton1.Checked then client1.Host:=edit1.Text else
if radiobutton2.Checked then client1.Address:=edit2.Text;
client1.Active:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
client1.Socket.SendText(label2.Caption);
//client1.Active:=false;
end;
procedure TForm1.Client1Error(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ShowMessage('There were some errors. Please report to Micorosoft.');
ErrorCode := 0;
end;
procedure TForm1.Client1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
label1.Caption:='non on line';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
client1.Active:=false;
end;
procedure TForm1.Client1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
label1.Caption:='on line';
end;
использовал порты 8000, 12345, 21554
