[ПОТОКИ] Сыпется софт

[Stilet]

скажите прямо в чем проблема

Проблема в стратегии.
Задача как звучит?

[bakanaev]

Сообщение от Stilet

Проблема в стратегии.
Задача как звучит?

Дается список доменов, заходим на каждый и ищем текст заданный в Edit1, если нашли то сохраняем домен в txt. Многопоток.
Собственно все

[Stilet]

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

   for j := 0 to links.Count-1 do
   begin
     with TNewThread.Create(false) do begin
      domain:=links[i];
      fnd_text:=Edit1.Text;
     end;
   end;

И сам класс:

procedure TNewThread.Execute;
var  IdHTTP1:TIdHTTP;

     html:string;
begin
    IdHTTP1:=TIdHTTP.Create;
      try
       html:=IdHTTP1.Get(trim(domen));
      except  end;
      if pos (fnd_text,html) <> 0 then Rez:='GOOD|'+domen
     else Rez:='NOT';
     Synchronize(Sync);
     IdHTTP1.Free;
end;

Ессно fnd_text сделай public свойством треады. Не надо в самом потоке делать выборку следующего анализируемого домена. Для этого нужно конструировать пул потоков, чего у тебя нет, так что не вешай себе геморрой на точку сидения.

[bakanaev]

   for j := 0 to links.Count-1 do
   begin
     with TNewThread.Create(false) do begin
      domain:=links[i];
      fnd_text:=Edit1.Text;
     end;
   end;

ссылок пару миллионов)

[Stilet]

Значит делай пулл потоков на скажем 100 потоков. Пусть пулл следит, если какой либо поток закончил работу - создавать новый, передавая ему новый линк.
Далее: А зачем собственно нужно много потоков? Пусть будет один, но идет по списку последовательно. Все равно особого выигрыша в скорости не получишь.

[bakanaev]

Сообщение от Stilet

Далее: А зачем собственно нужно много потоков? Пусть будет один, но идет по списку последовательно. Все равно особого выигрыша в скорости не получишь.

Это почему? скорость значительно увеличивается)))

[Stilet]

До поры до времени. Пока ты в рамках 10-100 потоков да, потом будет хуже.

[3D Hunter]

никто не ответил на главой вопрос темы.у вашего друга вылетает возможно потому,что в процедуре savetofile() возникает av в случае,если файл не создан.вы перезаписываете его и закрываете.а вот снова вызвать assignfile забываете.возможно поэтому каждый поток при попытке записи в неоткрытый файл выдает ошибку.

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

[bakanaev]

вы перезаписываете его и закрываете.а вот снова вызвать assignfile забываете.

Функция не моя. Спасибо за совет.
Так будет правельно?

function    TNewThread.SaveToFile(str:string; FileDir:String): string;
var f:TextFile;

begin
if not FileExists(FileDir) then
 begin
  AssignFile(f,FileDir);
  Rewrite(f);
  CloseFile(f);
 end;

AssignFile(f,FileDir);
Append(f);
Writeln(f,str);
Flush(f);
CloseFile(f);
end;

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

Т.е если я увеличиваю скажем i (ее используют все потоки). То нужно использовать критическую секцию?
Что на счет функции SaveToFlie ? Ее через что вызывать?

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

Т.е если я увеличиваю скажем i (ее используют все потоки). То нужно использовать критическую секцию?
Что на счет функции SaveToFlie ? Ее через что вызывать?

[Stilet]

Так будет правельно?

Так будет бессмысленно. Используй TStringList. Если файл один для всех потоков пиши в него из синхронизированной процедуры. А потом по окончанию программы сливай все в файл.

Или уж так:

function    TNewThread.SaveToFile(str:string; FileDir:String): string;

begin
 with  TFileStream.Create(FileDir,fmCreate) do begin
  write(str[1],Length(str));
  Free;
 end;
end;