iBase.ru Forum

Код: Выделить всё

type
  TSearchThread = class(TThread)
  private
    { Private declarations }
    FSQLquery: TSQLQuery;
  protected
    procedure Execute; override;
    procedure MyTableOpen;
  public
    constructor MyCreate(ASQLQuery: TSQLQuery);    
  end;
.
.
.
constructor TSearchThread.MyCreate;
begin
  inherited Create(true);
  FreeOnTerminate := True;
  Priority := tpNormal;
  FSQLquery := ASQLQuery; 
  Resume;
end;
.
.
.
procedure TSearchThread.Execute;
begin
  FSQLquery.Open;
end;

Код: Выделить всё

TMyThread.Create(Query: TSQLQuery);
begin
  FQuery := Query;
end;

TMyThread.Execute;
begin
  FQuery.Open;
end;

Код: Выделить всё

  TSearchThread = class(TThread)
  private
    { Private declarations }
    FSQLConnection: TSQLConnection;
    FSQLQuery: TSQLQuery;
  protected
    procedure Execute; override;
    procedure MyTableOpen;
  public
    constructor MyCreate(ASQLConnection: TSQLConnection; ASQLQuery: TSQLQuery);
    destructor Destroy; override;    
  end;

constructor TSearchThread.MyCreate;
begin
  inherited Create(true);
  FreeOnTerminate := True;
  Priority := tpNormal;

  FSQLConnection := TSQLConnection.Create(nil);

  FSQLConnection.ConnectionName := 'ibconnection';

  FSQLConnection.Params.Assign(ASQLConnection.Params);
  MessageBox(0, PChar(FSQLConnection.Params.Text),'',0);
  FSQLConnection.DriverName := 'Interbase';
  FSQLConnection.LibraryName := 'dbexpint.dll';
  FSQLConnection.VendorLib := 'gds32.dll';
  FSQLConnection.GetDriverFunc := 'getSQLDriverINTERBASE';
  FSQLConnection.LoginPrompt := false;
  FSQLConnection.Open;
  FSQLQuery := TSQLQuery.Create(nil);
  FSQLQuery.SQLConnection := FSQLConnection;
  FSQLQuery.SQL.Assign(ASQLQuery.SQL);
  MessageBox(0, PChar(FSQLQuery.SQL.Text), '', 0);
  FSQLQuery.Open;
  if FSQLConnection.Connected  then MessageBox(0, 'Connected', '', 0) else MessageBox(0, 'Not connected', '', 0);

  //Resume;
end;