Thread Kullanım Problemi

[tuna]

Arkadaşlar merhaba. Ben Thread kullanmaya yeni başlıycam ve öğrenmeye çalışıyorum. Şuan bi projemde bunu kullanmak istiyorum fakat ben bu thread ı bi türlü çalıştıramadım. Hata veriyor.
Forumda yeterince araştırdım amam bişe bulamadım.

oluşturduğum kod aşağıda

Kod: Tümünü seç

procedure tfrmvadehesapla.Kanal1;
begin
Sql_Hareketler.Close;
Sql_Hareketler.SQL.Clear;
Sql_Hareketler.SQL.Add('select * from "2008_Vade_CariHesapHareketleri" order by CariID');
Sql_Hareketler.Open;
end;

procedure TFrmVadeHesapla.FormCreate(Sender: TObject);
var
KimlikID:dword;
begin
CreateThread(nil, 0, @Kanal1, nil, 0, KimlikID); //bu satır hata veriyor....

verdiği hata ise :
[DCC Error] VadeHesapla.pas(309): E2036 Variable required

Şimdiden teşekürler herkese

[Battosai]

Veritabanı işlemlerinde thread kullanmak pek sağlıklı olmuyor...tavsiye etmem.Zaten thread'in başlıca sorunları var...

[tuna]

Tamam pek tavsiye edilmeyen bişey olabailir ama ben yinede deneme yapmak istiyorum. Çözümü varmıdır bunun.?

[t-hex]

Delphi ile Thread(Kanal) Kullanımı - Bölüm 1
Delphi ile Thread(Kanal) Kullanımı - Bölüm 2
yukarıdaki linklerdeki yazıları okuduktan sonra bir daha deneyin isterseniz.

[mcihad]

Jedi içindeki TJvThread nesnesini kullanmayı denedin mi?

[tuna]

Delphi ile Thread(Kanal) Kullanımı - Bölüm 1
Delphi ile Thread(Kanal) Kullanımı - Bölüm 2
yukarıdaki linklerdeki yazıları okuduktan sonra bir daha deneyin isterseniz.

Ben zaten buradan okuyarak yaptım.

Jedi içindeki TJvThread nesnesini kullanmayı denedin mi?

JvTherad nesnesi bende var fakat nasıl kullanılacağını bilmiyorum. Eğer bi örnekle anlatırsanız sevinirim.

[akdatilla]

merhaba
Thread ile sql kodunu çalıştırmak bana pek mantıklı gelmiyor ancak sanırım şöyle düzeltebilirsin

Kod: Tümünü seç

procedure tfrmvadehesapla.Kanal1(sender:TObject);
begin
Sql_Hareketler.Close;
Sql_Hareketler.SQL.Clear;
Sql_Hareketler.SQL.Add('select * from "2008_Vade_CariHesapHareketleri" order by CariID');  ///burada başka bir hata olabilir tablo adı pek geçerli gözükmüyor
Sql_Hareketler.Open;
end;

procedure TFrmVadeHesapla.FormCreate(Sender: TObject);
var
   KimlikID:dword;
   FNot:TNotifyEvent;
begin
        FNot:=Kanal1;
        CreateThread(nil, 0, @FNot, nil, 0, KimlikID);