Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Рисующий Thread [D5, Win95/98]

А. Тимофеев © (2002-08-02 09:44:00)
Привет.

Есть DLL в которой реализван объект TMyObj с функцией funcPaint, рисующей графику на заданный HDC.
Для работы с этим объектом сначала вызывается функция инициализации funcInit, которая возвращает номер NN этого объекта в потоковом TThreаdList.
Далее приложение обращается к каждому объекту TMyObj по этому номеру

например, для вызова перерисовки: funcPaint(NN, HDC)

При создании нескольких объектов TObj в отдельных потоках (создается поток, в потоке окно и экземпляр TObj, который рисует в это окно) функция funcPaint падает.
Но если использовать LockList перед вызовом funcPaint

function funcPaint(NN, HDC);
begin
with DllThreadList.LockList do
MyObj:= TMyObj(Items[NN-1]);
MyObjPaint(HDC);
DllThreadList.UnlockList;
end;

то так все работает без ошибок, но хочется сделать так:

function funcPaint(NN, HDC);
begin
with DllThreadList.LockList do
MyObj:= TMyObj(Items[NN-1]);
DllThreadList.UnlockList;
funcPaint(NN, HDC);
end;

но этот вариант работает всего несколько перерисовок, а затем валится. В чем может быть причина, глобальных переменных в DLL вроде нет.

Функция рисования самого TMyObj имеет такую структуру

procedure TMyObj.MyObjPaint(HDC);
var
Canvas: TCanvas;
begin
Canvas:= TCanvas.Create;
Canvas.Handle:= HDC;
try
вывод графики на Canvas
finally
Canvas.Free;
end;
end;

В чем может быть причина?

Zelius (2002-08-02 10:38:00) [1]
У потока есть такой метод - Synchronize, почитай про него в Хелпе, может поможет... В демках с потоками он используется, можно там подсмотреть....

MBo (2002-08-02 09:48:00) [2]
Canvas.Lock не спасет?

Наверх

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