Создание компонент в рантайм в отдельном потоке

← →
Sam (2003-08-18 19:12) [0]

Уважаемые мастера, как создать BDE компонент TDataBase в отдельном потоке?
Я делаю так: есть TSostread = class(TThread), у него метод procedure TSostread.LdSostaw;
var
DBFBase : TDataBase;
begin
DBFBase.Create(nil);
DBFBase.AliasName:="ForOracle";
DBFBase.DatabaseName:="main";
DBFBase.Connected:=True;
end;
А дальше обработчик TSostread.Execute переопределяется следующим образом:
procedure TSostread.Execute;
begin
repeat
try
Synchronize(LdSostaw);
except on Ex: Exception do
fExceptionMessage:=Ex.Message;
end
until Terminated;
end;
При запуске такого потока возникает Access Violation в момент выполнения DBFBase.Create(nil);
В чем тут дело?
Заранее спасибо.

← →
Polevi (2003-08-19 09:45) [1]

во первых ты создаешь TDatabase в основном потоке
во вторых ты создаешь очень много TDatabase

← →
Digitman (2003-08-20 09:55) [2]

> Sam

перевожу тебе на русский то, что ты понаписал :

procedure TSostread.Execute;
begin
repeat // повторять нижеследующее
try // а имеенно - попытка
Synchronize(LdSostaw); // выполнить процедуру LdSostaw в осн.код.потоке, всякий раз при выполнении LdSostaw пытаться выполнить чертовщину, которая гарантированно вызовет исключение
except on Ex: Exception do // в случае возникновения исключения (а оно обязательно возникнет !)
fExceptionMessage:=Ex.Message; // зафиксировать текст его сообщения
end
until Terminated; // до тех пор пока флаг завершения не будет = True
end;

теперь - о "чертовщине" :

var
DBFBase : TDataBase;
begin
// DBFBase.Create(nil); // вот она !
// правильным же будет так
DBFBase := TDataBase.Create(nil); // !!!!!!!!

Создание компонент в рантайм в отдельном потоке Найти похожие ветки