Ситуация такая. Есть программа, которая пингует некоторое количество хостов, а потом сортирует их по нужным параметрам. При запуске пинга в несколько потоков(через TThread) программа "подвисает", т.е. она не висит, она производит свои действия. Чтобы программа так себя не вела, я чуть ли не через каждую строку вставляю Application.ProcessMessages, но это не устраняет данной проблемы.

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

Подскажите в чем проблема в этих сутуациях.

Application.ProcessMessages не поможет, дело в потоках. Дай кусок исходника. Если подвисает прога, то что-то неверное в синхронизации, покажи моменты общения потоков с программой хотя бы (а лучше ещё и момент создания потока с кодом самого потока).

Вот держи кусок кода

Код

unit Unit1; type  TForm1 = class(TForm)    Button1: TButton;    Memo1: TMemo;    StringGrid1: TStringGrid;    XMLDocument1: TXMLDocument;    Label1: TLabel;    SpinEdit1: TSpinEdit; ..................................................... type  THTTPThread = class(TThread)  private    HostID:Integer;    IP:String;    Port:Integer;  protected    procedure Execute; override;    procedure DoWork;  public    constructor Create(State:Boolean; GridRow:Integer);  end; var  Form1: TForm1;  HTTPThread: THTTPThread; procedure TForm1.Button1Click(Sender: TObject); var  i, Rnd:Integer; begin  Memo1.Clear;  for i:=1 to SpinEdit1.Value do  begin    Application.ProcessMessages;    with THTTPThread.Create(True, i) do    begin      Priority:=tpLowest;      Form1.Label3.Caption:=IntToStr(i);      Application.ProcessMessages;      Memo1.Lines.Add('Threader #'+ IntToStr(i) +' running');      Sleep(3);      Application.ProcessMessages;      Resume;    end;  end; end; constructor THTTPThread.Create(State:Boolean; GridRow:Integer); begin  IP:='';  HostID:=GridRow;  FreeOnTerminate := True;  IP:=Form1.StringGrid1.Cells[0, HostID];  Port:=StrToInt(Form1.StringGrid1.Cells[1, HostID]);  inherited Create(State); end; procedure THTTPThread.Execute; begin  Synchronize(DoWork);  Application.ProcessMessages; end; procedure THTTPThread.DoWork; var  Str:String; begin  Application.ProcessMessages;  Form1.StringGrid1.Cells[3,HostID]:=PingHost(PChar(IP));  Application.ProcessMessages;  Form1.StringGrid1.Cells[4,HostID]:=IPAddrToName(PChar(IP));  Application.ProcessMessages; ...............................................................  HostID:=0;  IP:='';  Application.ProcessMessages; end; ............................. //Рeализация пинга через WinAPI function PingHost(IPAddr:PChar):String; ...................................... //Имя хоста тоже через WinAPI function IPAddrToName(IPAddr : string): string; ......................................

Дело все в Synchronize - от него по возможности надо избавлятся
Для этого... заполнение данных на форме выдели в отдельную процедуру, которая будет обрабатывать сообщения от потоков(используй для этого PostMessage).

Это сообщение отредактировал(а) Girder - 20.10.2004, 09:21

Я давно не писала потоки, но насколько я помню надо пользоваться семафорами, чтобы не происходило одновременного доступа к данным разных запущенных потоков. А у тебя явное обращение к форме в потоке...

Цитата

у тебя явное обращение к форме в потоке...

Посмотри внимательно: у него с этим всё нормально... Он всё делает в методе Synchronize...
Я бы сделал где-то так:

Код

type THTTPThread = class(TThread) private HostID:Integer; IP:String; Port:Integer; a : string; b : integer; protected procedure Execute; override; procedure DoWork; procedure send; public constructor Create(State:Boolean; GridRow:Integer); end; procedure THTTPThread.Execute; begin DoWork; end; procedure THTTPThread.send; begin Form1.StringGrid1.Cells[b,HostID]:=a; end; procedure THTTPThread.DoWork; var Str:String; begin a:=PingHost(PChar(IP)); b:=3; Synchronize(send); a:=IPAddrToName(PChar(IP)); b:=4; Synchronize(send); ............................................................... HostID:=0; IP:=''; end;

И никаких Application.ProcessMessages не нужно, в нитях они вообще левые.

Это сообщение отредактировал(а) Illusion Dolphin - 20.10.2004, 16:10

Действительно все дело было Synchronize(DoWork), убрал нити пошли нормально, пингует без искажений, вообщем все рульно спасибо добрые люди

Только еще один маленький вопросик: Сколько максимум можно нитей запустить в одном приложении, и как это можно узнать программно для различных операционок?

исходя из размера стека и ограничения в 4 гига ( NT (и 2 9х) )
програмно ( если не предыдущим способом ) -- запускать потоки, пока запускаются

Огромное всем спасибо, я думаю, что тему уже можно, закрыть. Но если у кого-то есть желание, то я думаю, что ее можно развить, для всеобщего обозрения