Получение заголовка сайта

@smirnov887 · Регистрация: 15.02.2013

Author24 — интернет-сервис помощи студентам

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

Delphi

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.

@саша40 · 05.08.2014, 20:17

Использовать IdHTTPS и Synapce. По идеи idHTTPS должен поддерживать и HTTP-протокол.

@northener · 05.08.2014, 20:50

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

в которых длинна адреса больше чем 255 символов, вот тут то и влазит ошибка при компиляции!

Delphi

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');

И никаких ошибок при компиляции.

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	05.08.2014, 20:17	2
	Использовать IdHTTPS и Synapce. По идеи idHTTPS должен поддерживать и HTTP-протокол. 0

	05.08.2014, 20:50