Отправлено: 05.08.08 09:04. Заголовок: Как получить текст HTML-страницы?

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

Есть ли в харборе какие либо средства на эту тему?

 Отправлено: 05.08.08 10:33. Заголовок: Попробуй эти функции..

Попробуй эти функции, без прокси они работают, как сделать чтоб работали с 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

 Отправлено: 05.08.08 11:05. Заголовок: Обычно нормально чит..

Обычно нормально читает HTML(через прокси не пробовал)

oWeb:oSocket:Cargo := FALSE
oWeb:bOnConnect = {|oWClient| oWClient:oSocket:Cargo := TRUE}
oWeb:bOnRead = {|cData| iif(valtype(cData) == "C", cHTML += cData, )}

oWeb:Connect(cSite)

............................................

 Отправлено: 13.08.08 07:43. Заголовок: Есть такой класс - Thttp()

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

 Отправлено: 17.08.08 01:43. Заголовок: SADSTAR2 Сейчас проб..

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

 Отправлено: 18.08.08 05:53. Заголовок: Пульни на мыло sadst..

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

 Отправлено: 19.08.08 00:42. Заголовок: Получил .DOC, спасиб..

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

 Отправлено: 21.08.08 02:58. Заголовок: Составил описание библиотеки socket.lib - прошу посмотреть

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