При создании потока программа виснет

[DKENT]

Доброго дня!
При создании потока на отправку email письма программа виснет, не могу понять в чем проблема, прошу помощи.
Заранее благодарен!!!

TNewThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;
  SMTP    : TIdSMTP;
  msg     : TIdMessage;
  SSLOpen : TIdSSLIOHandlerSocketOpenSSL;
  NewThread: TNewThread;
implementation

{$R *.dfm}



procedure TNewThread.Execute;
begin
 SMTP := TIdSMTP.Create(Application);
  SMTP.Host := 'smtp.mail.ru';
  SMTP.AuthType := atDefault;
  SMTP.Port := 465;
  SMTP.Username := 'test@mail.ru';
  SMTP.Password := 'password';


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

  SMTP.IOHandler := SSLOpen;
  SMTP.UseTLS := utUseImplicitTLS;

  msg := TIdMessage.Create(Application);
  msg.Subject :=ANSI2KOI8R('test email');
  msg.ContentType:='text/html';
  msg.CharSet := 'Windows-1251';
  msg.ContentTransferEncoding := '8bit';
  msg.Body.Text:=ANSI2KOI8R('Hello, world!');
  msg.From.Address := 'test@mail.ru';
  msg.From.Name :=ANSI2KOI8R('Support);
  msg.Recipients.EMailAddresses := 'test@yandex.ru';

  SMTP.Connect;
  if SMTP.Connected then
    begin
      SMTP.Send(msg);
      ShowMessage ('Сообщение отправлено');
    end else
      ShowMessage ('Ошибка');
  SMTP.Disconnect();
  SMTP.Free;
  msg.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  NewThread:=TNewThread.Create(false);
   NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpLower;
  NewThread.Resume;
end;

Также не выводятся окна showmessage!

[Stilet]

SMTP.Connect;

Тут видимо виснет.
А ты пробовал трассировку делать? Всмысле где программа тупит.

SMTP.Port := 465;

Точно 456?

[DKENT]

Смысл в том что без потока все нормально работает, а когда создаю поток то начинает виснуть программа!
Я так думаю дело в самом потоке, а вот что именно понять не могу(

На счет порта точно!
Сообщение доходит и я его вижу на почте!

[Stilet]

Ерунда какая-то... Я у себя SMTP в потоках использую, никогда не висло, если связь есть. И потом, поток вешающий основную программу, это нонсенс...
Хотя... Замени ShowMessage на MessageBox(). Она все равно не работает в потоках нормально, вот может она тебе все и вешает.

[Аватар]

Я бы и MessageBox не рискнул так просто в потоке. Как минимум через метод Synchronize, что должно работать, но тоже коряво. Окна и в потоке - нонсенс. Основной форме сообщение отправить лучше и она пусть сама уже пользователя информирует о работе потоков. Или в лог писать инфу о событиях в потоке

[Stilet]

что должно работать, но тоже коряво.

Не, с этим без проблем. Давно его в потоке использую, никогда глюков не было с Винапи.

[DKENT]

Проблема кроется где то в этих строках

form1.IdSMTP1.Connect;
  if form1.IdSMTP1.Connected then
    begin
      form1.IdSMTP1.Send(msg);
      form1.Memo1.text:='Сообщение отправлено';

Если убираю строчку отправки самого сообщения то все начинает работать!
В чем проблема может быть?

[Аватар]

Не, с этим без проблем

Там не проблемы, а корявость в смысле - не фиг оконные сообщения в потоке городить

[DKENT]

Сообщение от Аватар

Там не проблемы, а корявость в смысле - не фиг оконные сообщения в потоке городить

Вы правы, исправил, все заработало!Спасибо)