Вывод HTML текста

← →
Ich Hasse © (2003-10-03 17:27) [0]

Ребята, не подскажете, как вывести HTML текст страницы (к примеру http://www.host.ru/page.html) в TMemo. Заранее благодарен.

← →
Reindeer Moss Eater © (2003-10-03 18:20) [1]

Memo1.Lines.Text:=idHTTP.Get(" http://www.host.ru/page.html");

← →
Ich Hasse © (2003-10-03 18:28) [2]

а где этот компонент достать/скачать?

← →
Ich Hasse © (2003-10-03 18:34) [3]

тогда другой вопрос, а как узнать HTML код страницы, если она создается на ходу? (т.е. выполняется сценарий, а потом высылается страница в мой браузер)

← →
Reindeer Moss Eater © (2003-10-03 18:43) [4]

а где этот компонент достать/скачать?
В палитре твоего D7

← →
Reindeer Moss Eater © (2003-10-03 18:46) [5]

тогда другой вопрос, а как узнать HTML код страницы, если она создается на ходу? (т.е. выполняется сценарий, а потом высылается страница в мой браузер)

А тебе не все равно как там сервер генерит "страницу"? На ходу, на лету или на плаву?

← →
Ich Hasse © (2003-10-03 20:45) [6]

http://demonscity.combats.ru/inf.pl?login=~DEADMOROZE~

вот код этой страницы так не получается получить... всего 3 символа выводится

← →
Palladin © (2003-10-03 21:39) [7]

ну значит это спесияльная страница, антихакерская...

← →
nikkie © (2003-10-03 21:40) [8]

интересно, что это 3 символа такие :)))

← →
Ich Hasse © (2003-10-03 22:05) [9]

ну попробуй сделай так и увидишь...

Ну ребята помогите, почему именно в таком виде эта страница не грузится?

← →
Ich Hasse © (2003-10-04 16:22) [10]

ап

← →
Ich Hasse © (2003-10-05 01:22) [11]

ап

← →
TButton © (2003-10-05 06:34) [12]

3 символа ето наверное про молоток :) клевец суксь.

← →
Ich Hasse © (2003-10-05 13:50) [13]

типа того, да неважно какие три символа, почему страница именно в таком виде не хочет выводиться HTML текст?

← →
Volcano © (2003-10-05 14:11) [14]

Пользуйся простыми сокетами.
Что-нибудь типа-того:
ClientSocket1.Socket.SendText("GET demonscity.combats.ru HTTP/1.1" + #13 + #10"); ClientSocket1.Socket.SendText("Host: demonscity.combats.ru" + #13 + #10"); ClientSocket1.Socket.SendText("Accept: image/gif, " + #13 + #10"); ClientSocket1.Socket.SendText("image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint, */*" + #13 + #10"); ClientSocket1.Socket.SendText("Accept-Encoding: gzip, deflate" + #13 + #10"); ClientSocket1.Socket.SendText("Accept-Language: en-us" + #13 + #10"); ClientSocket1.Socket.SendText("UserAgent: Mozilla/4.0 (compatible; MSIE 4.01; Windows 95)" + #13 + #10"); ClientSocket1.Socket.SendText("Connection: Keep-Alive" + #13 + #10");

Ну это в сыром виде...

Вот что мне удалось получить:

HTTP/1.1 400 Bad Request
Server: 0W/0.6d
Date: Sun, 05 Oct 2003 10:09:13 GMT
Content-Type: text/html
Content-Length: 157
Connection: Close

<html><head><title>[400] Bad Request</title></head>
<body><h3>Bad Request</h3>
Your request was not understood or not allowed by this server.
</body></html>

← →
Volcano © (2003-10-05 14:21) [15]

Надо было так:
ClientSocket1.Socket.SendText("GET /inf.pl?login=~DEADMOROZE~" + #13+#10);
Действительно 3 символа, что же это за символы такие?

HTTP/1.1" + #13 + #10");
HTTP/1.1 200 OK
Server: 0W/0.6d
Date: Sun, 05 Oct 2003 10:17:22 GMT
Content-Type: text/html; charset=windows-1251
Content-Length: 2265
content-encoding: gzip
pragma: no-cache
cache-control: no-cache

‹

← →
Ich Hasse © (2003-10-05 18:28) [16]

А можно полностью пример, а то с Socket никогда не работал

← →
Ich Hasse © (2003-10-07 22:46) [17]

ап

← →
Reindeer Moss Eater © (2003-10-08 13:30) [18]

Этот сервер отдает TidHTTP не три буквы, а гораздо больше.
Просто контент не plain-text

procedure TForm1.Button1Click(Sender: TObject);
var fStream : TFileStream;
begin
try
fStream:=TFileStream.Create("c:\Responce.txt",fmCreate);
IdHTTP1.Get(" http://demonscity.combats.ru/inf.pl?login=~DEADMOROZE~",fStream);
finally
fStream.Free;
end;
end;

← →
Ich Hasse © (2003-10-11 19:25) [19]

а как это все преобраховать в HTML?

← →
nikkie © (2003-10-11 21:14) [20]

content-encoding: gzip

← →
Ich Hasse © (2003-10-12 12:48) [21]

а получить то как?

← →
Ich Hasse © (2003-10-14 22:26) [22]

ап

← →
Ich Hasse © (2003-10-24 02:06) [23]

ап

← →
Reindeer Moss Eater © (2003-10-24 11:01) [24]

а как это все преобраховать в HTML?

Не надо преобразовывать.
Надо прикинуться браузером, не понимающим gzip.
Тогда сервер отдаст плайн текст, а не сжатый.
Как сделать? Попробуй указать HTTP/1.0 в котором нет поддержки gzip

← →
Ich Hasse © (2003-10-24 11:19) [25]

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

Заголовок HTTP надо формировать такой (TidTCPClient)

Или TidHTTP.ProtocolVersion

HTTP/1.0 302 Moved Temporarity

Ну это еда уже из совсем другой сказки.
К теме как бы не относится

А что делать то с этим?

Как то же надо получить текст, только как?

302 - там редирект.

В OnRedirect видно куда тебя посылают.

Предположение о версии протокола оказалось неверным. Все дело в UserAgent"е

Idhttp1.Request.UserAgent:="Mozilla/4.0 (compatible; MSIE 5.0; Windows 98)";
ShowMessage(IdHTTP1.Get(" http://devilscity.combats.ru/inf.pl?login=~DEADMOROZE~"));

Ура!!!! Спасибо огромное!!!!

← →
demongr (2003-11-08 14:47) [33]

Удалено модератором

← →
demongr (2003-11-08 16:40) [35]

Удалено модератором

← →
demongr (2003-11-09 18:21) [36]

Удалено модератором
Примечание: Offtopic

Вывод HTML текста Найти похожие ветки