[paguo]

Вопрос такой. Имеется код (работающий) для получения заголовка сайта по его адресу, сейчас я хочу сделать, массовую обработку веб-адресов, допустим на входе будет текстовый файл с 1000 адресов сайтов, а на выходе должен получиться текстовый файл с 1000 их заголовков. Но вот столкнулся с одной проблемой, дело в том, что среди адресов, имеются поисковые запросы (например http://www.nigma.ru/index.php?t=web&...D0% BA%D0%B5), в которых длинна адреса больше чем 255 символов, вот тут то и влазит ошибка при компиляции! Да и если будет массовая обработка, то придётся использовать переменную string, в которой помещается 255 символов, попробовал я туда впихнуть переменную WideString - компиляция прошла успешно, но программа потом всё равно вызвала ошибку.
Второй вопрос, почему программа вызывает ошибку, когда попадается либо не работающий сайт, либо сайт где требуется авторизация (напр. http://vk.com/im), либо сайт, где стоит протокол не http, а https (напр. https://play.google.com/store/apps/d...%252520screen), и как это можно исправить? СПАСИБО.

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
t: string;
f: textfile;
begin
assignfile(f, 'c:\titles.txt');
rewrite(f);
//s:=IdHTTP1.Get('http://ru.savefrom.net/');
s:=IdHTTP1.Get('http://www.nigma.ru/index.php?t=web&ng=1&startpos=0&s=%D1%81%D0%BA%D0%B0%D1%87%D0%B0%D1%82%D1%8C+Delphi+7+%D1%82%D0%BE%D1%80%D1%80%D0%B5%D0%BD%D1%82&k=KDMj&rg=t%3D%D0%9C%D0%B8%D0%BD%D1%83%D1%81%D0%B8%D0%BD%D1%81%D0%BA_c%3D%D0%A0%D0%BE%D1%81%D1%81%D0%B8%D1%8F_&rg_view=%D0%9C%D0%B8%D0%BD%D1%83%D1%81%D0%B8%D0%BD%D1%81%D0%BA%D0%B5');
t:=Copy(s, pos('<title>', s) + 7, pos('</title>', s) - pos('<title>', s) -7);
Label1.Caption:=t;
write(f, t);
closefile(f);
end;

end.