Delphi7 помогите плиз...

Всем доброго времени суток! пишу парсер внеш.урлов из заданных сайтов так вот суть проблемы : как реализовать одновременный переход по сайтам, список которых в мемо1 . Для одного сайта получается, а для нескольких ни..ера((. Новичок в этом деле. Сильно не пинайте.
p.s.: писал в нужную тему для начинающих, молчок. поэтому решил здесь, т.к. помощь очень сильно нужна

 

var
i:integer;
begin
for i:=0 to memo1.lines.count-1 do
http.get(memo1.lines);

 

Так делал, в итоге ошибки не выдает, но и считывает только первый url (( . может что-нить зациклить еще надо?.... Вообщем вот часть кода:

 

>>одновременный переход по сайтам

Читай в инете про потоки(TThread) и критические секции.

 

Читал, экспериментировал, но без толку(. а по конкретной ситуации может подскажите выход..?

 

неужели никто подобного не делал?)

 

ошибка банальна:

 

begin не катит(, дальше возникают ошибки:

 

дай весь код. я нехера не понимаю так.

 

вот весь код:

 

Тут опечатался) в одном моменте, правильно будет:

 

сломал себе весь мозг, пока приводил код в читаемый вид.

вобщем, если ошибка тут:

то ты забыл пару end; перед ексэптом. что пишет компилятор? какая ошибка?

 

[Ошибка] Unit1.pas(90): 'END' expected but 'EXCEPT' found

[Ошибка] Unit1.pas(94): '.' expected but ';' found

[Фатальная Ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

 

[Ошибка] Unit1.pas(90): 'END' expected but 'EXCEPT' found

НУЖЕН END а у тебя там EXCEPT. добавляй энде перед эксептом пока ошибка не пропадёт.

 

пробовал. безрезультатно(

 

значит еще энды добавляй. там их как минимум 2 штуки нужно, если я не ошибаюсь.

 

это тоже пробовал, нуль эффекта....
Ладн, обойдусь одним потоком.... Спасибо за помощь.

 

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,IdHTTP, StdCtrls;

type
  TForm1 = class(TForm)
    mmo1: TMemo;
    mmo2: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  type
  TTest = class(TThread)
  private

  protected
    procedure Execute; override;
  public
      url:string;
  end;

var
  Form1: TForm1;
  threadcount:Integer;

implementation

{$R *.dfm}

procedure TTest.Execute;
var i:integer;s:string;http:TIdHTTP;
begin
  http:=TIDHTTP.Create(nil);
  http.HandleRedirects:=true;
  http.Get(url);
  form1.mmo2.Lines.Add('Ok - '+url);
  http.Free;
  Dec(threadcount);
end;

procedure TForm1.Button1Click(Sender: TObject);
var t:TTest;
begin
while mmo1.Lines.Count > 0 do
  begin
    Application.ProcessMessages;
    while threadcount < 5 do
    begin
      Application.ProcessMessages;
      t := TTest.Create(true);
      t.FreeOnTerminate := true;
      t.url := mmo1.Lines.Strings[0];
      t.Resume;
      mmo1.Lines.Delete(0);
      Inc(threadcount);
    end;
  end;
end;

end.