Le WinHTTP avec Microsoft Visual FoxPro

Le = WinHTTP avec Microsoft Visual FoxPro.

Les services de HTTP de M= icrosoft Windows (WinHTTP) fournit à des réalisateurs une interface serveur-soutenue et à niveau élevé au Protocole Internet HTTP/1.1. <= span class=3DSpellE>WinHTTP est conçu pour être employ&eacut= e; principalement dans les scénarios serveur-bas&e= acute;s par les applications de serveur qui communiquent avec des serveurs de HTTP.=

WinI= net, une technologie plus ancienne, a été conçu comme plateforme de client de HTTP pour des applications de bureau interactives, telles que le Microsoft Internet Explo= rer, le bureau de Microsoft, et Microsoft Money. WinI= Net montre une interface utilisateur pour certaines opérations telles que rassembler des qualifications d'utilisateur. WinHTTP, cependant, effectue ces opérations par programmat= ion.

WinHTTP 5.0 Dispositif= s

Protocole HTTP/1.0, y compris le soutie= n des raccordements et des ‘cookies’ (persistants) garder-vivants de session.
HTTP/1.1 le soutien de transferts morcelés des réponses de HTTP.
mettre Garder-viva= nt des raccordements anonymes à travers des sessions. <= /span>
Fixez la fonctionnalité de la co= uche de douilles (SSL), y compris des certificats de client. Les protocoles soutenus de SSL incluent ce qui suit:&n= bsp; SSL 2,0, SSL 3,0, et sécurité de couche transport (TLS) 1,0.=
Soutien de serveur et d'authentificatio= n de procuration, y compris le soutien intégré du passeport de Microsoft 1,4 et le paquet de la négociation/Kerberos.
La manipulation automatique de ré= ;oriente à moins que supprimée.
Interface de Scriptable en plus de l'ap= i.
Service de trace à aider à dépanner des problèmes.

WinHTTP 5.1 Dispositif= s

Appu= i IPv6.
Poss= ibilités d'AutoProxy.

Avec la version 5,1, WinHTTP est maintenant un composant du système= d'exploitation des systèmes suivants: Microsoft Wi= ndows 2000, paquet de service 3 et plus défunt (excepté le serveur = de Datacenter) Microsoft Windows XP, SP1 et plus et fami= lle 2003 postérieure de serveur de Microsoft Windows.<= /p>

Il y a deux façons d’utiliser WinHTTP. Avant que vous commen= ciez à développer un service HTTP de Microsoft Windows (de WinHTTP), vous devez d'abord décider si employ= er le C/C++ api ou COM. Cet article se concentre sur l’utilisation du COM.

Les différences en= tre C/C++ API et le COM.

C/C++ API (Les avantages). <= /span>

Les réponses peuvent être traitées par petites tranches.
Les opérations POST peuvent être aussi traités par petites tranches, qui augme= nte la vitesse de traitement.
Supporte l’AutoProxy
L’accès complet des fonct= ions WinHTTP.
Le data binaire peut aussi être traité.

C/C++ API (Les désavantages).

Les procédés sont plus complexes.
Le procédé de traitement requiert plus d’étapes que le COM.
Préparer une requête pren= d plus de code.

Interface COM (les avantages)

Créer un application COM requiert moins de code.
L’interface COM peut-être programmé avec les langages scriptes.

Interface COM (les désavantages)

L’interface COM ne donne pas accès à toutes les fonctions WinHT= TP.
Avec certains langages scripts il est = plus difficile de traiter le data binaire.
Ne supporte pas l’= ;AutoProxy
L’application doit être construite sur le modèle appartement.
Avant qu'une réponse puisse com= mencer à être traité, la réponse entière d= oit d'abord être reçue et protégée..

Voici exemple qui d&eacut= e;montre comme acquérir le code source de la page frontispice www.foxforum.net .

&& Créer un insta=
nce de WinHTTPRequest

WinHttpReq<=
/span> =3D CreateObject("WinHttp.WinHttpRequest.5.1") =

&&  Créer un=
e requète HTTP

WinHttpReq.Open("GET", “www.foxforum.net”, .F=
.)

&& Envoyer la requite  =
;        HTTPWinHttpReq.Send()
&& Recevoir la ré=
ponse
WinHttpReq.=
ResponseText

Donc la fonction compl&eg= rave;te pourrait être ceci

Messagebox(getText("http://www.foxforum.net&q=
uot;))

Function getText(strURL)

Local strResult

Try

      &=
nbsp;     && Create the WinHTTPRequest ActiveX Object.

WinHttpReq =3D Createobject("WinHttp.WinHttpRequest.5.1")

        &nb=
sp;   &&  Create an HTTP request.

=
            temp =3D WinHttpReq.Open=
("GET", strURL,.F.)

          =
  && send the HTTP request.

 =
           WinHttpReq.Send()

         =
;   &&  Retrieve the response text.

<= pre> strResult =3D WinHttpReq.Respo= nseText

Catch To oErr

    &=
nbsp;       strResult=3D "WinHTTP a retourné l'erreur: "+ALLTRIM(STR(oErr.ErrorNo))+" "+o=
Err.message

Endtry

Return strResult

Voici un autre exemple qui démontre comment télécharger l’image de VFP8.0 directement du site de Microsoft et aussi donne une réponse de connection.

Public oform1

oform1=3DNewobject("form1")

o=
form1.Show

Return

Define Class form1 As Form

  &n=
bsp;         DoCreate =3D .T.

     &n=
bsp;      Caption =3D "Exemple de r=
equete WinHTTP"

       =
     Name =3D "Form1"

            Add=
 Object command1 As CommandButton With ;

 &nb=
sp;            =
          AutoSize =3D .T., ;

 &nbs=
p;            &=
nbsp;         Top =3D 204, ;

          =
            &nb=
sp; Left =3D 108, ;

     &nbs=
p;            &=
nbsp;     Height =3D 27, ;

 &=
nbsp;           &nbs=
p;          Width =3D 115, ;

         &=
nbsp;           &nbs=
p;  Caption =3D "WinHTTP requete", =
;

        &nbs=
p;            &=
nbsp;  Name =3D "Command1"

  =
          Add Object image1 As=
 Image With ;

      &nbs=
p;            &=
nbsp;    Height =3D 110, ;

  =
            &nb=
sp;         Left =3D 48, ;

          &n=
bsp;            =
; Top =3D 12, ;

      &n=
bsp;            =
;     Width =3D 241, ;

  =
;            &n=
bsp;         Name =3D "Image1&=
quot;

        =
    Add Object text1 As TextBox With ;

  &nb=
sp;            =
         Height =3D 23, ;

          &nb=
sp;            =
 Left =3D 24, ;

      &n=
bsp;            =
;     Top =3D 132, ;

  &=
nbsp;           &nbs=
p;         Width =3D 312, ;

          &=
nbsp;           &nbs=
p; Name =3D "Text1"

    =
        Procedure command1.Click

          &=
nbsp; Set Safety Off

     &nb=
sp;      WinHttpReq=3DCreateobject("WinHttp.WinHttpRequest.5.1")

** &nb=
sp; ' Assemble an HTTP Request.

   &nbs=
p;        WinHttpReq.Open('GET','http://msdn.microsoft.com/vfoxpro/art/Foxpro=
_boxshot.jpg',.F.)

      =
;      WinHttpReq.Send()

  =
          Thisform.text1.Value=
 =3D Transform(WinHttpReq.Status)+ " - " + WinHttpReq.StatusText

**   =
' Put response data into a file.

   &nb=
sp;        Strtofile(WinHttpReq.ResponseB=
ody,'c:\FOXPRO.JPG')

**   ' Load the =
data file as a picture.

     =
       Thisform.image1.Picture=3D 'c:\FOXPRO.=
JPG'

        &=
nbsp;   Endproc

E=
nddefine

For= mulaire avant le requè= te.

<= /p>

For= mulaire après la requète =

<= /p>