http.Get закачка wordpress

[Alar]

Не смог закачать страницу с блога pblog.ru


Использую код:

RichEdit1.Lines.Text := http.Get(ComboBox1.text);

[Квэнди]

а адрес в get полный дай.
И еще, в адресе обязательно должно быть http://www.....

[Alar]

http://www.pblog.ru - вот адресс в get.

Дело в том, что с других сайтов клуба нормально качает. подумал на вордпресс, но blog.uhhh.ru - тоже качает.

вордпресс - это название движка.

procedure TForm1.Button2Click(Sender: TObject);

var
  s:string;
begin

  Screen.Cursor:=crHourGlass;
  RichEdit1.Clear;
  RichEdit1.Lines.Text := http.Get(ComboBox1.text);
  Screen.Cursor:=crDefault;

end;

[Квэнди]

Попробовал

unit Unit19;

interface

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

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

var
  Form19: TForm19;

implementation

{$R *.dfm}

procedure TForm19.Button1Click(Sender: TObject);
begin
RichEdit1.Text:=idhttp1.Get('http://www.pblog.ru/');
end;

end.

в Richedit отобразился исходный код страницы, все впорядке, без ошибок вроде

[Квэнди]

аа, так у тебя собственно ошибка в richedit
lines.text Приведете к ошибке вставки в несуществующую строку
используй просто text

[Alar]

RichEdit1.Lines.Text := http.Get(ComboBox1.text);

заменил на

RichEdit1.Text:=http.Get(ComboBox1. text);

Заработало, хотя RichEdit1.Lines.Text - эта конструкция не работала только с блогом.

[Квэнди]

скорей всего присутствовал символ перевода строки, и richedit пытался вставить текст, следующий после этого символа в новую строку, которой нет

[Alar]

Квэнди, вот сейчас тестю. всё равно иногда вылетает, сейчас разберусь почему.

[Квэнди]

можно попробовать поубирать лишние символы
RichEdit1.Text:=stringreplace(....

[Alar]

Квэнди, спасибо всё в работает.