Aşağıdaki kod ile uzak SQL sunucudaki image tipli alana pdf dosyası kaydediyorum. (Uzaktan kastım internet üzerinden farklı lokasyondaki bir makinaya)
Kod: Tümünü seç
procedure TFormYukle.ButtonKaydetClick(Sender: TObject);
var
X:TMemoryStream;
ZIP:TMemoryStream;
begin
Panel2.Visible:=True; //Panel2 de sürekli çalışan bir progress bar var.
X:=TMemoryStream.Create;
X.LoadFromFile(cxTextEdit1.Text);
ZIP:= TMemoryStream.Create;
CompressStream(X,Z); //Boyutu düşürmek için göndermeden önce sıkıştırıyorum dosyayı
ADOQInsert.Parameters[0].LoadFromStream(ZIP,ftBlob);
ADOQInsert.ExecSQL;
Panel2.Visible:=False;
end;
Ancak uzak SQL sunucuya dosya gönderdiğim için işlem haliyle dosya boyutuna göre 1-2 dk. alıyor.
Bu 1-2 dk lık sürece program donmuş gibi kalıyor.Aslında donmuyor.1-2 dk sonra kayıt post edilince normale dönüyor.
Ben istiyorum ki bu 1-2 dk. lık sürede panel2 (haliyle içindeki progressbar) görünsün ve kullanıcı program dondu sanmasın.
Kayıt işlemi bitincede panel2 visible:=false ile kapansın.
Yukarıdaki kod çalıştığında panel2 görünüyor fakat program donup kaldığı için progressbar hareket etmiyor.
Çok şey mi istiyorum acaba?
Şimdiden teşekkürler.