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

 Delphi Discussion :

Ajouter un message avant de charger le fichier dans un WebBrowser !


Sujet :

Delphi

  1. #1
    Membre expérimenté
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    2 427
    Détails du profil
    Informations personnelles :
    Âge : 71
    Localisation : Belgique

    Informations forums :
    Inscription : Janvier 2006
    Messages : 2 427
    Points : 1 326
    Points
    1 326
    Par défaut Ajouter un message avant de charger le fichier dans un WebBrowser !
    Bonsoir à toutes et à tous,

    Existe t'il un moyen d'ajouter un message pour que l'on lise le contenu du fichier après ce message.

    Ce que j'utilise :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    WebBrowser1.Navigate(Edlien.Text);
    Ce que j'aurai aimé :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    WebBrowser1.Navigate('Votre Ip au' +datetostr(date) +Edlien.Text);
    Edit : ou lors de l'envoi du fichier texte !

    Merci d'avance.

    @+,

    Cincap

  2. #2
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 459
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 459
    Points : 24 873
    Points
    24 873
    Par défaut
    Je n'ai pas bien compris ta question

    sache que tu peux modifier le InnerHMTL pour modifier la page reçu
    Idéalement après le OnDocumentComplete
    Si ta page contient du JS qui modifie le HMTL après son chargement, cela se complique un peu, j'ai bricolé une fonction un peu moche mais qui fonctionnait bien sous D6 : WaitWebAssigned !

    InitBrowser pourra te plaire, c'est pour charger une page vierge puis WriteBrowserBody pour y écrire son propre HTML
    Selon l'IE installé, cela supporte plus ou moins bien, voir aussi la
    Comment afficher une page construite dans son application ?


    Tu pourrais ainsi écrire ton texte puis via un JS faire la redirection vers le lien
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  3. #3
    Membre expérimenté
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    2 427
    Détails du profil
    Informations personnelles :
    Âge : 71
    Localisation : Belgique

    Informations forums :
    Inscription : Janvier 2006
    Messages : 2 427
    Points : 1 326
    Points
    1 326
    Par défaut
    Bonjour à toutes et à tous,

    @ ShaiLeTroll, en fait j'essaye d'automatiser au maximum une application qui pourra être lue depuis ma clé Usb afin de ne pas m'occuper du Navigateur qui sera installé sur le Pc à l'étranger.

    Donc le lien du site est renseigné dans un Tedit (Edlien.txt)

    Je me connecte pour afficher le fichier text qui comporte 3 lignes, la 2ième c'est mon IP.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    WBR1.Navigate(Edlien.Text);
    Le texte s'affiche bien (3 lignes) dans "WBR1"

    Avec une autre commande, j'affiche à nouveau le résultat de mon fichier afin de l'exécuter :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Edlien.Text := 'http://'+ WBR1.OleObject.Document.Body.InnerText;
    Si il n'y a qu'une ligne avec l'Ip c'est ok, par contre, dans ce cas les 3 lignes s'affichent.

    J'ai tenté de sauvegarder ce fichier texte sur le DD et puis choisir la 2ième ligne correspondant à l'IP et je trouve dans le mémo le code Html au lieu des 3 lignes alors que si j'ouvre manuellement ce même fichier sur le DD, j'ai bien mes 3 lignes.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    MFichier.Lines.LoadFromFile(chappli + 'ip.txt');
    EDlien.text := 'http:/'+MFichier.Lines[3];
    J'ai tout essayé on croirait que c'es au niveau format du fichier texte lorsqu'il est sur le serveur.

    @+,

    Cincap

  4. #4
    Membre expérimenté
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    2 427
    Détails du profil
    Informations personnelles :
    Âge : 71
    Localisation : Belgique

    Informations forums :
    Inscription : Janvier 2006
    Messages : 2 427
    Points : 1 326
    Points
    1 326
    Par défaut
    Bonjour à toutes et à tous,

    C'était bien au niveau du format lors du chargement d'un fichier "*.txt" sur un serveur.

    Merci,

    @+,

    Cincap

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

Discussions similaires

  1. Réponses: 3
    Dernier message: 29/06/2015, 10h08
  2. [XL-2007] choisir un répertoire avant de charger un fichier
    Par aminee1666 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/08/2011, 21h36
  3. Charger un fichier dans tableau d'entier
    Par nico0007 dans le forum Langage
    Réponses: 12
    Dernier message: 17/04/2008, 11h30
  4. charger un fichier dans un tableau
    Par nico0007 dans le forum Delphi
    Réponses: 3
    Dernier message: 16/01/2007, 23h59
  5. Charger un fichier dans une textarea
    Par boux2 dans le forum Langage
    Réponses: 2
    Dernier message: 28/01/2006, 16h16

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