[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

30.05.2009, 03:06

cremator (c)

Постоянный

Регистрация: 20.06.2008

Сообщений: 323

Провел на форуме:
1240829

Репутация: 165

Отправить сообщение для cremator (c) с помощью ICQ

Запарился уже с индиевскими компонентами idsmtp с отправкой через ssl. Хоть об стену бейся.. пишет Could not load SSL library. Хотя даже специально скачивал Win32OpenSSL, кидал в папку с прогой libeay32.dll и ssleay32.dll. Может кто то работал с SSL на дельфи, подскажите?))
Или если у кого есть реализация на синапс-компонентах тоже не плохо было бы..

Код:

procedure TForm1.Button1Click(Sender: TObject);  var  SMTP: TIdSMTP;   sPort,sHost,sPassword,sUsername,  sFromAddress,sFromName,sToAddress,sToName,
sSubject,sBoby:string;  
begin      
sPort := '587';      
sHost := 'smtp.gmail.com';      
sUsername := '***';      
sPassword := '*****';      
sBoby:='****'; 
sFromAddress:='******@gmail.ru';      
sFromName:='1';      
sToAddress:='****@mail.ru';      
sToName:='1';      
sSubject:='666';      
SMTP:=TIdSMTP.Create;    
SMTP.Host:=sHost;    
SMTP.Port:=strtoint(sPort);    
SMTP.Username:=sUsername;    
SMTP.Password:=sPassword;    
SMTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;    
SMTP.UseTLS:=utUseImplicitTLS;      
IdMessage.Body.Add(sBoby);      
IdMessage.From.Address := sFromAddress;      
IdMessage.From.Name := sFromName;      
IdMessage.Recipients.Add;      
IdMessage.Recipients.Items[0].Address := sToAddress;      
IdMessage.Recipients.Items[0].Name := sToName;  
IdMessage.Subject := sSubject;    
SMTP.Connect;    
SMTP.Send(IdMessage);    
SMTP.Disconnect;    
SMTP.Free;  
end;

Последний раз редактировалось cremator (c); 30.05.2009 в 03:21..