VPF::Блокировка БД и зависания консольного приложения

amen

Дата 4.3.2010, 16:04 (ссылка)

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

Загрузка ...

Новичок

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

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

База - Paradox 7
Драйвер базы - BDE

Код


program Al3;

{$APPTYPE CONSOLE}
uses
  Windows,
  Sysutils,
  DBTables,
  DB;

var

 glal: String;  
 NameAl : String;  
 al : String;
 Table1: TTable;

begin

  Table1:=TTable.Create(nil); 
  Table1.DatabaseName:='GZ'; 
  Table1.TableName:='111.DB';
  Table1.Active:=True; 
  Table1.First; 
  while not Table1.Eof do begin
  if (Table1.FieldByName('IDA').AsString=al) then begin
  glal:=Table1.FieldByName('IDIGLV').AsString;
  NameAl:=Table1.FieldByName('NameAl').AsString;
  end;
  Table1.Next;
  end;
  Table1.Close;
  Table1.Free;

...

end.

При запуске одного экземпляра приложения, программа выполняется без проблем.
При запуске 2х и более экземпляров одновременно блокируется БД и приложения зависают на исполнении Table1.Active:=True
Если вставить данный код не в консольное приложение, а в Application то два и более приложений работают исправно.

Как добится исполнения 2х и более экзепляров консольных приложений?

DarkProg

Дата 4.3.2010, 21:17 (ссылка)

(голосов:1)

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

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

Попробйу реализовать SQL запросом а потом обрабатывай его, я насколько понял, то Tabel постоянно обращается к базе на предмет изменения данных, а запросом ты дёрнул данные и база отдыхает.
Всё почти тоже только компонентик Query smile

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

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

pseud

Дата 5.3.2010, 16:39 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Цитата(amen @ 4.3.2010, 16:04

)

При запуске 2х и более экземпляров одновременно блокируется БД и приложения зависают на исполнении Table1.Active:=True

Забудь про TTable. Пользуйся только TQuery.

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

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