Quantcast
Channel: Сообщество PHP DevelStudio - среда разработки программ
Viewing all articles
Browse latest Browse all 6336
↧

получить содержимое страницы

November 27, 2013, 9:01 am
$
0
0
Пытаюсь получить html код с сайта rghost.ru
Скрытый текст:

Код:
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;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TMyThread = class(TThread)
    private
    { Private declarations }
  protected
    procedure Sync;
    procedure Execute; override;
  end;

var
  Form1: TForm1;
  MyThread: TMyThread;
  get: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  MyThread:=TMyThread.Create(False);

  MyThread.Priority:=tpNormal;
end;

{ TMyThread }

procedure TMyThread.Execute;
begin
form1.idHTTP1.HandleRedirects:=true;
get:= form1.IdHTTP1.Get('http://rghost.ru');
Synchronize(Sync);
end;

procedure TMyThread.Sync;
begin
form1.memo1.Lines.Add(get);
end;

end.

но при нажатии на кнопку ничего не происходит..
Вот при получении с сайта http://ya.ru или http://yandex.ru все нормально.
Мб у ргхост "защита" ?
↧
Search
Viewing all articles
Browse latest Browse all 6336

Trending Articles

Книга: руководство / инструкция по ремонту и эксплуатации CHERY QQ (ЧЕРИ...

August 20, 2012, 8:47 pm

Профессиональная астрология. Астрологическое консультирование и сопровождение...

November 12, 2019, 5:13 am

Контакты представительств зарубежных авиакомпаний в Казахстане

December 30, 2021, 11:12 pm

GFI KerioControl 9.x (Часть 7) (5410) / Программный межсетевой экран NG...

July 16, 2024, 11:49 am

Книга: руководство / инструкция по ремонту и эксплуатации OPEL VECTRA A...

August 30, 2012, 11:44 am

1С 8.3 hasp emulator linux (46) / Решения по взлому лицензий на линуксе 8.3

October 2, 2017, 4:49 pm

The Pepper Porter Band - Invasion 1980

November 12, 2024, 8:02 am

Посещаемость - Python для начинающих

November 12, 2019, 8:22 am

0on3 Clean Tele

September 21, 2015, 12:10 am

Департамент внутренних дел Павлодарской области

December 12, 2017, 9:02 pm

ДЕПАРТАМЕНТ АГЕНТСТВА ПО ПРОТИВОДЕЙСТВИЮ КОРРУПЦИИ (АНТИКОРРУПЦИОННОЙ СЛУЖБЫ)...

July 23, 2019, 8:45 pm

І. Пташнікаў. “Арчыбал”. Кароткі змест

November 6, 2016, 1:06 pm

ОЛИМПИАДАНЫ ТҮП-ТАМЫРЫНАН ӨЗГӨРТҮҮ КЕРЕК

April 1, 2016, 2:52 am

Книга: руководство / инструкция по ремонту и эксплуатации HONDA CIVIC 5D...

August 26, 2012, 6:26 am

HP Smart Array Advanced Pack (51) / license key wanted

June 20, 2018, 5:32 am

MSO 2013 и "конфигурация операционной системы не рассчитана на запуск этого...

August 10, 2013, 10:34 am

Помогите найти Geomprops for AutoCAD 2020 [3]

October 7, 2019, 11:31 pm

Готовая выкройка платья в пол

May 11, 2017, 2:26 am

Autodesk FeatureCAM Ultimate 2019.0.0.359x64 [MULTILANG+RUS] #софт #software...

May 8, 2018, 12:07 am

Ошибка удалённого приложения RemoteApp

August 14, 2008, 6:32 am
Search
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>