Релиб / Программирование / Delphi / Ошибка EOSErros / Latest Posts

RE: Ошибка EOSErros

bazile — Wed, 09 May 2007 13:25:32 GMT

[quote][b]blaze (07.05.2007)[/b][hr]А вопрос вот в чем. Как я понял, поток будет выполнять процедуру, описанную в Execute. Т.е. если мне нужно выполнять разные процедуры через поток, то необходимо создать условие в Execute, чтобы он выполнил нужную процедуру? Можно как-нибудь напрямую вызывать нужную процедуру в потоке чтобы обойти условия?[/quote]

В этом случае лучше несколько разных классов наследников от TThread создать. Или пользуйся функцией VCL BeginThread.

[quote][b]blaze (07.05.2007)[/b][hr]И еще возник вопрос.. У меня на форме лежит компонент TIdHTTP и я через поток с ним работаю. И во время запросов, не смотря на то, что они выполняются в отденом потоке, форма зависает на время выполнения, например функции Get в TIdHTTP.. Это имеено следствие того, что синронизируется поток при обращении к TIdHTTP, или в чем-то другом скорее всего ошибка?[/quote]

Не знаю. Возможно компонент не рассчитан на многопотоковую работу, кто его знает.

RE: Ошибка EOSErros

blaze — Mon, 07 May 2007 01:00:33 GMT

И еще возник вопрос.. У меня на форме лежит компонент TIdHTTP и я через поток с ним работаю. И во время запросов, не смотря на то, что они выполняются в отденом потоке, форма зависает на время выполнения, например функции Get в TIdHTTP.. Это имеено следствие того, что синронизируется поток при обращении к TIdHTTP, или в чем-то другом скорее всего ошибка?

Если это следствие того, что синронизируется поток при обращении к TIdHTTP, то как-то тогда надо TIdHTTP запихать в класс fThread Что я и попробовал - добавил
fIdHTTP: TIdHTTP;..

И в <процедура> добавил fIdHTTP.Create; и уже после этого пытался выполнить fIdHTTP.Get(...).. Но ничего не вышло, не нравится что-то дебагеру тут.

RE: Ошибка EOSErros

blaze — Mon, 07 May 2007 00:31:26 GMT

Что-то я не очень понял одну вещь..

...
type
fThread = class(TThread)
private
{ Private declarations }
procedure <Процедура>;
protected
{ Protected declarations }
procedure Execute; override;
end;

...

procedure fThread.Execute;
begin
Synchronize(<Процедура>);
end;

procedure fThread.<Процедура>;
begin
...
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
fThread.Create(False);
end;
...

Т.е. по нажатию на кнопку, должен запуститься поток. А вопрос вот в чем. Как я понял, поток будет выполнять процедуру, описанную в Execute. Т.е. если мне нужно выполнять разные процедуры через поток, то необходимо создать условие в Execute, чтобы он выполнил нужную процедуру? Можно как-нибудь напрямую вызывать нужную процедуру в потоке чтобы обойти условия?

RE: Ошибка EOSErros

bazile — Sun, 06 May 2007 12:53:43 GMT

blaze, открой, пожалуйста, документацию. Там все есть.

RE: Ошибка EOSErros

blaze — Sat, 05 May 2007 19:28:33 GMT

А ты мог бы написать какой-нибудь простенький пример работы с TThread..? Чтобы, например, по нажатию на кнопку выполнялась какая-нибудь процедура.

RE: Ошибка EOSErros

bazile — Sat, 05 May 2007 12:36:21 GMT

Хорошая мысль. Я и не обратил внимание что ты WinAPI функцию CreateThread вызываешь. Работая в Delphi лучше всего использовать ее родные классы/методы, обращаясь к WinAPI только при реальной необходимости.

Разница между CreateThread, BeginThread и классом TThread конечно же есть. CreateThread это функция WinAPI которая ничего не знает о VCL. В то же время BeginThread и TThread являются родными средствами VCL и делают дополнительную работу. Подробности смотри в документации. Я бы на твоем месте создал наследника от TThread.

RE: Ошибка EOSErros

blaze — Sat, 05 May 2007 12:00:11 GMT

Странно, но все равно не хочет работать Synchronize.. А что если через TThread сделать тоже самое? Вообще есть ли разница между CreateThread, BeginThread и классом TThread.

RE: Ошибка EOSErros

bazile — Fri, 04 May 2007 10:04:58 GMT

В Synchronize надо передавать только имя метода. Параметры придется передавать как-то по другому. Например, через private поля класса.

RE: Ошибка EOSErros

blaze — Fri, 04 May 2007 09:21:56 GMT

Я тоже думал, что Synchronize спасет.. Но почему-то он не хочет работать..

Создал новую процедуру procedure set_ProgressBar(Visible: Boolean; Possition: Integer), куда передаю нужные параметры.. А в функции, которую выполняет поток добавил Synchronize(set_ProgressBar(True, 20)), на что Delphi говорит "Missing operator or semicolon"..

RE: Ошибка EOSErros

bazile — Thu, 03 May 2007 11:35:36 GMT

Попробуй вынести изменение свойств ProgressBar в отдельный метод и вызывай его через Synchronize.