Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Gmail

Автор: VKoresh 14.2.2008, 12:28

Здравствуйте!
Задался я целью написать свой почтовик (баян, но все же 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

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

Автор: VKoresh 14.2.2008, 14:13

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

Автор: VKoresh 14.2.2008, 15:42

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

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

Автор: Sanchezzz 15.2.2008, 19:51

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

Автор: VKoresh 18.2.2008, 17:19

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