Jump to content

Progressbar Kendisini Güncellemiyor


mehmet07

Recommended Posts

 with tblMail do begin
   open;
   first;
   ProgressBar1.visible:=true;
   ProgressBar1.Max:=RecordCountFromSrv;
   kayitkonum:=0;
   while not eof do begin
    if fieldbyname('email').asString<>'' then
    SendHtmlMail(fieldbyname('email').asString,edtKonu.text,edtMail.text,false);
    sleep(edtSure.Value * 1000);
    kayitkonum:=kayitkonum + 1;
    ProgressBar1.Position:=kayitkonum;
    next;
   end;

Merhabalar,

-Yukarıdaki kod ile mail listesi tablomdaki kayıtlara sırayla mail atıyorum. Fakat progressbar hareket etmiyor. Nezaman işlem tamamlanırsa ozaman görünüyor ve %100 tamamlandı şeklinde gösteriyor. 

Application.ProcessMessages;

Refresh Sorununu yukarıdaki kodla delphi içinde çözebiliyorum. Ama Unigui ile bu sorun nasıl düzeltilebilir acaba? (Uygulamayı dll olarak çalıştırıyorum)

 

-İkinci bir sorunumda mail göndermekle alakalı. Bunun için UniHtmlMemo bileşenini kullanıyorum. Yazıları biçimlendirip sorunsuz gönderiyor. Mail'in içeriğine resim eklemekte mümkün mü? web sayfasının içeriğini kopyala yapıştır yapınca gönderiyor. Ayrıca bilgisayarımızdaki bir dosyayı mail'e nasıl ekleyebilirim.

 

Teşekkürler.

Link to comment
Share on other sites

  • 3 years later...
  • 3 weeks later...

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...