Проблема синхронизации потоков

[evg_m]

Я так понял переменная text в данном случае будет глобальной?

text = s ? в которой "передается" информация?
Да использование глобальной не желательно.
Используйте в таких случаях поле класса

TThtpThread =class
  private 
    S: string;

Или же можно сделать ДВЕ и более "синхропроцедуры"

Synchronize(startfunc);
...
Synchonize(finishproc);

procedure Tthrad.startfunc;
begin
   memo1.Add('start url='+url);
end;
procedure Tthrad.finishfunc;
begin
   memo1.Add('finish url='+url);
end;
procedure Tthrad.errorfunc;
begin
   memo1.Add('Error url='+url);
end;

[vahdorf]

...
var s:string;
...
procedure Tthread.startfunc;
begin
   memo1.Add(s);
end;
...
s:=inttostr(random(999));
Synchronize(startfunc);
...

Проверил сам - вариант с глобальной переменной дает ерунду. Например, при запуске сотни потоков с милисекундной разницей у меня в memo1 дал одну и ту же строку сто раз.

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

Используйте в таких случаях поле класса

TThtpThread =class
  private 
    S: string;

Такой вариант дает разные сообщения в memo1, что и требуется.

[Stilet]

Я так понял переменная text в данном случае будет глобальной?

Ни разу не глобальной. Ты не внимательно прочитал мой пример )
Переменные которые будут работать с потоком должны быть полями класса потока.

[vahdorf]

Подниму тему, так как основной вопрос остался открытым. Можно ли сделать универсальную функцию получения информации из интернета, реализованную через потоки, вида
function GetData(url:string):string;
с вызовом из разных частей основной программы, чтобы при выполнении кода внутри GetData программа не "подвисала" на неопределенное время?

В основной части программы нужен следующий алгоритм:

function getmode1(request:string):string;
...
обработка переменной request и формирование переменной url и другая предварительная подготовка данных
text:=GetData(url);
здесь следует обработка полученной переменной text и формирование результата функции getmode1
...

function getmode2(request1,request2:integer) :string;
...
обработка переменных request1, request2 и формирование переменной url и другая предварительная подготовка данных
text:=GetData(url);
здесь следует обработка полученной переменной text и формирование результата функции getmode2
...
... и еще много таких getmode с разными по набору параметров ...

То есть до переходов к обработке text нужно "дождаться" результата от GetData(url). Как это сделать, чтобы программа не "подвисала"?

[evg_m]

Можно ли сделать универсальную функцию получения информации из интернета, реализованную через потоки, вида
function GetData(url:string):string;

И да, и нет.
Да -получение информации без остановки основной в принципе возможно.
Нет - функция по своему определению должна дождаться получения результата. (т.е. зависание)

НО! возможно написание процедуры в которой мы можем запустить поток и выйти не дожидаясь его завершения.
И можем при этом попросить поток "проинфомировать" нас о завершении получения данных.
для этого использовать процедурный тип.

TProcAfterGet =procedure(t: TThtread) of object;

procedure StartGetData(url: string; doAfterGet: TProcAfterGet);
begin
  T:=TMyThread.Create(false);
  t.url:=url;
  t.OnAfterGet:=doAfterCet; //настроили работу
  t.resume; // запустили и "забыли"
end;

TMyThread =class(TThread)
protected
  procedure RunAfter;
public
  property OnAfterGet: TProcAfterGet;
  property url: string;
  property webtext: string;
end;

procedure TMyTread.Execute;
var
   http: THTTP; //для каждого потока должен быть СВОЙ объект, так что используем локальный (можно поле класса)
begin
   http:=THTTP.Create;
   webtext:=http.Get(self.url);// дождались получения 
   synchonize(runAfter); //и синхронизированно запустили процедуру информирования  о результатах
end;

procedure TMyThread.runAfter
begin
  self.onAfterGet(self);//запуск процедуры извещения результатов с указанием чьи они (какого именно потока)
end;

Tform1 =class
protected
   procedure DoAfterLoad(t: TMyThread); //Процедура приема данных от потоков.
end;

procedure  Tform1.ButtonClick(sender: TObject);
begin // запуск произвольного числа чтений
  StartData('hhtp://w1', self.DoAfterLoad);
  StartData('hhtp://w2', self.DoAfterLoad);
  StartData4('hhtp://w4', self.DoAfterLoad4);
// в режиме "запустили и забыли"
end;

procedure TFrom1.doAfterLoad(t: TMyThread);
begin // принимаем данные от потока 
  showmessage(t.url, t.webText);
end;

[vahdorf]

Спасибо. Сейчас пробую запустить тест с предложенным вами кодом.
Поместил "TProcAfterGet =procedure(t: TThread) of object;" в раздел type модуля потока (может не туда нужно???), ошибка компиляции на строчке "property OnAfterGet: TProcAfterGet;" -> "[dcc32 Error] threads.pas(55): E2128 INDEX, READ or WRITE clause expected, but ';' found"

[evg_m]

Поместил "TProcAfterGet =procedure(t: TThread) of object;" в раздел type модуля потока (может не туда нужно???)

Да так.

ошибка компиляции на строчке "property OnAfterGet: TProcAfterGet;" -> "[dcc32 Error] threads.pas(55): E2128 INDEX, READ or WRITE clause expected, but ';' found"

теперь встаем на строчку с этим property и нажимаем Shift + Ctrl +C. Смотрим на "исправленный код"

[vahdorf]

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

теперь встаем на строчку с этим property и нажимаем Shift + Ctrl +C. Смотрим на "исправленный код"

Не понял. По нажатию комбинации клавиш перебрасывает на строку "procedure TMyTread.Execute;" с выводом сообщения "Expected ';' but '.' found."

[evg_m]

"раcшифровка" property OnAfterGet
(то что должно было получиться по Shift Ctrl C)

private
  FprocAterGet: TProcAfterGet;
public
property onAfterGet: TProcAfterGet read FProcAfterGet wrtite FprocAfterGet;