Progressbar Kendisini Güncellemiyor

[mehmet07]

 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.

[alp.yilmaz]

Doya Attach ederek bunu Multipart şeklinde yapabilirsiniz Mehmet Bey

[Hayri ASLAN]

Merhaba

 

Application.ProcessMessages Unigui karşılığı UniSession.Synchronize() dir.

[Farshad Mohajeri]

Bu demoları inceleyin:

SyncClientUpdate - 1
SyncClientUpdate - 2
SyncClientUpdate - 3
SyncClientUpdate - 4
SyncClientUpdate - 5

[mehmet07]

Önceleri eski sürüm kullanıyordum onda Synchronize yoktu. gecenlerde yeni sürüme gectim. Synchronize güzel calisiyor. teşekkürler.