VPF::Еще вопрос по потокам (TThread )и базам данных

BoBo

Дата 3.10.2003, 11:21 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте,
Вот незадачка:

Два потока один должен всавлять запись, другой изменять
Значит, первый поток вставляет запись, выдает Showmessage,
а второй поток ждет пока я не нажму ОК на ShowMessage, а затем только
выполняется. А мне необходимо чтобы второй поток не ждал моего нажатия

Что посоветуете ?
Вот фрагменты кода

...

Код


var
 T1,T2: TableThread;
begin
 T1:=TableThread.Create(true);
 T1.Query:=Query1;
 T1.id:=0; // будет вставка записи
 T1.FreeOnTerminate:=false;

 T2:=TableThread.Create(true);
 T2.Query:=Query1;
 T2.id:=1; //  будет модификация записи
 T2.FreeOnTerminate:=false;

// синхронизация потоков
procedure TableThread.Execute;
begin
  repeat
   Synchronize (ProcessTable);
  until Terminated;
end; 

//то, что должно выполняться
procedure TableThread.ProcessTable;
 begin
  case id of
  0: begin
   Query.SQL.Clear;

   Query.SQL.Add('update tabl ');
   Query.SQL.Add('set str = "wwwww"');
   Query.ExecSQL;
   showMessage('1 st Thread  - OK');
    end;

   1: begin
     Query.SQL.Clear;
     Query.SQL.Add('insert into tabl (id,str)');
     Query.SQL.Add('values (1, "___")');
     Query.ExecSQL;
  showMessage('2 nd Thread - OK');
      end;
  end;
  suspend;
 end;

Это сообщение отредактировал(а) Girder - 8.8.2006, 21:35

pavelv

Дата 8.8.2006, 10:39 (ссылка)

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

Загрузка ...

Бывалый

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

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

Переменную булевскую сделай(глобальную конечно), как только 1ый закончился ставь её в true. Во втором потоке перед выполнением сделай что-нибудь в духе

Код


while not bool do
begin
end;

Если поток не распознает изменение переменной попробуй Application.ProcessMessage(вообще должно и без этого обойтись). Если и тут не поможет то таймер тебе в помощь.

ADD: дямс, писал ответ в своей теме и решил помочь темам которые снизу светились как якобы: "Вы смотрели...?" А теме уже 3ий год идёт.

Это сообщение отредактировал(а) pavelv - 8.8.2006, 10:42

Romikgy

Дата 8.8.2006, 10:50 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Читайте это
http://forum.vingrad.ru/index.php?showtopic=60076

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 8.8.2006, 11:13 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

ShowMessage всегда выполняется в главном потоке.
Юзай MessageBox с хэндлом 0.

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