Программа для выдёргивания ссылок с сайтов

[sedoq]

Программа для выдёргивания ссылок с сайтов
но у меня получилось что выдернуть ссылки могу только с одного сайта который пропишу в коде, но у меня не получается сделать ввод сайта в запущенной программе, возможно ли сделать ввод в TEdit?

Вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    IdAntiFreeze1: TIdAntiFreeze;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  count:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
label met;
var
 html,output:WideString;
 i:integer;
 tagHtml:TStringList;
begin
   try
    output:='';
    tagHtml:=TStringList.Create;
    tagHtml.Clear;
    tagHtml.Add('class');
    tagHtml.Add('id="');
    tagHtml.Add('target');
    tagHtml.Add('title');
    IdHTTP1.Request.AcceptCharSet:='utf-8';
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>    html:=IdHTTP1.Get('http://devdelphi.ru/');    <<<<<<<<<<<<<<<<<<<<<<<<<<<
    met:
     begin
      if pos('<a href=',html)<>0 then
       begin
        inc(count);
        ProgressBar1.Max:=count;
        output:='';
        Delete(html,1,pos('<a href=',html)+length('<a href=')-1);
        output:=copy(html,1,pos('>',html)-1);
        if pos('http',output)<>0 then
         begin
          for i:=0 to tagHtml.Count-1 do
           begin
            if pos(tagHtml.Strings[i],output)<>0 then
             Delete(output,pos(tagHtml.Strings[i],output),length(output));
           end;
          ListBox1.Items.Add(output);
          ProgressBar1.Position:=ProgressBar1.Position+1;
         end;
        goto met
       end
      else
       exit;
      end;
     tagHtml.Free;
   except
    on e:Exception do
     tagHtml.Free;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   count:=0;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
   ProgressBar1.Position:=ProgressBar1.Position+AWorkCount;
end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
   ProgressBar1.Max:=AWorkCountMax;
end;

procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
   ProgressBar1.Position:=0;
end;

end.

[Valio]

Можно, просто пиши вместо названия сайта Edit1.Text.

[sedoq]

Не получается пишет ошибку [Pascal Error] Unit1.pas(1): Unable to invoke Code Completion due to errors in source code

[Valio]

Form1.Edit1.Text.

Код приводи своих изменений. Телепатов тут нет.

[Serge_Bliznykov]

ну так надо сначала на форму кинуть TEdit,
дать ему имя (например, edit1)

потом можно в коде написать так, например:

  html:=IdHTTP1.Get(Edit1.Text);

[sedoq]

Спасибо большое всё получилось