[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), и как это можно исправить? СПАСИБО.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

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.