Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.11;
Скачать: CL | DM;

Вниз

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

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



Страницы: 1 вся ветка

Текущий архив: 2003.09.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
1-33568
Pirat
2003-08-28 12:15
2003.09.11
странный глюк TListView


3-33438
grusty
2003-08-21 10:48
2003.09.11
Удаление всех записей в ADO.


1-33591
Anonimus
2003-08-27 13:01
2003.09.11
Компонент StringGrid


1-33535
DDS
2003-09-01 17:39
2003.09.11
Как сохранить WORDовский файл с картинкой внутри?


1-33673
race1
2003-08-29 16:23
2003.09.11
enhlistview