Wie kann man eine
Query innerhalb eines Threads nutzen ?
folgendes habe ich verwendet nur kommt ständig eine Speicherzugriffsverletzung !
Delphi-Quellcode:
type
Test = class(TThread)
a1 : Integer;
Query1 : TIBQuery;
Datenbank : TIBDatabase;
Transaction : TIBTransaction;
private
{ Private-Deklarationen }
public
constructor create(Art : Integer; Datenbankkomp : TIBDatabase); overload;
protected
procedure Execute; override;
end;
var
Test1 : Test;
U_Datum : Tdate;
U_Fach : Integer;
implementation
{$R *.DFM}
constructor Test.create(Art : Integer; Datenbankkomp : TIBDatabase);
Begin
a1 := Art;
Datenbank := Datenbankkomp;
inherited create(false);
End;
procedure Test.Execute;
begin
Query1.text := 'Egal'; // Hier bekomme ich eine Speicherzugriffsverletzung !
sleep(10000);
end;
end.
Das Hauptformular und den Button der den Thread erzeugt habe ich mal weggelassen !