Парсинг с сайта

@INstantKiLLer · Регистрация: 11.10.2014

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

Пишу программу которая будет загружатьhtml код страницы 10-ти минутной почты, но на мой запрос он выдает ошибку.
Сам код:

Delphi

procedure TForm1.Button1Click(Sender: TObject); 
var 
a:string; 
Http : TidHttp; 
CM : TidCookieManager; 
Data : TStringList; 
StrPage, UserID, UserName : String; 
i : integer; 
begin 
 
try 
Http := TIdHTTP.Create(Self); 
Data := TStringList.Create; 
CM := TidCookieManager.Create(Http); 
Http.AllowCookies := true; 
Http.CookieManager := CM; 
Http.HandleRedirects := true; 
 
Http.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:40.0) Gecko/20100101 Firefox/40.1'; 
Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'; 
Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3'; 
Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7'; 
 
 
finally
a:='http://'+edit1.text; 
memo1.Lines.Text:= IdHttp1.Get(a); 
 
end; 
end; 
end.

Такой сайт как к примеру ya.ru или multigsore.ru он загружает, а 10minutemail.net нет.
Подскажите, что не так??

@maxuko · 30.11.2015, 12:54

https://10minutemail.net/

Кликните здесь для просмотра всего текста

HTML5

<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<meta http-equiv="X-Frame-Options" content="deny" />
<title>10 Minute Mail</title>
<meta name="keywords" content="10 Minute Mail: Temporary, disposable, free, and secure e-mail address for spam" />
<meta name="description" content="Temporary disposable email service to beat spam. Avoid spam with a free, secure 10-minute e-mail address. Use our service as often as you like." />
<meta name="verify-v1" content="eLkNWfxaPjUWixfxsVnojHWZTzzEpjOrwR0VgSd2Vtc=" />
<link rel="alternate" media="only screen and (max-device-width: 768px)" href="https://10minutemail.net/m/" />
<link rel="alternate" langhref="x-default" href="https://10minutemail.net/" />
<link rel="alternate" langhref="en" href="https://10minutemail.net/?lang=en" />
<link rel="alternate" langhref="af" href="https://10minutemail.net/?lang=af" />
<link rel="alternate" langhref="ar" href="https://10minutemail.net/?lang=ar" />
<link rel="alternate" langhref="be" href="https://10minutemail.net/?lang=be" />
<link rel="alternate" langhref="bg" href="https://10minutemail.net/?lang=bg" />
<link rel="alternate" langhref="zh" href="https://10minutemail.net/?lang=zh" />
<link rel="alternate" langhref="zh-tw" href="https://10minutemail.net/?lang=zh-tw" />
<link rel="alternate" langhref="zh-cn" href="https://10minutemail.net/?lang=zh-cn" />
 
----------
СЛИШКОМ МНОГО ТЕКТСА)) 
----------
  })();
</script>
<script>!function(d,s,id){var js,fjs=d.getElementsByTagName(s)[0],p=/^http:/.test(d.location)?'http':'https';if(!d.getElementById(id)){js=d.createElement(s);js.id=id;js.src=p+'://platform.twitter.com/widgets.js';fjs.parentNode.insertBefore(js,fjs);}}(document, 'script', 'twitter-wjs');</script>
<link rel="stylesheet" href="https://code.jquery.com/ui/1.11.4/themes/smoothness/jquery-ui.css">
<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.4.0/css/font-awesome.min.css">
<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/datatables/1.10.8/css/jquery.dataTables.min.css">
</body>
</html>

@INstantKiLLer · 30.11.2015, 19:10 **[ТС]**

Меня не интересует сам код сайта, я его и сам могу посмотреть, мне нужно что бы это сделала программа. Мне нужен программный код, 3 дня уже никак сделать не могу

@maxuko · 30.11.2015, 21:21

lib.zip

Delphi

uses lib;

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var response:string;
begin
 try
response:=send('GET', edit1.Text);
 finally
memo1.Text:= Utf8ToAnsi(response);
 
 end;
end;

или

Delphi

1	uses HTTPsend, ssl_openssl;

Delphi

 
var  HTTP : THTTPSend;
 begin
  HTTP:=THTTPSend.Create;
   if (HTTP.HTTPMethod('GET','https://10minutemail.net/') then begin
   // обрабатывай как хочешь
   end
  else begin 
   //мимо
  end;
 end;

Вариантов множество) в чем проблема не вижу)

@maxuko · 01.12.2015, 20:40

Кидай совой проект) посмотрим, какие в "4 строчках" могут быть ошибки.

@INstantKiLLer · 02.12.2015, 01:50 **[ТС]**

Вот сам проект, он работает к примеру на ya.ru , а вот уже yandex.ru или vk.com и тд не работают включая 10ти минутные почты

@maxuko · 02.12.2015, 09:04

я же писал уже)

https://10minutemail.net/

а у тебя:

Delphi

1	a:='http://'+edit1.text;

исправляй у себя.

finally
a:='https://'+edit1.text;
memo1.Lines.Text:= IdHttp1.Get(a);
end;

и все работает)

@INstantKiLLer · 02.12.2015, 16:26 **[ТС]**

Но не у меня((

@maxuko · 02.12.2015, 17:21

Кидаешь на форму компонент IdSSLIOHandlerSocketOpenSSL1 и связываешь HTTP с ним, и будет тебе счастье)

@INstantKiLLer · 02.12.2015, 21:17 **[ТС]**

Спасибо большое, все работает!!!

@INstantKiLLer 9 / 9 / 3 Регистрация: 11.10.2014 Сообщений: 363
	30.11.2015, 19:10 [ТС]	3
	Меня не интересует сам код сайта, я его и сам могу посмотреть, мне нужно что бы это сделала программа. Мне нужен программный код, 3 дня уже никак сделать не могу 0

@maxuko 27 / 27 / 18 Регистрация: 21.10.2014 Сообщений: 140
	01.12.2015, 20:40	5
	Кидай совой проект) посмотрим, какие в "4 строчках" могут быть ошибки. 0

@INstantKiLLer 9 / 9 / 3 Регистрация: 11.10.2014 Сообщений: 363
	02.12.2015, 16:26 [ТС]	8
	Но не у меня(( Миниатюры 0

@maxuko 27 / 27 / 18 Регистрация: 21.10.2014 Сообщений: 140
	02.12.2015, 17:21	9
	Сообщение было отмечено INstantKiLLer как решение Решение Кидаешь на форму компонент IdSSLIOHandlerSocketOpenSSL1 и связываешь HTTP с ним, и будет тебе счастье) 1

@INstantKiLLer 9 / 9 / 3 Регистрация: 11.10.2014 Сообщений: 363
	02.12.2015, 21:17 [ТС]	10
	Спасибо большое, все работает!!! 0

Парсинг с сайта

Решение