| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание компонент в рантайм в отдельном потоке [D7, Win2k]

Sam ©   (2003-08-18 19:12:00) 

Уважаемые мастера, как создать 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);
В чем тут дело?
Заранее спасибо.

---

Digitman   (2003-08-20 09:55:00) [1]

> 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); // !!!!!!!!

---

Polevi   (2003-08-19 09:45:00) [2]

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

---

Наверх