Size: a a a

2020 May 05

VO

Vitaly Orz. in Delphi & Lazarus
Dmitry Belkevich
напиши контекстный код, который рядом
источник

VO

Vitaly Orz. in Delphi & Lazarus
😞 такая классная реализация кросплатформы но бля простые библиотеки типа отсылка почты пляски с бубнмл
источник

DB

Dmitry Belkevich in Delphi & Lazarus
Vitaly Orz.
это не си ) это кусок формы - dfm
источник

VO

Vitaly Orz. in Delphi & Lazarus
Я просто по знаку присвоения смотрю....могу конечно и протупить
источник

DB

Dmitry Belkevich in Delphi & Lazarus
Vitaly Orz.
😞 такая классная реализация кросплатформы но бля простые библиотеки типа отсылка почты пляски с бубнмл
не так там уж всё просто. было бы просто, не было бы танцев. куча опций и фич
источник

DB

Dmitry Belkevich in Delphi & Lazarus
меня только немного удивляют танцы с кодировкой, а так там ничего такого нет
источник

DB

Dmitry Belkevich in Delphi & Lazarus
к слову, синапс проще. только не уверен насчет его работоспособности в андроиде. windows/linux работает:

function SendMail(const Address, Subject, MessageText: string): string;
var
Msg: TMimeMess; //собщение
StringList: TStringList; //содержимое письма
MIMEPart: TMimePart; //части сообщения (на будущее)
begin
Result := 'rsOK';
Msg := TMimeMess.Create; //создаем новое сообщение
try
 StringList := TStringList.Create;
 try
  //Добавляем заголовки
  Msg.Header.Subject := Subject;//тема сообщения
  Msg.Header.From := WebDataModule.MailFrom; //имя и адрес отправителя
  Msg.Header.ToList.Add(''); //имя и адрес получателя
  //создаем корневой элемент
  MIMEPart := Msg.AddPartMultipart('alternative', nil);
  StringList.Text := MessageText;
  Msg.AddPartText(StringList, MIMEPart);
  //Кодируем и отправляем
  Msg.EncodeMessage;
  if not SendToRaw(WebDataModule.MailFrom, Address, WebDataModule.MailHost, Msg.Lines,
   WebDataModule.MailLogin, WebDataModule.MailPass) then
   Result := 'rsCouldntRegUserOtherError';
 finally
  FreeAndNil(Msg);
 end;
finally
 FreeAndNil(StringList);
end;
end;
источник

DB

Dmitry Belkevich in Delphi & Lazarus
вообще, мыло послать и получить довольно большая проблема: кодировки, аттачи, множество форматов, smpt, pop, tls и т п. и инди это всё умеет.
источник

VO

Vitaly Orz. in Delphi & Lazarus
Dmitry Belkevich
вообще, мыло послать и получить довольно большая проблема: кодировки, аттачи, множество форматов, smpt, pop, tls и т п. и инди это всё умеет.
На питоне три строки....😂 Но мне нужен андроид прилада. А я пока тока на Дельфях их умею делать
источник

DB

Dmitry Belkevich in Delphi & Lazarus
полностью весь фарш в три строки? с аттачами, форматами, картинками, коннектом, протоколами, обработкой всех возможных ошибок? )
источник

DB

Dmitry Belkevich in Delphi & Lazarus
можешь mailto заюзать ) там вообще одна строка
источник

DB

Dmitry Belkevich in Delphi & Lazarus
источник

DB

Dmitry Belkevich in Delphi & Lazarus
гугли: shellexecute mailto delphi
источник

KB

Kit Bayun in Delphi & Lazarus
Vitaly Orz.
Ссорян ещё вопрос от дилетанта посоветуйте компоненты для работы с почтой
Indy
источник

KB

Kit Bayun in Delphi & Lazarus
Dmitry Belkevich
гугли: shellexecute mailto delphi
это не автоматический режим и вообще, не понятно, что такое "автоматический режим"? что под этим скрывается? работа в отдельно потоке или что?
источник

VO

Vitaly Orz. in Delphi & Lazarus
Dmitry Belkevich
полностью весь фарш в три строки? с аттачами, форматами, картинками, коннектом, протоколами, обработкой всех возможных ошибок? )
Ну не на столько . Но рабочий код уже в три. А тут блин....узх
источник

VO

Vitaly Orz. in Delphi & Lazarus
Просто все усложняет ssl
источник

VO

Vitaly Orz. in Delphi & Lazarus
С ним перемудрили
источник

KB

Kit Bayun in Delphi & Lazarus
Vitaly Orz.
Просто все усложняет ssl
ничего сложного в ssl нет
источник

KB

Kit Bayun in Delphi & Lazarus
источник