Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 06.09.2015, 18:07
proshka proshka вне форума
Прохожий
 
Регистрация: 06.09.2015
Сообщения: 5
Версия Delphi: Delphi XE8
Репутация: 10
По умолчанию Работа с ICQ или XMPP в Delphi XE8

Добрый день!
Пишу программу в Delphi XE8. Требуется, чтобы программа получала команды удаленно по интернету (и отвечала на эти команды).
Команды редкие. 2-3 раза в день.
Белого Ip нет (DataSnap не получится использовать). Как организовать удаленное управление?
Были идеи:
1. использовать ICQ (но для Delphi XE8 не нашел работающего компонента).
2. использовать jabber (также под XE8 не смог найти ничего работающего. самому написать знаний не хватит)
3. управлять через e-mail. Показалось не совсем удобным.

Кто подскажет, как это можно сделать?
Может у кого есть готовые примеры использования icq/jabber в Delphi XE8?

(PS. IP*Works для Delphi XE8 не нашел)
Ответить с цитированием
  #2  
Старый 06.09.2015, 20:10
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,057
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

REST + DynamicDNS
Первое обеспечивает простую реализацию команд управления через http/https
Второе - соединение "снаружи".
Ответить с цитированием
  #3  
Старый 06.09.2015, 20:36
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

без белого IP и стороннего сервера не обойтися
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #4  
Старый 06.09.2015, 21:21
proshka proshka вне форума
Прохожий
 
Регистрация: 06.09.2015
Сообщения: 5
Версия Delphi: Delphi XE8
Репутация: 10
По умолчанию

Цитата:
Сообщение от lmikle
REST + DynamicDNS
Благодарю за идею!
А обычный DataSnap + DynamicDNS можно же использовать?

Последний раз редактировалось proshka, 06.09.2015 в 21:51.
Ответить с цитированием
  #5  
Старый 06.09.2015, 22:02
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,057
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от NumLock
без белого IP и стороннего сервера не обойтися

Вот для этого DynamicDNS и нужен

ЗЫ. Это не компонент, это сервис как раз для таких случаев.

Цитата:
Сообщение от proshka
Благодарю за идею!
А обычный DataSnap + DynamicDNS можно же использовать?

Наверное, можно. Только использовать DataSnap для 2-3 вызовов в день - overkill какой-то.

ЗЫ. А сервак можно бесплатно поиметь на амазоне. По крайней мере Linux точно, про винду надо посмотреть.
Ответить с цитированием
  #6  
Старый 07.09.2015, 08:11
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

так DynDNS нужен только для связывания динамического IP адреса со статическим доменным именем. если IP серый, то такое связывание не имеет смысла, ибо до хоста с серым IP (через доменное имя) достучаться не реально. некоторые провайдеры, ака Ростелеком, предоставляют белый динамический IP, который при каждой перезагрузке и ежесуточной новой сессии дает новый IP адрес. так вот DynDNS в этом случае просто счастье. а вот МТС за внешний+статический адрес просят денежку. большинство правильных модемов/роутеров поддерживают сервис http://dyn.com/dns/ но если, к примеру, модем/роутер находится за NAT'ом провайдера, т.е. имеет серый IP, доступ к нему из вне не получить.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #7  
Старый 07.09.2015, 22:34
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,057
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну придется NAT правильно настроить. У меня даже в древнем DLink'е была возможность пробросить адрес. А уж современные модемы вполне с этим справятся. Более того, обычно при подключении по ADSL и "выше", модем получает белый, но не статический IP. Т.е. с ним все должно работать. Остается только пробросить его до локальной машины за роутером и привязать к DynDNS для доступа извне.

ЗЫ. Как-то надо было что бы IP сменился на домашнем роутере. Так вот фиг получилось со своего конца что-то сделать. Пришлось звонить, что бы зарелизили резервацию. Только после этого модем получил новый адрес.
Ответить с цитированием
  #8  
Старый 08.09.2015, 07:12
proshka proshka вне форума
Прохожий
 
Регистрация: 06.09.2015
Сообщения: 5
Версия Delphi: Delphi XE8
Репутация: 10
По умолчанию

Всем спасибо за советы.
Проблему решил с помощью IP*Works, перейдя на Delphi XE5.
Все работает замечательно.
Ответить с цитированием
  #9  
Старый 08.09.2015, 08:04
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от lmikle
Ну придется NAT правильно настроить. У меня даже в древнем DLink'е была возможность пробросить адрес. А уж современные модемы вполне с этим справятся. Более того, обычно при подключении по ADSL и "выше", модем получает белый, но не статический IP. Т.е. с ним все должно работать. Остается только пробросить его до локальной машины за роутером и привязать к DynDNS для доступа извне.
да, у Ростелекома, к примеру, на ADSL выдается белый динамический IP и проброс портов через NAT домашнего модема и настройка его на DynDNS решает проблему полностью. А вот на оптике от МТС выдается серый динамический IP и пробрасывать порты на домашнем роутере и настройка DynDNS не спасет, т.к. у самого провайдера стоит NAT, который естественно абонент настраивать не может. Остается только купить у него внешний статический IP.
У ТС как раз такой случай
Цитата:
Белого Ip нет
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #10  
Старый 08.09.2015, 17:52
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,057
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, не факт, что ТС не перепутал.
Да и в этом случае, как я уже сказал, идем на Амазон и делаем себе там маленькую машинку. Во, с амазона, бесплатный инстанс:
Цитата:
750 hours per month of Windows t2.micro instance usage
Да, машинка слабенькая. Но на простую задачку вполне хватит.
Ну и Linux там тоже подобный есть, если что.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:45.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter