[TWebBrowser] Navigate buggé ?

**All Jinx** · 08/10/2005, 17h45

Bonjour,

Voilà j'envois une page en php via FTP et je souhaiterais l'afficher pour que les requetes SQL contenues dans celui-ci soient executée.

Voici mon code dans la procédure principale :

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
  Flag,OleNull : OleVariant;
 
begin
    Ligne:=Form1.mem_system.Lines.Add('      - Envoi du fichier...');
    with Form1.ftp_divers do
    begin
      Host:='????.????.com';
      UserName:='???????';
      Password:='??????';
      Connect;
    end;
    Form1.ftp_divers.Put('exports.php','/www/imports/exports.php',false);
    Form1.ftp_divers.Disconnect;
    Form1.mem_system.Lines[Ligne]:=Form1.mem_system.Lines[Ligne]+' Ok';
 
    Ligne:=Form1.mem_system.Lines.Add('      - Execution du fichier...');
    Form1.FlagPage:=false;
 
    Flag:=navNoHistory+navNoReadFromCache+navNoWriteToCache; // Ici ce situe mon problème je pense
    OleNull := Null;
    Form1.wbw_divers.Navigate('http://90plan.ovh.net/~hexobase/imports/exports.php',Flag,OleNull,OleNull,OleNull);

Ma page php prends 'succes' en titre si tout s'est bien déroulé. J'ai donc mis un morceau de code dans le OnDocumentComplete de mon TWebBrowser.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
    if Form1.wbw_divers.LocationName='succes' then // Il consulte l'historique :''''(((((
    begin
      Form1.mem_system.Lines[Ligne]:=Form1.mem_system.Lines[Ligne]+' Ok';
      Form1.mem_system.Lines.Add('');
    end
    else
    begin
      Form1.mem_system.Lines[Ligne]:=Form1.mem_system.Lines[Ligne]+' Echec';
      MessageDlg('L''envoi des données à échoué.',mtWarning,[mbOk],0);
    end;

Seulement voilà, malgrès le fait que je passe la constante navNoHistory à la méthode Navigate() de mon TWebBrowser, l'adresse et le fichier s'inscrivent dans l'historique.
Du coup, il me met que Form1.wbw_divers.LocationName='succès', donc que ma page s'appelle 'succès' alors qu'il est impossible d'afficher la page !!!
Quelqu'un à une idée sur le problème, ou connaîtrait un moyen plus simple d'executer ma page php ?

Merci de votre aide.