[TWebBrowser] Navigate buggé ?
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:
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:
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.
