Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];

Вниз

Вывод 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]

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


 
Reindeer Moss Eater   (2003-10-24 11:49) [26]

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

Или TidHTTP.ProtocolVersion


 
Ich Hasse   (2003-10-24 12:58) [27]

HTTP/1.0 302 Moved Temporarity


 
Reindeer Moss Eater   (2003-10-24 13:02) [28]

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


 
Ich Hasse   (2003-10-24 13:03) [29]

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


 
Ich Hasse   (2003-10-24 13:03) [30]

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


 
Reindeer Moss Eater   (2003-10-24 13:22) [31]

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~"));


 
Ich Hasse   (2003-10-24 13:31) [32]

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


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

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


 
Palladin   (2003-11-08 15:33) [34]

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


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

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


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

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



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.51 MB
Время: 0.013 c
1-25443
JB
2003-12-23 12:58
2004.01.09
Процедура с неизвестным количеством параметров


1-25339
Mip
2003-12-22 10:02
2004.01.09
Помогите плз. разобраться с Word


8-25447
TGrey
2003-09-06 22:40
2004.01.09
Как определить координаты области вокруг линии


6-25461
pavel_guzhanov
2003-11-10 11:38
2004.01.09
Сбор сведений о компьютерах в сети


1-25429
EugenCFG
2003-12-23 22:32
2004.01.09
Здраствуйте ещё раз... ! На тему SetCapture... И определения





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский