IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

[OleVariant] Comment sauvegarder la valeur ?


Sujet :

Langage Delphi

  1. #1
    Membre confirmé Avatar de heid
    Profil pro
    Inscrit en
    mai 2002
    Messages
    388
    Détails du profil
    Informations personnelles :
    Localisation : France, Indre et Loire (Centre)

    Informations forums :
    Inscription : mai 2002
    Messages : 388
    Points : 587
    Points
    587
    Par défaut [OleVariant] Comment sauvegarder la valeur ?
    Bonsoir,
    situation
    Je souhaite pouvoir envoyer automatiquement un formulaire post via un twebbrowser. J'utilise donc un navigate ou j'envoi les postdada: un olevariant.

    problème
    Quand je sauvegarde cet olevariant via beforenavigate dans une autre variable olevariant déclarée en globale jarrive a renvoyer ce formulaire. Mais je ne sais pas comment sauvegarder cette valeure pour une utilisation future sans être obligé de naviguer avant.

    question
    Comment sauvegarder cet olevariant dans la source de mon code ou dans un fichier.



    Merci d'avance.
    D7 entreprise.

  2. #2
    Membre régulier

    Profil pro
    Inscrit en
    avril 2002
    Messages
    99
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : avril 2002
    Messages : 99
    Points : 124
    Points
    124
    Par défaut
    Je ne sais pas si ce code répond à ta solution mais ça permettrais de sauvegarder les valeurs à passer en PostData en chaîne...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
     
    var
     URL: WideString;
     Flags: OleVariant;
     TargetFrameName: OleVariant;
     PostData: OleVariant;
     Headers: OleVariant;
     tempStr: string;
     i: Integer;
    begin
     Flags := 12;           // Do not use the cache
     TargetFrameName := ''; // Not '' to open a new browser window
     URL := 'https://dodaac.wpafb.af.mil/results.cfm?requesttimeout=1000';
     
     tempStr := 'Param1Name=value1&Param2Name=value2';
     PostData := VarArrayCreate([0, Length(tempStr) - 1], varByte);
     
      { copy the ordinal value of the character into the PostData array}
     for i := 1 to Length(tempStr) do
        PostData[i-1] := Ord(tempStr[i]);
     Headers := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
     
    WebBrowser1.Navigate (URL, Flags, TargetFrameName, PostData, Headers);
    A+---------------> Nat <-------------------

  3. #3
    Membre confirmé Avatar de heid
    Profil pro
    Inscrit en
    mai 2002
    Messages
    388
    Détails du profil
    Informations personnelles :
    Localisation : France, Indre et Loire (Centre)

    Informations forums :
    Inscription : mai 2002
    Messages : 388
    Points : 587
    Points
    587
    Par défaut
    Cela a solutioné mon problème et je t'en remercie .

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XSL] Comment modifier la valeur d'une variable?
    Par sorcer1 dans le forum XSL/XSLT/XPATH
    Réponses: 8
    Dernier message: 17/02/2010, 14h26
  2. Comment sauvegarder une valeur d'un "champ calculé"?
    Par *Aya* dans le forum Bases de données
    Réponses: 5
    Dernier message: 07/01/2008, 18h00
  3. Comment sauvegarder des valeurs dans un fichier txt
    Par NELLLY dans le forum MATLAB
    Réponses: 3
    Dernier message: 16/04/2007, 18h39
  4. Réponses: 5
    Dernier message: 17/06/2005, 17h17
  5. [IDE][VS.NET] Comment sauvegarder l'état des 'Region' ?
    Par CkurcK dans le forum Contribuez
    Réponses: 2
    Dernier message: 23/02/2004, 15h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo