VPF::Gmail - Форум программистов

VKoresh

Дата 14.2.2008, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 67
Регистрация: 14.6.2007
Где: Запорожье

Репутация: нет
Всего: 1

Здравствуйте!
Задался я целью написать свой почтовик (баян, но все же smile

)
Вот собственно код, ничего заумного нету:

Код


IdSMTP1.Host :=Edit1.Text ;
IdSMTP1.Username:=Edit2.Text;
IdSMTP1.Password:=Edit3.Text;
IdMessage1.Subject:=Edit6.Text;
IdMessage1.Recipients.EMailAddresses:=Edit4.Text;
IdMessage1.From.Address:=Edit5.Text;
IdMessage1.From.Name:=Edit7.Text;
IdMessage1.Body:=Memo1.Lines;
try
  IdSMTP1.Connect(5000);
  if idSMTP1.Connected then
    begin
      IdSMTP1.Send(IdMessage1);
      idSMTP1.Disconnect;
      ShowMessage('OK');
    end
  else
 ShowMessage('Shit happens!!!');
 IDmessage1.MessageParts.Clear;
except
on E: Exception do
begin
  ShowMessage(E.Message);
end;

Вот и столкнулся с траблом - через мейл.ру отсылает чудесно smile

, а вот с Gmail-a ну никак smile

, пишет:

Код


5.7.0. Must issue STARTTLS command first

Покопавшись, я таки понял что это из-за того на на Гмыле используется защищенное соединение.
Еще больше покопавшись я понял что было бы неплохо прикрутить к IdSMTP1 некий IdSSLIOHandlerSocket1 и он поможет с этим бороться.
Ну я вот и поставил IdSMTP1 в свойстве IOHandler этот IdSSLIOHandlerSocket1, однако теперь при коннекте выкидывает
мне забавную ошибку: Could not load SSL library.

Поясните мне, пожалуйста, где я накосячил? smile

ЗЫ Delphi 7, indy 9

Snowy

Дата 14.2.2008, 13:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Это значит, что у тебя отсутствуют dll файлы OpenSSL.
Брать тут: http://www.delphilab.ru/content/view/181/54/

VKoresh

Дата 14.2.2008, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 67
Регистрация: 14.6.2007
Где: Запорожье

Репутация: нет
Всего: 1

Snowy, спасибо, попробую разобраться smile

VKoresh

Дата 14.2.2008, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 67
Регистрация: 14.6.2007
Где: Запорожье

Репутация: нет
Всего: 1

Я перепробовал уже штук 7-8 этих lib. Разных. И ни одна(!) не подходит.
Говорит что мол не находит какую-то процедуру с дурным названием smile

Не побрезговал поиском - везде где упоминается о подобной проблеме советуют слить другую версию либы :(
Пробовал, не помогает :(((

Sanchezzz

Дата 15.2.2008, 19:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60

эти ты не пробывал http://delphidom.z16.ru/download/ реально работают кс использовать просто кидаешь где программа или в папку ...\system32\ еще подходят SLL от Perl
---
страно если не подайдет какая версия индейцев эти подходят для 9-10.1.5

--------------------

Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.

VKoresh

Дата 18.2.2008, 17:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 67
Регистрация: 14.6.2007
Где: Запорожье

Репутация: нет
Всего: 1

девятые индейцы smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »