Цитата:
|
Сообщение от PhoeniX
Можно.
Есть UDP, есть UPnP, в конце концов - можно сделать TCP-сервером один из клиентов. Вариантов много, дерзайте.
|
Да не выйдет, мне кажется. Я сижу с wifi, т.е. по факту нахожусь в локалке, которая имеет доступ в интернет, значит ip именно моей машинки можно узнать только подключившись к локалке, а мой внешний ip, с которым я гуляю в интернете - это ip сервера в локалке, который раздает wifi. Ну ок. Вот рядом со мной другой комп со статическим внешним IP, т.е. все как надо.
Проверка idUDPclient/server
Тест №1. Запустил серверное приложение на ПК с внешним статическим ip, приконнектился с ноута, подключенного к wifi - все ок, сообщения приходят, связь есть.
Тест №2. Запустил серверное приложение на ноуте, подключенном к wifi, приконнектился с ПК - связи нет, ничего не приходит!
Исходник сервера(свойство bindings выбирал all, все ip'ы):
Код:
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
begin
memo1.Lines.LoadFromStream(adata);
end;
Исходник клиента:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
idudpclient1.Send(edit1.text);
end;