translate code to fivewin : internet IP

Board index FiveWin for Harbour/xHarbour translate code to fivewin : internet IP

Posts: 83

Joined: Tue Nov 08, 2005 11:09 AM

translate code to fivewin : internet IP
Posted: Fri May 29, 2009 05:49 PM

Hi all,

plz help to translate this piece of code into Fivewin,

FUNCTION MyWanIP
LOCAL oHTTP as "winhttp.winhttprequest.5.1"
LOCAL cHTML
oHTTP=NEWOBJECT("winhttp.winhttprequest.5.1")
oHTTP.Open("GET","http://www.ip-adress.com/",.f.)
oHTTP.Send()
cHTML = ohTTP.ResponseText
RELEASE oHTTP
RETURN STREXTRACT(cHTML,"My IP address: ","</h2>")

Thanks.
Regards
Hoe

Regards

Hoe, email: easywin3@yahoo.com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: translate code to fivewin : internet IP
Posted: Sat May 30, 2009 01:05 AM

Code (fw): Select all Collapse

function MyWanIP

   local oHttp, cHtml

   oHttp := CreateObject( "winhttp.winhttprequest.5.1" )
   oHttp:Open( "GET", "http://www.ip-adress.com/", .f. )
   oHttp:Send()
   cHtml := oHttp:ResponseText()
   cHtml := StrExtract( cHtml, "My IP address: ", "</h2>" )
   msginfo( cHtml )

return cHtml

static function StrExtract( cText, cAfter, cBefore )

   local cRet  := SubStr( cText, At( cAfter, cText ) + Len( cAfter ) )
   local n

   if ( n := At( cBefore, cRet ) ) > 0
      cRet  := Left( cRet, n - 1 )
   endif

return cRet

Regards

G. N. Rao.

Hyderabad, India

tnhoe

Posts: 83

Joined: Tue Nov 08, 2005 11:09 AM

Re: translate code to fivewin : internet IP
Posted: Mon Jun 01, 2009 05:41 AM

ok, thanks a lot.

Regards

Hoe, email: easywin3@yahoo.com

FiveTech Support Forums

Continue the discussion