Соединение двух компьютеров через интернет

[SerAlex]

Всем добрый день. Я новичок в программировании, работаю со средой Delphi. У меня возникло желание написать программу, что-то вроде интернет месседжера, где с одного компьютера в программе пишешь, допустим, сообщение, а с другого это сообщение выводится, например, в лейбле. Но я не знаю, какие компоненты для этого нужны и каким образом это можно осуществить. Надеюсь на ваше понимание и поддержку.

[gufon]

Я тоже уже столько тем насоздовал и неодного ответа, а если нет беслого ип реально ли подключение подобного типа, у меня он статистический но у меня он идет один на сеть, то есть не у меня одного в моем городе такой ип)))

[grafgrial]

Все просто, есть во вкладке indy (TCPclient, TCPServer) или internet (SocketServer, SocketClient)
Создаете две проги в одной кидаете клиент в другой сервер. Создаете поля для отправки, получения, кнопки соединения, отправки.
А далее ищем в интернете тот способ что вы выбрали и смотрим что небходимо..

--
Насчет ip, можно написать функцию получения ип из инета и передачи ее клиенту или же на сайт (если у вас есть сайт). Так же есть сервисы типа no-ip .ru

[SerAlex]

Спасибо большое за помощь. А можете написать команду, чтобы label клиента принимал значение edit сервера? Интернет я уже долго облазиваю на этот счет.

[grafgrial]

сначала выбери на чем будешь писать, напиши, покажи код, а там уже более подробнее..

[Jetro]

Простой пример на сокетах:
На программу, которая будет отправлять данные бросаем ClientSocket, а на программу, которая будет принимать - Serversocket.

Отправка:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientSocket.Host := '127.0.0.1';
  ClientSocket.Port := 12345;
  Clientsocket.Active := True;
end;

procedure TForm1.ClientSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  Clientsocket.Socket.SendText('qwerty');
  Clientsocket.Active := False;
end;

Прием:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Serversocket.Port := 12345;
  Serversocket.Active := True;
end;

procedure TForm1.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
 begin
   Label1.Caption := Socket.ReceiveText;
end;

На счет TCPclient и TCPServer - как говорится "На вкус и цвет". Мне вот удобнее всего на сокетах данные слать, TCP мне кажется каким-то менее функциональным что-ли, и более громоздким.

По поводу динамического адреса - grafgrial все правильно написал. В интернете куча сервисов для таких случаев.

[SerAlex]

Сообщение от Jetro

Простой пример на сокетах:
На программу, которая будет отправлять данные бросаем ClientSocket, а на программу, которая будет принимать - Serversocket.

Отправка:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientSocket.Host := '127.0.0.1';
  ClientSocket.Port := 12345;
  Clientsocket.Active := True;
end;

procedure TForm1.ClientSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  Clientsocket.Socket.SendText('qwerty');
  Clientsocket.Active := False;
end;

Прием:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Serversocket.Port := 12345;
  Serversocket.Active := True;
end;

procedure TForm1.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
 begin
   Label1.Caption := Socket.ReceiveText;
end;

На счет TCPclient и TCPServer - как говорится "На вкус и цвет". Мне вот удобнее всего на сокетах данные слать, TCP мне кажется каким-то менее функциональным что-ли, и более громоздким.

По поводу динамического адреса - grafgrial все правильно написал. В интернете куча сервисов для таких случаев.

Огромное спасибо всем, ребят. Сейчас попробую.

[gufon]

у меня статистический, я же написал, но у половины города такойже

[spydark91]

grafgrial,

Насчет ip, можно написать функцию получения ип из инета и передачи ее клиенту

,можешь поподробнее?

[SerAlex]

Ну знаете, со статическим тоже не большая беда. Меня пока все радует и так. А IP другого компьютера можно и другим, не программным способом узнать.
И да, еще один вопрос по коду. Как можно отправить два текста. Вот если label1.caption:=Socket.ReceiveText, который мы написали в одном editе, а label2.caption:=текст, который мы написали в другом эдите. Для этого обязательно нужно создавать два компонента ServerSocketClientRead?