VPF::В трехзвенке не отрабатывает поток

KAnAn

Дата 22.8.2009, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 24.7.2009

Репутация: нет
Всего: нет

Трехзвенка, Delphi 7, Oracle, MDI-приложение, TSocketConnection, на серверной части (TSQLQuery-TDataSetProvider), на клиенте (TClientDataSet - TDataSource).
При работе без использования потока все работает отлично, но в связи со значительной длительностью выполнения запроса хотелось бы зарядить запрос через поток, чтобы приложение не висло и не вводило пользователя в ступор.
Тестовый вариант выглядит так:

Код


// Поток
unit DBThread;

interface

uses
  Classes, DB;

type
  TForm = procedure of object;

type
  TDBThread = class(TThread)
  private
    vDataSet: TDataSet;
    vForm: TForm;
  protected
    procedure ActiveQuery(vDataSet: TDataSet);
    procedure Execute; override;
  public
    constructor MyCreate(fDataSet: TDataSet);
    property fForm: TForm write vForm;
  end;

implementation

{ TDBThread }

constructor TDBThread.MyCreate(fDataSet: TDataSet); begin
  inherited Create(True);
  FreeOnTerminate := True;
  Self.Priority := tpLower;
  vDataSet := fDataSet;
end;

procedure TDBThread.ActiveQuery(vDataSet: TDataSet);
begin
  vDataSet.Open;
end;

procedure TDBThread.Execute;
begin
  ActiveQuery(vDataSet);
  Synchronize(vForm);
end;

end.

// Форма
type
  TmyForm = class(TForm)
…
  cdsTer: TClientDataSet;
…
  private
    procedure LocateTer;

  end;
…
var
  myForm: TmyForm;

implementation

uses dbThread;
var dbThread: TDBThread;

procedure TmyForm.LocateTer;
begin
  cdsTer.Locate('TER_ID', '1234567890', [loPartialKey]);
end;

procedure TmyForm.FormShow(Sender: TObject);
begin
  dbThread := TDBThread.MyCreate(cdsTer);
  try
    dbThread.fForm := LocateTer;
    dbThread.Resume;
  except on EConvertError do
    begin
      dbThread.Free;
      ShowMessage('Ошибка приложения.');
    end;
  end;

end;

Так выглядит работа с потоком.
Поток инициализируется, выполняется, и на форме (через дебагер) выходит сообщение об ошибке:
Project MyProject.exe raised exception class ESocketConnectionError with message ‘Error reading from socket’.
Кстати, если смотреть пошагово, то до выполнения Synchronize(vForm) дело не доходит.
После выполнения vDataSet.Open форма отображается на экране (данные запроса должны отображаться через грид), затем задержка (выполнение запроса, я полагаю) и далее сообщение об ошибке.
Что не так делаю?
Спасибо.
За примеры отдельный респект и уважуха.

Это сообщение отредактировал(а) Rrader - 22.8.2009, 14:32

bartram

Дата 22.8.2009, 17:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: 3
Всего: 29

Рекомендую почитать вот это, сразу найдете свои ошибки.

--------------------

В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »