Поиск ошибки

[UKRtortik]

Хочу добавить многопоточности, но что-то не получается...

type TPotok=class(TThread)
  private
  html:WideString;
  procedure reg;
  protected
   procedure Execute;override;
end;

procedure TPotok.reg;
begin
Form1.sMemo2.Lines.Add(rege.Match[0]);
end;

procedure TPotok.Execute;
begin
for i:=0 to Form1.sMemo1.Lines.Count-1 do
begin
try
site:=Form1.sMemo1.Lines.Strings[i];
html:=HTTP.Get(site);
except
end;
if rege.Exec(html) then
repeat Synchronize(reg);
until (not rege.ExecNext) or Potok.Terminated;
if Potok.Terminated then break;
end;
HTTP.Free;
Rege.Free;
end;

procedure TForm1.sButton3Click(Sender: TObject);
begin
FProgramTimeStart := Now;
HTTP:=TIdHTTP.Create(nil);
rege:=TRegExpr.Create;
rege.Expression:='\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5}';
TPotok.Create(false);
for thread:=0 to sSpinEdit1.Value do begin
end;
end;

[evg_m]

	
	
for i:=0 to Form1.sMemo1.Lines.Count-1 do
..
site:=Form1.sMemo1.Lines.Strings[i];

Все потоки будут делать одно и то же?
работа с VCL (визуальные компоненты form1, memo1) без синхронизации(syncronize)

html:=HTTP.Get(site);
...
if rege.Exec(html) then

Использование глобального объекта (HTTP, rege) без синхронизации.

поток ничего не должен знать о внешнем для него мире (form1, http, rege)
все что ему понадобится должен рассказать (задать в параметрах!) его создатель (в твоем случае form1)

	
	
for j:=0 to spinn.value do begin
  r:=Tpotok.create(true); //создали остановленный
  r.site:=form1.memo1.lines[j];//указали с чем о будет работать
  r.regex:='\d....';
  r.Start;//запустили
end;

[Stilet]

HTTP:=TIdHTTP.Create(nil);
rege:=TRegExpr.Create;
rege.Expression:='\d{1,3}\.\d{1,3}\ .\d{1,3}\.\d{1,3}:\d{1,5}';

Внутрь потока вноси это. И создания и удаления этих переменных - все туда.
И кстати стоит писать так:

p:=TPotok.Create(true);
with p do begin
 FreeOnTerminate:=true;
 Start;
end;

Где р - глобальная переменная.

[UKRtortik]

warning W1019: W1019 For loop control variable must be simple local variable
warning W1019: W1019 For loop control variable must be simple local variable
warning W1000: W1000 Symbol 'Suspend' is deprecated
error E2010: E2010 Incompatible types: 'string' and 'TPotok'
error E2018: E2018 Record, object or class type required
error E2003: E2003 Undeclared identifier: 'FreeOnTerminate'
error E2003: E2003 Undeclared identifier: 'Start'
error F2063: F2063 Could not compile used unit 'Unit1.pas'

procedure TPotok.reg;
begin
Form1.sMemo2.Lines.Add(rege.Match[0]);
end;

procedure TPotok.Execute;
begin
for i:=0 to Form1.sMemo1.Lines.Count-1 do
begin
HTTP:=TIdHTTP.Create(nil);
rege:=TRegExpr.Create;
rege.Expression:='\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5}';
try
site:=Form1.sMemo1.Lines.Strings[i];
html:=HTTP.Get(site);
except
end;
if rege.Exec(html) then
repeat Synchronize(reg);
until (not rege.ExecNext) or Potok.Terminated;
if Potok.Terminated then break;
end;
HTTP.Free;
Rege.Free;
end;

procedure TForm1.sButton3Click(Sender: TObject);
begin
for thread:=0 to sSpinEdit1.Value do begin
p:=TPotok.Create(true);
with p do begin
FreeOnTerminate:=true;
Start;
end;
end;
end;

можно подробней обьяснить что не так? А то я не чего не понял из выше сказанного...

[Stilet]

Incompatible types: 'string' and 'TPotok'

Дай угадаю: Переменная "p" у тебя описана как string?

[UKRtortik]

Нет

p,thread:integer;

[Streletz]

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

Нет

p,thread:integer;

Прочитайте сперва, хотя бы про азы работы с потоками в Delphi. А, уже потом пробуйте что-то писать.

[UKRtortik]

Что я не так делаю?

  type
 TPotok=class(TThread)
  private
   html:WideString;
      procedure reg;
  protected
   procedure Execute;override;
end;

var
  Form1: TForm1;
  Potok:TPotok;
  HTTP:TIdHTTP;
  site, html, s:string;
  rege:tregexpr;
  i:integer;

procedure TPotok.Execute;
begin
 HTTP:=TIdHTTP.Create(nil);
 rege:=TRegExpr.Create;
 rege.Expression:='\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5}';
  for i:=0 to Form1.sMemo1.Lines.Count-1 do
  begin
    try
      site:=Form1.sMemo1.Lines.Strings[i];
      html:=HTTP.Get(site);
    except
    end;
    if rege.Exec(html) then
     repeat Synchronize(reg);
     until (not rege.ExecNext) or Potok.Terminated;
    if Potok.Terminated then break;
  end;
  HTTP.Free;
  Rege.Free;
end;

procedure TForm1.sButton3Click(Sender: TObject);
var
z,p:integer;
begin
for z := 0 to StrToInt(sSpinEdit1.Text) - 1 do
begin
p:=TPotok.Create(true);
with p do begin
 Potok.FreeOnTerminate:=True;
 Potok.Start;
end;
end;
end;

[northener]

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

Что я не так делаю?

Во-первых используешь глобальную переменную HTTP:TIdHTTP;
Дальше не смотрел.

[UKRtortik]

ну что не кто не знает?