Выполнение запроса с помощью TOracleQuery (DOA) в потоке.

← →
Plt (2004-07-01 16:12) [0]

Запускается приложение, конектюсь к базе. У TOracleSession свойство ThreadSafe = true. Передаю сессию в поток. Но пока не выполнится поток невозможно открыть новую форму!! В форму тоже передается сессия. Делаю так:

TSAMSesThread = class(TThread)
private
ExecQry: TOracleQuery;
HotSAM : string;
Ses : TOracleSession;
protected
procedure Execute; override;
procedure SaveAction;
public
procedure InitSAMSes(aSes : TOracleSession);
end;

procedure TSAMSesThread.InitSAMSes(aSes: TOracleSession);
begin
FreeOnTerminate := True;
Ses := aSes;
ExecQry := TOracleQuery.Create(nil);
ExecQry.Session := Ses;
with ExecQry do
begin
SQL.Clear;
SQL.Add(".....");
end;
Resume;
end;

procedure TSAMSesThread.Execute;
begin
try
ExecQry.Execute;
with ExecQry do
begin
while not Eof do
begin
HotSAM := HotSAM + Format("%s [¹%d Îïèñàíèå: %s]",[FieldAsString("sam"),FieldAsInteger("dev_id"),FieldAsString("dev_dsc")]) + ",";
Next;
end;
if RowCount > 0 then
Synchronize(SaveAction);
end;
finally
ExecQry.Free;
end;
end;

← →
Erik1 (2004-07-01 17:06) [1]

Поставь ExecQry.ThreadSafe := False; и Synchro... := False;

Выполнение запроса с помощью TOracleQuery (DOA) в потоке. Найти похожие ветки