Kod: Tümünü seç
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdMessage, IdTCPConnection, IdTCPClient,
IdMessageClient, IdSMTP, IdBaseComponent, IdComponent, IdIOHandler,
IdIOHandlerSocket, IdSSLOpenSSL, IdPOP3;
type
TForm1 = class(TForm)
IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket;
IdSMTP1: TIdSMTP;
IdMessage1: TIdMessage;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Button1: TButton;
IdPOP31: TIdPOP3;
Edit1: TEdit;
Edit2: TEdit;
procedure IdSSLIOHandlerSocket1StatusInfo(Msg: String);
procedure Button1Click(Sender: TObject);
procedure IdSSLIOHandlerSocket1Status(ASender: TObject;
const AStatus: TIdStatus; const AStatusText: String);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.IdSSLIOHandlerSocket1StatusInfo(Msg: String);
begin
Memo3.Lines.Add('idSSL: ' +Msg);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
IdMessage1.From.Address := 'xxx@gmail.com';
IdMessage1.Recipients.EMailAddresses := Edit2.Text;
IdMessage1.Subject := Edit1.Text;
IdMessage1.Body.Text := Memo1.Lines.Text;
IdSMTP1.Connect();
IdSMTP1.Authenticate();
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
end;
procedure TForm1.IdSSLIOHandlerSocket1Status(ASender: TObject;
const AStatus: TIdStatus; const AStatusText: String);
begin
Memo2.Lines.Add(AStatusText);
end;
Ayrıca ;
Kod: Tümünü seç
IdSSLIOHandlerSocket1.Method : sslvSSLv2
İdsmtp.port : 587
Sorun Şu.... ;
Ssl Status bu şekilde takılıyor ... verdiğim kodda dikkat ederseniz memo3'e status'u yazdırıyorum işte bu kısımda takılıyor PROGRAM DONUYOR HİÇ BİR UYARI HATA YOK....SADECE KASIYOR DOLAYISIYLA MAİL GÖNDERMİYOR MECBURİ OLARAK alt+f4 kapatmak zorunda kalıyorum.....sorun olan kısım şu şekilde takılıyor ;
Kod: Tümünü seç
idssl : ssl status :
"before/connect initialization"
idssl : ssl status :
"before/connect initialization"
idssl : ssl status :
"SSLv2 write client Hello A"