Fecha de un sitio(site)

[karinha]

Buenos dias senõres, porfa:

¿Cómo puedo conseguir una cita para un sitio así que si su fecha de equipo sea inferior a la FECHA de el, dejo el programa?

Desculpe mi portunhol.

Salu2, gracias.

[karinha]

Code: Select all  Expand view

#include "FiveWin.ch"
#include "dll.ch"

STATIC xdll
STATIC oWnd

//----------------------------------------------------------------//

FUNCTION Main()

   LOCAL oBar

   DEFINE WINDOW oWnd TITLE "Pega Data Site"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION( RetornoNet() )

   SET MESSAGE OF oWnd TO "Data do Site do Sergio" ;
       NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

RETURN NIL

//----------------------------------------------------------------//

//Kapi Testa ai

//..... ACTION(RetornoNet())
//

FUNCTION RetornoNet()

   LOCAL dDataSite

   PRIVATE xDLL,oGet,oSay

   ws:=TdWebService():new()

   //MSGINFO(ws:OpenWS("http://www.oho.com.br/qualdata.php"),"Retorno")

   dDataSite :=  ws:OpenWS("http://www.oho.com.br/qualdata.php" )

   ? dDataSite

   ws:end()

RETURN(NIL)

//Classe

*****************************
CLASS TdWebService
     DATA hOpen
     DATA sbuffer HIDDEN
     DATA xDLL HIDDEN

     METHOD New(buffersize) CONSTRUCTOR

     METHOD OpenWS(url)

     METHOD End()

ENDCLASS

*****************************
METHOD New(conexion,buffersize) CLASS TdWebService

   DEFAULT buffersize:=3200

   ::sbuffer:=buffersize

   xDll:=LoadLibrary("wininet.dll")

   ::hOpen = InternetOpen("TdWebService", 1,,, 0)

RETURN Self

*****************************

METHOD OpenWS(url) CLASS TdWebService

   local hFile,ret,xml

   hFile = InternetOpenUrl(::hOpen, url,"",0,,0)

   xml:=space(::sbuffer)

   InternetReadFile(hFile, @xml, ::sbuffer, @Ret)

return subst(alltrim(xml),1,len(alltrim(xml)))

*****************************

METHOD End() CLASS TdWebService

   FreeLibrary(xDll)

return nil

*****************************

DLL32 FUNCTION InternetOpen( cApp as LPSTR, n1 AS DWORD, n2 AS LPSTR, n3 AS LPSTR,;
                             n4 AS DWORD ) AS LONG PASCAL ;
                             FROM "InternetOpenA" LIB xdll
Dll32 Function InternetReadFile(hFile As 7, @sBuffer As 8, lNumBytesToRead As 7, @lNumberOfBytesRead As 7) As 7 PASCAL Lib xdll
Dll32 Function InternetOpenUrl(hInternetSession As 7, lpszUrl As 8, lpszHeaders As 8, dwHeadersLength As 7, dwFlags As 7, dwContext As 7) As 7 FROM "InternetOpenUrlA" PASCAL Lib xdll
DLL32 FUNCTION InternetCloseHandle( hSession AS LONG ) AS BOOL PASCAL LIB xdll


// Quanto ao .PHP, é só fazer o que voce quizer, e disponibilizar no provedor que tenha suporte a PHP

// Alguns pra voce brincar.
// http://www.oho.com.br/qualdata.php
// http://www.oho.com.br/qualdatacompleta.php
// http://www.oho.com.br/qualip.php