[Delphi] Wysyłanie emaila z ProgressBarem

0

Poniżej umieściłem procedure wysyłania maila z załacznikiem (za pomocą indy9).Gdy wysyłany plik troche zajmuje (np. 4Mb) to program zwiesza się na chwile, chciałbym dołaczyć do tej procedurki ProgressBar żeby widoczny był postęp wysyłania pliku.To wyszystko znajduje się w serwerze , który ma za zadanie wysyłać klientowi postęp wysyłania pliku.Czy jest to w ogóle możliwe ? Jeśli ktoś ma jakiś pomysł to zgóry dziękuje :)

procedure TForm1.SendMail(mail,plik:string);
begin
idmessage1.Body.Clear;
idMessage1.Body.Append(xxxx');
idMessage1.From.name := 'xxxx';
idMessage1.From.Address := '[email protected]';
idMessage1.Recipients.EMailAddresses := mail;
idMessage1.Subject := 'xxxxxx';
idSMTP1.UserName := 'xxxxxx';
idSMTP1.Host :='xxxxx';
idSMTP1.Password := 'xxxxx';
idmessage1.MessageParts.Clear;
TIdAttachment.Create(idMessage1.MessageParts,plik);
idSMTP1.Connect;
try
try
idSMTP1.AuthenticationType:=atlogin;
idSMTP1.Send(idMessage1);
finally
idSMTP1.Disconnect;
end;
except
xxxxxxx
end;
end;

0

z Indy tego nie zrobisz

0

A masz jakąś ciekawszą metode ?

0
Bobi napisał(a)

A masz jakąś ciekawszą metode ?

gniazdka :>

0

Właściwie to używam ggtlite , ale dzięki za fatge :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1