| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

IdHTTP

Страницы:   < 1 2 >

oracled ©   (2008-11-19 13:21:00) 

Хочу передать текст страницы в memo
Повесил на форму компонент IdHTTP
Далее кнопку, и обработчик написал такой:

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
IdHTTP1:=TIdHTTP.create(self);
s:=IdHTTP1.Get(' http://yandex.ru/');        (тут возникает ошибка)
Memo1.Text := s;
end;

Так выдаёт ошибку EIHTTPPROTOCOLEXCEPTION, не понимаю в чём может быть дело, может есть у кого мысли?

---

oracled   (2008-11-19 14:06:00) [21]

Спасибо!
Вроде бы действительно проблема у меня локально.
А для чего нужно писать www ,ведь сайт прекрасно открывается и без www ?

---

AIK   (2008-11-19 13:55:00) [22]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, IdHTTP;

type
 TForm1 = class(TForm)
   Button1: TButton;
   Memo1: TMemo;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 IdHTTP1:  TIdHTTP;
begin
 IdHTTP1:=TIdHTTP.create(self);
 Memo1.Text :=IdHTTP1.Get(' http://www.yandex.ru/');
end;

end.


У меня нормально заработала, проверь связь с интернетом

---

oracled   (2008-11-19 13:49:00) [23]

Нет, видимо в другом проблемка, ошибка такая же выходит.

---

AIK   (2008-11-19 13:45:00) [24]

Да вкурсе, надо так:

s:=IdHTTP1.Get(' http://www.yandex.ru/');

забыл   wwwнаписать

---

oracled   (2008-11-19 13:41:00) [25]

AIK
Понятно, спасибо!
А почему пример в теме не работает не в курсе?

---

AIK   (2008-11-19 13:36:00) [26]

Это тема тут когдата обсуждалась, и автор ответа предоставлял модуль GetUrl, теперь если надо поиши его в инете, я чужую работу выкладывать небуду

---

AIK   (2008-11-19 13:29:00) [27]

uses  GetUrl;

Memo1.Text:=GetPage(' http://www.delphimaster.ru/cgi-bin/forum.pl?id=1227090068&n=18');

---

Страницы:   < 1 2 >

Наверх