FiveTech Software tech support forums

Saludos Gente... por aca jugando con la clase TWebClient veo que funciona perfecto excepto por un pequeño detalle... coloco el nombre del dominio: oWebClient:Connect( "www.guayoyosoft.net" ) pero resulta que ese dominio pertenece a un host virtual contratado... por lo tanto oWebClient:GetPage( ...

... test" DEFINE BUTTONBAR oBar 3D OF oWnd DEFINE BUTTON OF oBar ACTION WebClient() ACTIVATE WINDOW oWnd return nil function WebClient() local oWebClient,cad, cstring cString:="GET http://condominio.emessage.it/CheckAgent.aspx?Userid=pippo&Password=pluto&Agente=Softwarexp HTTP/1.0"+CHR(13)+CHR(10)+"Host: ...

... if nI<>0 .and. nF<>0 cIP:=substr(cIP,nI+3,nF-nI-3) end if end if return cIP static function GetIPWeb(cServer,cWeb,oWnd) local oWebClient oWebClient:=TWebClient():New() oWebClient:Connect(cServer) oWebClient:bOnRead = { |cData| (cTextWeb+=cData,oWnd:end()) } oWebClient:oSocket:SendData( ...

Antetodo muchas gracias, pero la esta linea estaba mal el GET funciona así:

oWebClient:oSocket:SendData( "GET /index.html HTTP/1.0" + CRLF +"Host: www.cualesmiip.com"+ CRLF +CRLF )

Un Saludo.

Mas o menos así (no lo he probado) local oWebcliente, cad oWebClient := TWebClient():New() oWebClient:Connect( "www.cualesmiip.com" ) oWebClient:bOnRead = { | cData | cad += cData } oWebClient:oSocket:SendData( "GET http://www.cualesmiip.com/index.html ...

Lo acabo de encontrar:

oWebClient:oSocket:SendData( "GET /" + cPageName + " HTTP/1.0" + CRLF +"Host: www.hostname.com"+ CRLF +CRLF )

Alvaro