Версия для печати темы

Автор: cross 3.12.2006 17:03

Всем привет.... Начал осваивать сокеты
сделал, сервер и клиент, почему на компе эти две программки договариваются, а в инете нет?
СЕРВЕр

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

Автор: hiv 5.12.2006 19:35

IP-адреса клиента и сервера в студию!