Проблемы с TThread 2...

← →
¤ZDima¤ © (2003-08-21 23:02) [0]

Знающие люди, помогите разобраться с нитями(TThread) – привожу код, в чём ошибка ниже...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,{!!!->}jpeg{<-!!!}; type TMyThread = class(TThread) private protected procedure DoWork; procedure DoAnWork; procedure Execute; override; end; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private public end; var Form1: TForm1; t:TMyThread; ki:integer=0; files:TStringList; implementation {$R *.dfm} procedure TMyThread.Execute; begin DoWork; t.FreeOnTerminate:=true; t.Free; end; procedure TMyThread.DoAnWork; begin Form1.Caption:=IntToStr(round((ki/files.Count)*100))+"% Done"; Form1.Label1.Caption:="File:"+files[ki-1]; end; procedure TMyThread.DoWork; var i:integer; b:TBitmap; j:TJPEGImage; img:TPicture; begin files:=TStringList.Create; files.LoadFromFile("c:\fileList.txt"); //В фаёле "c:\fileList.txt" находиться список //файлов(с путями) формата bmp и jpg CreateDir("c:\zdima\"); b:=TBitmap.Create; j:=TJPEGImage.Create; img:=TPicture.Create; for i:=0 to files.Count-1 do begin img.LoadFromFile(files[i]); b.Width:=img.Width; b.Height:=img.Height; b.Canvas.Draw(0,0,img.Graphic); j.Assign(b); j.Compress; j.SaveToFile("c:\zdima\"+inttostr(i)+".jpg"); ki:=i+1; Synchronize(DoAnWork); end; b.Free; j.Free; img.Free; files.Free; end; procedure TForm1.Button1Click(Sender: TObject); begin t:=TMyThread.Create(false); end; end.
Всё вроде-бы понятно, но если двинуть мышь то возникнет ошибка "Out of system resources"или “Не верный дескриптор”... Причём даже если убрать Synchronize(DoAnWork); ошибка остаётся. Подскажите, что нужно сделать, стоб работало???...
P.S. ответ лучше в виде кода...

← →
3APA3A © (2003-08-21 23:21) [1]

А если мышь не двигать? Все нормально?

← →
Palladin © (2003-08-21 23:29) [2]

доктор сказал в морг - значит в морг
причины смерти
1 идентификаторы некоторых объектов - глобальные

2 что за чушь в Execute?
DoWork;
t.FreeOnTerminate:=true;
t.Free;

3 мусор в голове, надо бы упорядочить, математикой занятся...

← →
jack128 © (2003-08-21 23:44) [3]

ну строка
> t.FreeOnTerminate:=true;
вполне в стиле
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Enabled := True;
...
Form1.Enabled := False;
end;

А вот эта строка t.Free; это сильно!

> ¤ZDima¤ © (21.08.03 23:02)
Да и еще, я смотрю, ты уверен что пишешь без ошибок - ни одного обработчика оных не вищу...

← →
Borealis (2003-08-21 23:45) [4]

> ¤ZDima¤ © (21.08.03 23:02)
> Знающие люди, помогите разобраться с нитями
Ну ты тут и наворотил. Безбутылки не разберёшь... :)
Особенно здесь:

> procedure TMyThread.Execute;
> begin
> DoWork;
> t.FreeOnTerminate:=true;
> t.Free;
> end;

Во-первых, почему "t."? Во-вторых, зачем "t.Free;"?

У меня кстати и так всё работает и никаких ошибок не даёт, но этот кусок кода перепиши:
procedure TMyThread.Execute; begin FreeOnTerminate := True; DoWork; end;

← →
имя (2003-08-22 01:42) [5]

Удалено модератором

← →
Ihor Osov'yak © (2003-08-22 01:46) [6]

А если по делу - почитай книжки, как опрятный код писать..
А то в таком бардаке что-то смотреть нет желания совсем..

И подумай над Palladin © (21.08.03 23:29), особенно в части глобальных идентификаторов.. Может и не в них дело - но при виде такого кода иного желания, чем отослать к учебникам, не возникает..
Сорри за резкость, но надеюсь, что выводы правильные сделаешь..

← →
¤ZDima¤ © (2003-08-22 10:55) [7]

С этим - прикол вышел

> t.FreeOnTerminate:=true;
> t.Free;

- я попутал, сорри... Сам долго ржал:))))
Да, и чего вам в коде не нравиться - всё понятно(мне:))))...
И ещё обидно, что по делу совет дали только два чела...
------
Ну так как сделать без глобальных идентефикаторов?
Иль кто ссылку на статью даст какую...

← →
MVova © (2003-08-22 11:06) [8]

procedure TMyThread.DoWork;
var i:integer; b:TBitmap;
j:TJPEGImage; img:TPicture;
begin
files:=TStringList.Create;

Нельзя из потоков (если их несколько одновременно) обращатся к глобальным переменным без синхронизации.
Можно files:TStringList перенести в клас потока, если логически возможно(я в суть задачи не смотрел), или работать с ним как с глобальным синхронизуя доступ и убрав создание files из потока.

← →
¤ZDima¤ © (2003-08-22 20:32) [9]

Короче, я сильно упростил код, даже комментарии добавил!!! Вот он:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,{!!!->}jpeg{<-!!!}; type TMyThread = class(TThread) private { Private declarations } protected procedure DoWork; procedure Execute; override; end; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private public end; var t:TMyThread; Form1: TForm1; implementation {$R *.dfm} procedure TMyThread.Execute; begin t.FreeOnTerminate:=true; DoWork; end; procedure TMyThread.DoWork; var i:integer; b:TBitmap; j:TJPEGImage; img:TPicture; files:TStringList; begin files:=TStringList.Create; files.LoadFromFile("c:\fileList.txt"); //В файле "c:\fileList.txt" находиться список //файлов (с путями) формата bmp и jpg CreateDir("c:\zdima\"); b:=TBitmap.Create; j:=TJPEGImage.Create; img:=TPicture.Create; for i:=0 to files.Count-1 do begin img.LoadFromFile(files[i]);//грузим файл в TPicture //т.к. туда грузятся и jpg и bmp b.Width:=img.Width; //Перерисовываем b.Height:=img.Height; //загруженный рисунок b.Canvas.Draw(0,0,img.Graphic);//на Bitmap j.Assign(b);//тут и так понятно (кому нет - идите) j.Compress; j.SaveToFile("c:\zdima\"+inttostr(i)+".jpg"); end; b.Free; //Всем j.Free; //спасибо img.Free; //Все files.Free; //свободны end; procedure TForm1.Button1Click(Sender: TObject); begin t:=TMyThread.Create(false); end; end.
Глобальных переменны нет (я даже пробовал t:TMyThread; убирать), и... не работает!!!:(
Кто виноват я знаю… А вот ЧТО ДЕЛАТЬ???
P.S. Пишите письма мелким шрифтом.

← →
OptiX © (2003-08-22 23:36) [10]

Вы когда вызываете DoWork не забывайте синхронизировать вызов;
...
Synchronize(DoWork);
...

← →
¤ZDima¤ © (2003-08-23 09:11) [11]

OptiX
Synchronize(DoWork); - пропадает смысл потока - если он будит делать свою работу синхронно - основной паток в это время не будит работать...

MVova
Подскажите, как обращаться к переменным через синхронизацию...
Synchronize только процедуры вызывает...

← →
y-soft © (2003-08-23 09:53) [12]

>¤ZDima¤ © (23.08.03 09:11) [11]

Подскажите, как обращаться к переменным через синхронизацию...

В Вашем случае - через критические секции, причем не только в доп. потоке, но и в главном тоже во всех случаях, когда осуществляется изменение значения переменной...

uses ...SyncObjs; ... var Padlock : TCriticalSection; GlobalVar : string; ... Padlock.Enter; GlobalVar := NewValue; Padlock.Leave;

Или даже так:
Padlock.Enter; try ... GlobalVar := NewValue; ... finally Padlock.Leave; end; initialization Padlock := TCriticalSection.Create; finalization Padlock.Free; end.

А вообще такая синхронизация осуществляется и другими способами: с использованием Мьютексов/Семафоров, функций InterlockedXXX или постановкой в очередь с помощью, например, посылки сообщений окну. Весь смысл - исключить одновременный доступ разных потоков к переменной...

P.S. В использовании глобальных переменных ничего особо страшного нет. Страшно использовать их неправильным образом...

← →
¤ZDima¤ © (2003-08-24 10:45) [13]

y-soft? спасибо за информацию, но я сделал новый пример вообще без глобальный переменных (см. Выше), а ошиька осталась:((
Так в чём же ошибка?

← →
y-soft © (2003-08-24 20:01) [14]

С ходу не скажу, но сразу же бросается в глаза отсутствие каких-либо обработчиков возможных ошибок, а такие ошибки потенциально возможны практически в каждой строчке приведенного кода. В таком виде даже отладить нормально невозможно...

Если выскакивает именно "Неверный дескриптор", то это может относится как к файлам, так и к графике, "Out of resources" тоже много к чему...

Выход один - расставить блоки try...finally, try...except и смотреть в отладчике, лучше построчно...

ошиька возникает на строчке
j.Compress; - на этой
j.SaveToFile("c:\zdima\"+inttostr(i)+".jpg");
И вообще она возникает когда даёшь нагрузку - например пошевелишь мышью, если нажать на старт и ничего не делать, то всё работает...

Очень похоже, что где-то в дополнительном потоке происходит конфликт с главным потоком из-за одновременного обращения к функциям перерисовки - возможно код VCL для TJpegImage.Compress не является потокобезопасным:(

Попробуйте вынести для отладки код, выполняющийся в потоке в главный поток и проверьте, исчезает ли ошибка...

← →
Erik Ivanov (2003-08-25 14:11) [17]

Или j.Compress выполнить в Synchronize

В основном потоке всё работает, как часы.
При Synchronize(j.Compress), всё та же ошибка:(
Что делать?

← →
Erik (2003-08-26 13:53) [19]

Похоже у тебя TJPEGImage скачай другой компонент и с ним попробуй. Можно еще ему перерисовку запретить.

Что-то мне подсказывает, что надо обратить внимание на эту строчку:

j.Assign(b);//тут и так понятно (кому нет - идите)

Проблемы с TThread 2... Найти похожие ветки