Как получить текст HTML-страницы?

Форум

Как получить текст HTML-страницы?

SADSTAR2: Задача - по заданному URL типа "http://......." получить ответ в виде текста , т.е. HTML-код ответной страницы. Причем запрос через прокси. Есть ли в харборе какие либо средства на эту тему?

Ответов - 7

k_dima: Попробуй эти функции, без прокси они работают, как сделать чтоб работали с http proxy - не знаю. *--------------------------------------------------------------------------- FUNCTION wfReadURL(cUrl) LOCAL cPageContent:="Error: " + cUrl + " not found or timed out." LOCAL oConn IF Upper(Left(cUrl,4))#"HTTP" cUrl:="http://"+cUrl ENDIF TRY oConn := TipClientHttp():New(TURL():New(cUrl)) oConn:nConnTimeout := 20000 IF oConn:Open(cURL) cPageContent := oConn:ReadAll() oConn:Close() ENDIF CATCH cPageContent:="Error opening " + cUrl END RETURN cPageContent // FUNCTION wfSaveURL(cUrl,cSaveAs) LOCAL cPageContent:=wfReadURL(cUrl) LOCAL lReturn:=.T. IF cPageContent="Error:" lReturn:=.F. ELSE MemoWrit(cSaveAs,cPageContent) IF !File(cSaveAs) lReturn:=.T. ENDIF ENDIF RETURN lReturn

fil: Обычно нормально читает HTML(через прокси не пробовал) oWeb:oSocket:Cargo := FALSE oWeb:bOnConnect = {|oWClient| oWClient:oSocket:Cargo := TRUE} oWeb:bOnRead = {|cData| iif(valtype(cData) == "C", cHTML += cData, )} oWeb:Connect(cSite) ............................................

SADSTAR2: Нашел в примерах такой класс - Thttp() Но без какого либо описания. Сделал что хотел. В том числе и через прокси.

gustow: SADSTAR2 Сейчас пробую перевести (+ дополнить) доку по MiniGUI (.CHM Януша Поры) (для пробы тройку страничек положил сюда - http://upi-rock.narod.ru/MiniGUI_help/index.htm). Нет желания - раз разобрался хотя бы "вчерне" с THTTP - сделать хотя бы минимальное описалово по этому классу? И м.б. еще кто из сообщества присоединится к этой (думаю, нужной многим) работе?

SADSTAR2: Пульни на мыло sadstar@mail.ru в каком формате выдать

gustow: Получил .DOC, спасибо. Буду смотреть, как это оформить.

SADSTAR2: Составил описание библиотеки socket.lib - прошу посмотреть http://dump.ru/file_catalog/1011764

полная версия страницы