Отправка внутри приложения в ios

[Anasazi]

Пробовал реализовать отправку e-mail из приложения. Делал вот по этой теме:

 

http://fire-monkey.ru/topic/1202-otpravka-pisma-na-pochtu/

На Android все работает прекрасно под ios на глухо зависает.

 

Код получился вот такой:                 

SMTP.Host:= 'smtp.yandex.ru' ; // хост
 SMTP.Port:= 465 ; // порт
 Smtp.Username:='TestUser'; 
Smtp.Password:='pass123';

SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;

SMTP.UseTLS :=utUseImplicitTLS ;

IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
IdSSLIOHandlerSocketOpenSSL1.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);
IdSSLIOHandlerSocketOpenSSL1.Host := SMTP.Host;
IdSSLIOHandlerSocketOpenSSL1.Port := SMTP.Port;
IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;



MailMessage.Body.Clear;

MailMessage.Body.Add('Первая строка');
MailMessage.Body.Add('Вторая строка');



SMTP.Connect;
mailMessage.CharSet := 'UTF-8';

mailMessage.CharSet:='UTF-8';

MailMessage.ContentType:='multipart/mixed; charset=UTF-8';
MailMessage.ContentType:='text/plain; charset=KOI8-R';

MailMessage.Subject:=UTF8Encode('Reserve') ; // тема
MailMessage.From.Address:='testadres@yandex.ru' ;
MailMessage.From.Domain:= 'yandex.ru'; // домен
MailMessage.From.User:= 'TestUser';
MailMessage.From.Name:=UTF8Encode('TestUserName');

MailMessage.Recipients.EMailAddresses:='TestUser0@list.ru'; // получатель и копия
//2192100@list.ru

MailMessage.IsEncoded:=true;

SMTP.Send(MailMessage);
SMTP.Disconnect;

Изменено 2 июля, 2015 пользователем Andrey Yefimov
Тег "Код"

[Равиль Зарипов (ZuBy)]

SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;

SMTP.UseTLS :=utUseImplicitTLS ;

IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

[Anasazi]

SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;

SMTP.UseTLS :=utUseImplicitTLS ;

IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

Подскажи пожалуйста, что не так в этих строках? Как исправть?

[Равиль Зарипов (ZuBy)]

Вы сначала присваиваете, а потом создаете. Ничего не перепутали?

[Anasazi]

Вы сначала присваиваете, а потом создаете. Ничего не перепутали?

Спасибо большое за подсказку.

Попробовал поменять строки местами. Итог перестало работать даже на android. Пробовал убрать строку

IdSSLIOHandlerSocketOpenSSL1:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);

Итог - на android работет нормально, под ios опять на глухо зависает. Подскажите пожалуйста в чем еще может быть дело.

[Равиль Зарипов (ZuBy)]

SMTP.Host:= 'smtp.yandex.ru' ; // хост
SMTP.Port:= 465 ; // порт
Smtp.Username:='TestUser'; 
Smtp.Password:='pass123';


SMTP.UseTLS :=utUseImplicitTLS ;

IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
IdSSLIOHandlerSocketOpenSSL1.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);
IdSSLIOHandlerSocketOpenSSL1.Host := SMTP.Host;
IdSSLIOHandlerSocketOpenSSL1.Port := SMTP.Port;
IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1; // Уверен что именно этот метод используется??
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;

 

SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;

MailMessage.Body.Clear;

MailMessage.Body.Add('Первая строка');
MailMessage.Body.Add('Вторая строка');

SMTP.Connect;
mailMessage.CharSet := 'UTF-8';
mailMessage.CharSet:='UTF-8';

MailMessage.ContentType:='multipart/mixed; charset=UTF-8';
MailMessage.ContentType:='text/plain; charset=KOI8-R';

MailMessage.Subject:=UTF8Encode('Reserve') ; // тема
MailMessage.From.Address:='testadres@yandex.ru' ;
MailMessage.From.Domain:= 'yandex.ru'; // домен
MailMessage.From.User:= 'TestUser';
MailMessage.From.Name:=UTF8Encode('TestUserName');

MailMessage.Recipients.EMailAddresses:='TestUser0@list.ru'; // получатель и копия
//2192100@list.ru

MailMessage.IsEncoded:=true;

SMTP.Send(MailMessage);
SMTP.Disconnect;

 

 

==================================

А теперь еще раз на код посмотри и сделай все правильно

[Anasazi]

SMTP.Host:= 'smtp.yandex.ru' ; // хост

SMTP.Port:= 465 ; // порт

Smtp.Username:='TestUser'; 

Smtp.Password:='pass123';

SMTP.UseTLS :=utUseImplicitTLS ;

IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

IdSSLIOHandlerSocketOpenSSL1.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);

IdSSLIOHandlerSocketOpenSSL1.Host := SMTP.Host;

IdSSLIOHandlerSocketOpenSSL1.Port := SMTP.Port;

IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0;

IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1; // Уверен что именно этот метод используется??

IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;

 

SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;

MailMessage.Body.Clear;

MailMessage.Body.Add('Первая строка');

MailMessage.Body.Add('Вторая строка');

SMTP.Connect;

mailMessage.CharSet := 'UTF-8';

mailMessage.CharSet:='UTF-8';

MailMessage.ContentType:='multipart/mixed; charset=UTF-8';

MailMessage.ContentType:='text/plain; charset=KOI8-R';

MailMessage.Subject:=UTF8Encode('Reserve') ; // тема

MailMessage.From.Address:='testadres@yandex.ru' ;

MailMessage.From.Domain:= 'yandex.ru'; // домен

MailMessage.From.User:= 'TestUser';

MailMessage.From.Name:=UTF8Encode('TestUserName');

MailMessage.Recipients.EMailAddresses:='TestUser0@list.ru'; // получатель и копия

//2192100@list.ru

MailMessage.IsEncoded:=true;

SMTP.Send(MailMessage);

SMTP.Disconnect;

 

 

==================================

А теперь еще раз на код посмотри и сделай все правильно

 

 

SMTP.Host:= 'smtp.yandex.ru' ; // хост

SMTP.Port:= 465 ; // порт

Smtp.Username:='TestUser'; 

Smtp.Password:='pass123';

SMTP.UseTLS :=utUseImplicitTLS ;

IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

IdSSLIOHandlerSocketOpenSSL1.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);

IdSSLIOHandlerSocketOpenSSL1.Host := SMTP.Host;

IdSSLIOHandlerSocketOpenSSL1.Port := SMTP.Port;

IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0;

IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1; // Уверен что именно этот метод используется??

IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;

 

SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;

MailMessage.Body.Clear;

MailMessage.Body.Add('Первая строка');

MailMessage.Body.Add('Вторая строка');

SMTP.Connect;

mailMessage.CharSet := 'UTF-8';

mailMessage.CharSet:='UTF-8';

MailMessage.ContentType:='multipart/mixed; charset=UTF-8';

MailMessage.ContentType:='text/plain; charset=KOI8-R';

MailMessage.Subject:=UTF8Encode('Reserve') ; // тема

MailMessage.From.Address:='testadres@yandex.ru' ;

MailMessage.From.Domain:= 'yandex.ru'; // домен

MailMessage.From.User:= 'TestUser';

MailMessage.From.Name:=UTF8Encode('TestUserName');

MailMessage.Recipients.EMailAddresses:='TestUser0@list.ru'; // получатель и копия

//2192100@list.ru

MailMessage.IsEncoded:=true;

SMTP.Send(MailMessage);

SMTP.Disconnect;

 

 

==================================

А теперь еще раз на код посмотри и сделай все правильно

 

 

SMTP.Host:= 'smtp.yandex.ru' ; // хост

SMTP.Port:= 465 ; // порт

Smtp.Username:='TestUser'; 

Smtp.Password:='pass123';

SMTP.UseTLS :=utUseImplicitTLS ;

IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

IdSSLIOHandlerSocketOpenSSL1.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);

IdSSLIOHandlerSocketOpenSSL1.Host := SMTP.Host;

IdSSLIOHandlerSocketOpenSSL1.Port := SMTP.Port;

IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0;

IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1; // Уверен что именно этот метод используется??

IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;

 

SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;

MailMessage.Body.Clear;

MailMessage.Body.Add('Первая строка');

MailMessage.Body.Add('Вторая строка');

SMTP.Connect;

mailMessage.CharSet := 'UTF-8';

mailMessage.CharSet:='UTF-8';

MailMessage.ContentType:='multipart/mixed; charset=UTF-8';

MailMessage.ContentType:='text/plain; charset=KOI8-R';

MailMessage.Subject:=UTF8Encode('Reserve') ; // тема

MailMessage.From.Address:='testadres@yandex.ru' ;

MailMessage.From.Domain:= 'yandex.ru'; // домен

MailMessage.From.User:= 'TestUser';

MailMessage.From.Name:=UTF8Encode('TestUserName');

MailMessage.Recipients.EMailAddresses:='TestUser0@list.ru'; // получатель и копия

//2192100@list.ru

MailMessage.IsEncoded:=true;

SMTP.Send(MailMessage);

SMTP.Disconnect;

 

 

==================================

А теперь еще раз на код посмотри и сделай все правильно

Разбил действия на 3 кнопки, чтобы понято после чего все таки виснет приложение. Виснет после выполнения smtp.connect; Опытным путем выяснил, что для того чтобы все работало на других платформах (Windows, Android) достаточно:

 

IdSSLIOHandlerSocketOpenSSL1:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);

SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;

SMTP.UseTLS :=utUseImplicitTLS ;

SMTP.Connect;

 

Но с ios так ничего сделать и не могу. Один раз каким-то чудом smtp.connect выполнилась успешно. Но повторить не могу. Подскажите пожалуйста, в чем еще может быть дело?

[Anasazi]

Вот что у меня получилось.

Mail.zip

[Равиль Зарипов (ZuBy)]

Ios из коробки может работать с защищенными соединениями? Или либы нужно деплоить?

И виснуть будет в любом случае, нужно использовать поток

Изменено 4 июля, 2015 пользователем ZuBy

[Anasazi]

Ios из коробки может работать с защищенными соединениями? Или либы нужно деплоить?

И виснуть будет в любом случае, нужно использовать поток

На счет "из коробки" на 100% не знаю. Но 1 раз случайным подбором строк мне удалось добиться успеха, smtp.connect выполнялась успешно. Так что думаю, что должна работать "из коробки". Повторить не получается.

[xenon54]

Вы используете индейцев. Из коробки не работает. Для SSL нужно прописывать uses "IdSSLOpenSSLHeaders_Static". В корне папки с проектом должны лежать статические библиотеки: libcrypto.a и libssl.a. Деплоить их ненадо, просто должны лежать в корне проекта.

Изменено 4 июля, 2015 пользователем xenon54

[Равиль Зарипов (ZuBy)]

Вы используете индейцев. Из коробки не работает. Для SSL нужно прописывать uses "IdSSLOpenSSLHeaders_Static". В корне папки с проектом должны лежать статические библиотеки: libcrypto.a и libssl.a. Деплоить их ненадо, просто должны лежать в корне проекта.

это  для iOS только получается?

[xenon54]

Для IOS точно, насчет ведра не в курсе.

[Anasazi]

Вы используете индейцев. Из коробки не работает. Для SSL нужно прописывать uses "IdSSLOpenSSLHeaders_Static". В корне папки с проектом должны лежать статические библиотеки: libcrypto.a и libssl.a. Деплоить их ненадо, просто должны лежать в корне проекта.

Большое спасибо! Все получилось!