Problem beim senden mit anhang - indy 9

[tobiroh]

Hallo liebe Leute,

Ich habe das Problem dass sich bei größeren Anhängen mein Delphiprogramm beim senden aufhängt.
Nach dem senden funktioniert es wieder.

Delphi-Quellcode:

if OpenDialog1.Execute then
   begin

    attach := TidAttachment.Create(msg.MessageParts, OpenDialog1.FileName);
    attach.DisplayName := msg.Subject;
    end;

smtp.AuthenticationType := atLogin;
smtp.Connect;
smtp.Authenticate;


try
 smtp.Send(msg);
finally
 showMessage('mail gesendet');
 smtp.Disconnect;

Ich benutze Indy 9

Ich bin sehr dankbar für schnelle gute Antworten :o

[Valle]

Ah, das hatten wir schon des öfteren in verschiedenen Variationen.

Das Problem ist, dass Indy in der Zeit, wo es mit dem Upload beschäftigt ist, den kompletten Thread in dem es läuft blockiert. Einfache Lösung: Du musst diese Aktion in einem Extra-Thread ausführen. Es gibt zwar eine Komponente TidAntiFreeze, die in meiner Erfahrung allerdings nie funktioniert hat.

Mit freundlichen Grüßen,

Valle

PS.: Zum Thema Threads: Threads