Не верно выдает ip-адрес

[Stilet]

кто-нибудь сможет подробнее объяснить

Повторюсь: Яндекс из консоли пинговал?

[Алексей_2012]

Да, ребят, спасибо, пинганул яндекс, но все равно зависает программа моя

[Stilet]

Попробуй IP яндекса подставить в прогу.
Если и дальше будет виснуть - значит яндекс уже перекрыл эту фичу у себя.

[Алексей_2012]

Поставить Ip-адрес вместо smtp.yandex.ru?

var
  ip: string;
  IdMessage1: TIdMessage;
begin    
  with TStringlist.Create do
  try
    form1.Position := poScreenCenter;
    IdMessage1 := TIdMessage.Create(self);
    Text := GetHTML('http://www.softmaker.kz/get_an_external_ip_address.php');
    if Count > 0 then ip := Strings[Count - 1];
    Add('Файл отправлен в: ' + timetostr(time));
    IdSMTP1.Host := '93.158.134.11'; // адрес почтового сервера
    IdSMTP1.Port := 25; // порт по которому будет осуществляться подключение       //
    IdSMTP1.AuthenticationType := atnone; // тип подключения к серверу - с авторизацией
    IdMessage1.Recipients.EMailAddresses := 'ip-man2013@yandex.ru'; // майл получателя письма
    IdMessage1.Subject := 'HeLo!!'; // тема письма
    IdMessage1.Body.Text := Text; // передача данных в компонент IdMessage, для последующей отправки
    IdSMTP1.Connect; // соединение с почтовым сервером
    IdSMTP1.Send(IdMessage1);
  finally
    Free;
    FreeAndNil(IdMessage1);
  end;
end;

в консоле написал ping и ip из кода, в консоле пингуется, потерь нет, а код почему-то не работает, вот последняя версия

[Stilet]

Да........

[Алексей_2012]

Так что не понятно в чем проблема, ip-ник подставил, и все равно не работает, пропинговал

ping smtp.yandex.ru

и поставил айпишник от результатов этого пинга

  
 try
    IdSMTP1.Connect(10000); // ñîåäèíåíèå ñ 
ïî÷òîâûì ñåðâåðîì
 except
      ShowMessage('');
      Exit;
 end;

Добавил это в программу, по истечении 10 секунд появилось пустое сообщение, то есть на протяжении 10 секунд программе подключиться к серверу не удается...хотя в гугле посмотрел, обычно у всех получется отправить на яндекс, а с гуглом и мэйлом проблемы выходят, у себя я не знаю почему проблемы, пинганул айпишник-все ОК, а в программе не отсылается.

[Stilet]

Ну вот теперь можно начинать выяснять две вещи:
1) Не перекрыл ли яндекс свой 25-й порт. Тут лично мне помог thunderbird mozilla
2) Может быть что почта у них только по защищенному соединению, т.е. подключать SSL.
Возможно на странице техподдержки яндекс-почты что-то написано по этому поводу.
Как вариант (я так делал) попробовать через консоль telnet постучаться в SMTP яндекса. Чисто проверить, если и там швах - значит перекрыли.

[Алексей_2012]

На счет портов, пробовал разные варианты: 587, 465, 25, что-то поменялось на порту 587, вот скрин ошибки.

SSL вроде как подключен, хотя точно не уверен как это можно проверить, у меня яндекс браузер

Пытаюсь разобраться с telnet

[Stilet]

SSL вроде как подключен

Компоненты SSL не форме? И подключены к IdSMTP1?
Тогда и порт там вроде 993 должен быть.

как это можно проверить

Если через браузер то нужно смотреть HTTP или HTTPS

Пытаюсь разобраться с telnet

Я имел ввиду не компонент )

консольная команда:
http://support.microsoft.com/kb/153119
http://v90.kiev.ua/articles/telnet_mail.html
Для проверки.

[alextrof94]

У меня есть софт, который кидает IP на мой сайт, на который ты тоже сможешь кидать с помощью моего софта свой IP. Зачем почту захламлять? Обновление IP раз в 10 минут.
Если тебе нужен именно такой функционал - пиши на мыло или прям на форуме в лс.
Сам на своем домашнем пк запустил, чтобы по удаленке коннектиться на динамический IP.