SSL ile mail gönderme

[nuran]

DElphide SMTP ve
SSL ile mail göndermeye çalışırken

could not load ssl library

hata mesajını alıyorum.
İnternetden yaptığım araştırma sonucunda

altına libeay32.dll
ve ssleay32.dll

dosyalarını indirdim,
c:\windows\system32\

altına kopyaladım, ancak sorun çözülmedi. Aynı şekilde devam ediyor.
BAna bu konuda ayrdımcı olurmusunuz...

[conari]

regsvr32.exe ile registry etmeyi denermisiniz.

[nuran]

regsvr32.exe c:\windows\ßystem32\libeay32.dll

yaptığımda giriş noktası bulunamadı hatası aldım.

[esrehmaan]

programın yanına koyun dll leri sorun çözülecektir

[nuran]

Bu sorunu çözmem lazım, yardımcı olursanız sevinirim.
Kodlarımı aşağıda gönderiyorum. Nerede hata yapıyorum.
IdSMTP.Send(IdMessage);
bu işlemi yapamıyor..


procedure Temailssl2.Button1Click(Sender: TObject);
var
ekm:Tinifile;
eklidosya: TIdAttachmentFile;
IdAttachmentfile: TIdAttachmentfile;
IdSSLIO : TIdSSLIOHandlerSocketOpenSSL;
DLLHandle: THandle;
DLLHandle2: THandle;
address : pointer;

begin

DLLHandle := LoadLibrary('C:\windows\system32\libeay32.dll');
DLLHandle2 := LoadLibrary('C:\windows\system32\ssleay32.dll');
num:=MessageDlg('Tüm İşlemeleriniz Bittimi ? Mail Gönderilsinmi ? ', msgtipi,[mbyes,mbno,mbcancel],0);
if num = mrYes then
begin

IdSMTP := TIdSMTP.Create(nil);
ekm:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'mail.ini');
try
IdSMTP.host:=ekm.Readstring('Form','host','');
IdSMTP.username:=ekm.Readstring('Form','username','');
IdSMTP.Password:=ekm.Readstring('Form','Password','');
IdSMTP.port:=ekm.ReadInteger('Form','Port',1);// vs uzatabilirsin
finally
ekm.Free;
end;

IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv2 ;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmClient;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyDepth := 2;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyMode := [];
IdSSLIOHandlerSocketOpenSSL1.Host := IdSMTP.Host;
IdSSLIOHandlerSocketOpenSSL1.Port := IdSMTP.Port;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv3;
IdSMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1.create ;

toadres := 'n.sentuna@kocaertekstil.com';

fromadres:= 'n.sentuna@kocaertekstil.com';

IdMessage:=TIdMessage.Create(nil);
IdMessage.From.address := fromadres;
IdMESSAGE.Recipients.EMailAddresses:= toadres;
IdMESSAGE.CClist.EMailAddresses:= fromadres;
IdMessage.Subject:= konu2;
dosya:= 'c:\mailgonder\deneme.txt' ;
eklidosya := TIdAttachmentFile.Create(Idmessage.MessageParts, dosya);
IdSMTP.Connect;
IdSMTP.Authenticate;
try
IdSMTP.Send(IdMessage);
ShowMessage('Mail Gönderildi.');

finally
IdSMTP.Disconnect;
IdSMTP := TIdSMTP.Create(nil);
end;


Close;
end;

[conari]

Delphi Bin klasörü altına DLL leri kopyalayıp deneyin.

[nuran]

ssleay32.dll
libeay32.dll

leri
c:\programfiles\borland\BDS\4.0\bin\

klasörü altına kopyaladım, program içerisinde bu pathleri tanımlamadım..

Ancak gene could not load ssl library

mesajını alıyorum.
Library içerisine bi yerden bu dll leri yuklemem mi lazım..nasıl yuklenecek onuda bilmiyorum.

[Battosai]

Şu SSL mail mevzusunu çözmüş biri forumda paylaşsa "SSL ile mail gönderme" soruları biter belki... Aslında bu indy ekibindede sorumsuzluk var Neyse sorun büyük ihtimal DLL kütüphanelerinin versiyonunda kaynaklanıyor. Normal şartlarda bu DLL leri .exe ile aynı dizine attığınız çalışması lazım.

[nuran]

bds ve
bds.exe

dizinin bulundupu bin/ klasörüaldtına koydum Dll leri ama gene sorun devam ediyor.
Bu sorunu çözmek zorundayım..
YArdımlarınızı bekliyorum..

[esrehmaan]

nuran hocam indy hangi versiyonları kullanıyorsunuz ?

[nuran]

Delphi 2006 kullanıyorum, valla indy verisyonunun kaç olduğunu bilmiyorum..indy 9 olabilir..

[yusuf simsek]

http://www.indyproject.org/sockets/down ... 10.en.aspx adresinden Indy 10 indirip kurunuz... Kurulum işleminden önce "Delphi7\Projects\Bpl" ve "windows\system32" dizini altında INDY ile ilgili BPL'leri siliniz...


http://indy.fulgan.com/SSL/Archive/indy_OpenSSL096m.zip linkinden dll dosyalarını indirip exenin olduğu dizine kopyalayınız.

[nuran]

bende 'borland developer studio 2006' var

delphi7 olarak bir klasor yok

c:\programfiles\borland\bds\4.0\bin\bds.exe

bulunuyor.

[esrehmaan]

http://oron.com/dk0zvd0mrsay/ssl.rar

Nuran hocam linkde verdiğim dll dosyalarını alıp programınızın yanına koyun sorun çözülmesi gerek. sonucu yazarsanız sevinirim..

[nuran]

dll 'leri indirdim.
copy past ile
c:\programfiles\borland\bds\4.0\bin

altına kopyaladım ancak olmadı, sorun devam ediyor..