sorgulamayı sonlandırmak

[VooDoo]

merhaba
bir sorgulama işlemi çok uzun sürerse kullanıcıya bu işlemden vazgeçmesi için bir buton ile seenek sunmak istiyorum, fakat sorgu çalıştığı için butona basamiyor ve sorgu sona ermiyor?

tavsiyeniz nedir arkadaşlar

[selman]

selam
sorgulamayı yarıdamı kesmek istiyorsunuz bir butona basarak

[NewMember]

Bence şöyle bir deneyin.Sorgulamaya başlamadan önceki datasetin içerdiği sql cümleciğini bir stringe atayın mesela MevcutSQL adında.Vazgeç butonuna tıklayınca şu aşağıdaki kod çalışsın.

var mevcutSQL:String;//Bunu formun başında tanımla genel olsun.
Sorgulama yordamına şöyle
Begin
MevcutSQL:=Datasetim.Sql;
//sonrada sql sorgunu yaz.
..........................
....................
end;
Vazgeç butonuna da

Datasetim.close;
Datasetim.sql.clear;
Datasetim.sql.add(MevcutSQL);
Datasetim.open;

Seni yanlış anladıysamda kusura bakma.
Sanırım böyle çalışır.Olmazsa tekrar başka bir şeyler düşünürüz.

[VooDoo]

evet yarıda kesmek istiyorum,
soyle yapiyorum sorgulama baslamadan bir ufak bir formda animation oynatiyorum, sorgulama bitince de form ve animationu kapatiyorum

ama bazen adamin arama kriterinden dolayı takılıp kalmış gibi bir izlenim oluyor bu nedenle kullanıcıya vazgeçmesi için o formda bir buton koyup sorgulamayı kesmek istiyorum, fakat form aktif sorgu arkada iken o butona basamiyorum ve kaliyor oyle, hem butona tıklayabileyi hemde sorguyu sonlandirabilmeliyim

fikir yuruten arkadaslara tesekkurler

[pro_imaj]

bence bu çok zor

bu tür bişe işlemde diğer düğmelerle işlem yapmakta baya zor. işlem bitene kadar düğme basılı gözüküyor. (ben de böyle bişey yapmak istiyordu ama olmamıştı)

[NewMember]

Arkadaşlar şu an derleyicim yanımda yok.Tam yazamıyorum.Ama bu tip durumlar için delphinin bir fonksiyonu var.Programda bir kod çalışırken diğer işlemleri yapmaya yarayan bir kod.Bir terim.Aklıma gelirse hemen yazarım.O kod sayesinde vazgeç butonuna veya istediğiniz her butona basabilirsiniz.Kod arka planda çalışıyor ama kontrolü windowsa bırakıyor.
Kolay gelsin

[kadirkurtoglu]

merhaba bu tür işlemlerde application.processmessages; demen yeterli bu özellik istenildiği anda işlemi başka bir olaya aktarabilir. özellikle for ile kurulan döngülerde ben bu özelliği kullanıyorum. bu windowsun bir özelliği aslında. çalışan uygulamalar arası geçiş için işlemci kullanımını ayarlıyor. bir arkadaşım tablo taraması yapıyordu ve işlem çok uzun oluyordu. işlem bitmeden de başka işlemlere geçemiyordu sadece yukarıdaki kodu ekledim döngü sonuna işini halletti. artık tarama bitmeden başka işlemlere geçebildiğini gördü. veya işlemi sonlandırabiliyordu. tabi senin istediğin olay bu ise yanlış anlamadıysam .kolay gelsin.

[kadirkurtoglu]

arkadaşlar dan biri sorguyu close yaparak kapat demiş bir diğeri çok zor demiş. burda mesele o anda hiçbirşey yapamamak zaten dediğin gibi close olabilir ancak close koduna gelmeden sorgunun bitmesi gerekiyor. sorgu bitmeden de close komutuna geçmez. olay dediğim gibi sorgudan çıkmak yada sonlandırmak yada başka bir uygulamaya geçmek ise yukarıda yazdığım kod bu işlemi sağlıyor. yani işlemci ve hafıza kullanımlarını ayarlıyor. kolay gelsin

[VooDoo]

konuya ilgi için teşekkürler arkadaşlar ama cok can sıkan bir olay bu o nedenle halletmeliyim

application.processmessages;
satırını hem sorguyu.Open dedigim yerde hemde actigim bekletme formunun onshow kismina yazdim fakat bu formdaki butona tıklayamiyorum ve formu kapatip devam edemiyorum halen, takılı kalıyor yine,

ekstra başka birşey yapmam gerekiyormu?

[pro_imaj]

Bu kodu incele işine yarayacağından eminim.

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);

begin
  Button1.Caption := 'Ignore Messages';
  Button2.Caption := 'Process Messages';

end;

procedure TForm1.Button1Click(Sender: TObject);

var
  I, J, X, Y: Word;
begin
  I := 0;
  J := 0;
  while I < 64000 do
  begin
    Randomize;
    while J < 64000 do
    begin
      Y := Random(J);
      Inc(J);
    end;
    X := Random(I);
    Inc(I);
  end;
  Canvas.TextOut(10, 10, 'The Button1Click handler is finished');

end;

procedure TForm1.Button2Click(Sender: TObject);

var
  I, J, X, Y: Word;
begin
  I := 0;
  J := 0;
  while I < 64000 do
  begin
    Randomize;
    while J < 64000 do
    begin
      Y := Random(J);
      Inc(J);
      Application.ProcessMessages;
    end;
    X := Random(I);
    Inc(I);
  end;
  Canvas.TextOut(10, 10, 'The Button2Click handler is finished');

end;

Saygılarımla.

[kadirkurtoglu]

terslik kod da değilde senin kurguladığın olayda olabilir. ana konu belli ancak yine de nasıl yaptığınında önemi var. bu işlem sırasında başka bir form mu açılıyor yoksa bu işlem tamamen başka form açılıp o unit üzerinde mi oluyor anlayamadım. bu kod la ben çok döngüden kolayca kurtuldum. yani bizzat kullandım. benim bildiğim başkaca yöntemde yok. onshow veya oncreate gibi form oluşumu veya gösterilmesi gibi olaylara yanlış kod yazmak stack yapabilir. bu nedenlede program kilitlenebilir. bence sen ne yapmak istediğini de açık yazarsan yani olaylar tek unittemi yoksa başkaca unit bu işin içine dahilmi?

[mege]

şuan deneyemicem ama sorguyu bi thread içinde çalıştırıp, butona bağlı bi eventla kesmeyi deneyin;progressmessage işe yaramaz.

[fduman]

@mege nin dediği gibi tek yol thread. Çünkü Open çağrısı blocking bir çağrıdır. Asenkron değildir. İşi bitene kadar program Open'da bekler.

[VooDoo]

soyle oluyor anlatayim

ana formumdan arama yapiyorum, sorguyu calistirmadan hemen once baska bir form uniti de farkli show ediyorum, sorgu bitince de zaten close oluyor o form, yani yeni acilan formda sadece hareketli bir animation ve bir button var.

butona tikladiginda formun kapanmasini ve sorgunun da durmasini istiyorum

[fduman]

Biz de onu söylemeye çalışıyoruz. Open da SQL sorgusu bitene ve sonuç alınana kadar programın duracaktır. Bir thread içinden bu sorgulamayı yaptırman istediğin şeyi sağlar. Sitede birkaç örnek vardı.