ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Vous vous ennuyez? Petit truc a faire à tout les jours (VFP8.0 et 9.0 seulement)   


L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle

Note des membres
pas de note

Contributions > 20 - Trucs et Astuces

Vous vous ennuyez? Petit truc a faire à tout les jours (VFP8.0 et 9.0 seulement)
# 0000000111
ajouté le 01/12/2004 22:54:21 et modifié le 19/12/2004
consulté 8258 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
Description

Dans le USA et au Canada il y a des bandes déssinées (cartoons) qui apparaissent des les journeaux à tous les jours et ils sont disponibles en Webservice.

Code source :
CLEAR
LOCAL loWSDailyDilbert AS "XML Web Service"
* Do not remove or alter following line. It is used to support IntelliSense for your XML Web service.
*__VFPWSDef__: loWSDailyDilbert = http://www.esynaps.com/WebServices/DailyDiblert.asmx?WSDL , DailyDilbert , DailyDilbertSoap
LOCAL laFile[1]

IF FILE(HOME() + "Dilbert.bmp")
   ADIR(laFile, HOME() + "Dilbert.bmp")
   IF VARTYPE(laFile[3]) = "D"
      IF laFile[3] < DATE()
         GetDilbert()
      ENDIF
   ENDIF
ELSE
   * The file doesn't exist, let's go get it
   GetDilbert()
ENDIF

DisplayDilbert()

FUNCTION GetDilbert()
LOCAL loException, ;
      loWSHandler, ;
      lcBinary

    TRY
        loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx")
        loWSDailyDilbert = loWSHandler.SetupClient("http://www.esynaps.com/WebServices/DailyDiblert.asmx?WSDL", "DailyDilbert", "DailyDilbertSoap")

        lcBinary = loWSDailyDilbert.DailyDilbertImage()
        STRTOFILE(lcBinary, ADDBS(SYS(2023)) + "Dilbert.gif", 0)

    CATCH TO loException
        DO CASE
        CASE VARTYPE(loWSDailyDilbert)#"O"
            * Handle SOAP error connecting to web service
        CASE !EMPTY(loWSDailyDilbert.FaultCode)
            * Handle SOAP error calling method
        OTHERWISE
            * Handle other error
        ENDCASE
    FINALLY
    ENDTRY

    RETURN
ENDFUNC

FUNCTION DisplayDilbert()

   IF FILE(ADDBS(SYS(2023)) + "Dilbert.gif")
        IF TYPE("_screen.imgDilbert") = "O" AND !ISNULL(_screen.imgDilbert)
           _screen.RemoveObject("imgDilbert")
        ENDIF

        _screen.AddObject("imgDilbert", "image")
        _screen.imgDilbert.Picture = ADDBS(SYS(2023)) + "Dilbert.gif"
        _screen.imgDilbert.Visible = .T.
   ENDIF

ENDFUNC
Commentaires
Aucun commentaire enregistré ...
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3