работа с потоками

[SHtirlic1]

Доброе время суток
кто может подробно в деталях разьяснить работу с потоками
на примере этого исходника
test.rar

[_SERGEYX_]

В этом исходнике и не пахнет потоками.

[SHtirlic1]

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

[Johnson]

_SERGEYX_, потоками там не может не пахнуть) Хотябы один, но есть

ТС, читай http://forum.icqmag.ru/showthread.php?t=1378
Сразу скажу, что твой проект даже не смотрел.
Для начала определись, что именно ты хочешь исполнять в потоке.
Поток, если его не зациклить, исполнит код внутри процедуры Execute и завершится.
Чаще всего в потоках делают а)сложные вычисления, б)действия, которые приводят к тормозам интерфейса.
Если хочешь понять потоки - сделай пример из указаного мной, а не пытайся сразу применить к своему проекту.
И... просто скажи, зачем именно тебе потоки, многие случаи удается решить и без них.

добавлено

всё-таки не удержался... посмотрел проект.
ИНДИ компоненты отличаются тем, что не создают своего потока, тем самым тормозят интерфейс...

объявляешь класс потока с перекрытием профедуры Execute
описываешь поток
в экзекуте:

создаешь клиент ИНДИ
настраиваешь его
делаешь попытку соединения

while not INDY.connected do sleep(10);
while INDY.connected do begin
{тут заставляешь инди качать что нужно}
{проверяешь, всё ли скачано}
{вызываешь процедуру синхронизации с помощью Synchronize и передаешь что нужно в основной поток.}
INDY.disconnect; {не забываем}  
end;

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

[JTG]

Вот, там много
_http://forum.vingrad.ru/forum/topic-60076.html

[SHtirlic1]

пример исходника

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
help: TStrings;
s:string;
begin
  help := TStringList.Create;
  help.LoadFromFile('text/help.txt'); //Открыть файл с текстом
if msg='anek' then begin
s := IdHTTP1.Get('http://anekdotov.net/anekdot/random/'+IntToStr(Random(100)+1)+'.html?');
While pos('<BR>',s) <>0 do
delete(s,pos('<BR>',s),4);
Icqclient1.SendMessage(StrToInt(UIN), Copy(s, pos('''>', s) + 2, pos('<INPUT type=image src=', s) - pos('''>', s) -2));
 exit;
 end
 else
 if msg='!help' then begin
Icqclient1.SendMessage(StrToInt(UIN), help.Text);
 end
 else
if (copy(msg,1,8)='!slogan ') then
begin
s := IdHTTP1.Get('http://slogen.ru/s/'+Msg+'');
Icqclient1.SendMessage(StrToInt(UIN), Copy(s, pos('15px">', s) + 6, pos('</div>', s) - pos('15px">', s) -6));
end;
end;

при команде anek все работает при отправке !slogan форма зависает пока не вырубиш процесс

[Johnson]

вот скажи... в чем разница условий анек и слоган?
разница в том, загружаетя через инди или через асю.
выводы делай сам.


извиняюсь, недочитал.
скорее всего даешь неправильный запрос к сайту. в таком случае
Copy(s, pos('15px">', s) + 6, pos('</div>', s) - pos('15px">', s) -6)
вернет пустую строку.
попробуй сделать
Copy(s, pos('15px">', s) + 6, pos('</div>', s) - pos('15px">', s) -6)+' '
добавить пробел к концу

[SHtirlic1]

Johnson, можеш сделать пример на моем исходнике? мне по примеру будет лучше понять

[Johnson]

по ссылке же намного понятнее... у меня есть примеры только на голых сокетах, я в острой форме не уважаю инди и их продукцию...

посмотрел щас... ты там запутаешься, там переплетены тесно несколько классов с потоками и сокетами... а простого примера нет.

по ссылке в первой же врезке есть самый простой пример запуска потока.

тебе нужно один раз объявить класс потока, и при каждом запросе создавать поток, соединять инди, качать нужное, завершать поток.
щас настряпаю простецкий пример...

вот. главное помните, что переменные основного и дополнительного потока одновременно доступны (правильно) только во время синхронизации. если попробуете, скажем, установить текст мемо прямо из второго потока, это может привести к запрету доступа (=ошибке)

[SHtirlic1]

При много благодарен так чуть понятней стало))