Discussion :

[cincap]

Bonjour à toutes et à tous,

Depuis mon application de surveillance par WebCam, j'ai ajouté un module qui me permet de configurer ma BBox2 (modem Belgacom !);

Il y a peu de temps, Belgacom par souci de sécurité, a ajouté un champ afin de rentre le n° d'identification du modem.

Comme c'est toujours le même lien concernant ce modem et même numéro du modem de celui qui utilise l'application, serait t'il possible de le faite automatiquement.

A toutes fin, voici le lien de la BBox2 : http://192.168.1.1/

Merci d'avance.

@+,

Cincap

[Ph. B.]

Bonjour,

Il s'agit de remplir un formulaire et de le renvoyer au serveur, il y a dans la FAQ de quoi traiter le problème (exemple avec un composant Indy).

Comment valider un formulaire ne contenant que des données textuelles avec la méthode POST ?

[cincap]

@ Ph. B., merci de ta réponse, j'avais vu ce post avant mon topic, mais mon test n'était pas concluant, j'avais chargé ma page dans le TWebBrowser :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TFWeb.BValidationClick(Sender: TObject);
{Navigate permet de charger une page. Cette page peut être une page HTML }
{mais aussi un fichier Excel, Word, un JPG GIF etc...                    }
begin
  try WebBrowser1.Navigate(ComboBoxURL.Text,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
    ComboBoxURL.Items.Add(ComboBoxURL.Text); // rajoute l'URL de la page dans les Items du ComboBox
  except end;
end;

Ensuite, j'affichai la source :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
procedure TFWeb.BAfficherClick(Sender: TObject);
// permet d'afficher la source HTML
begin
  FormTest.show;
  try
    FormTest.RE_Test.Text := WebBrowser1.OleObject.Document.body.innerHTML;
  except end;
end;

Et après, calage.

@+,

Cincap

[ShaiLeTroll]

utilise IHTMLElement : Saisie automatique dans un formulaire d'un WebBrowser

[cincap]

@ ShaiLeTroll, merci de ta réponse, j'ai une erreur sous D6 (identificateur non déclaré), y a t'il une référence à mettre dans le Uses de ma fiche ?

Sinon, j'ai suivi ton lien et je l'examine.

@+,

Cincap

[ShaiLeTroll]

le uses de IHTMLElement ça doit être SHDocVw et MSHTML (...\Source\Internet)

[cincap]

@ ShaileTroll, voiçi ce que j'ai dans le "Uses" :

Code :

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

1
2
3
4
5
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, ToolWin, ComCtrls, ComObj, {SHDocVw_TLB,} SHDocVw_TLB,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

Quand je rajoute "MSHTML", il m'indique qu'il ne trouve pas son fichier "MSHTML.dcu".

Merci quand même.

@+,

Cincap

[ShaiLeTroll]

As-tu le fichier "...\Borland\Delphi6\Source\Internet\mshtml.pas" ?
J'ai une version Pro et j'ai ce fichier qui contient presque 200 interfaces

[cincap]

@ ShaileTroll,

As-tu le fichier "...\Borland\Delphi6\Source\Internet\mshtml.pas" ?

Non je n'ai même pas le dossier "Internet" peut être à cause de la version de Delphi, car c'est la version gratuite et je n'ai pas non plus les composans Db...

Dans le dossier "Imports" j'ai :

SHDocVw_TLB.dcr
SHDocVw_TLB.dcu
SHDocVw_TLB.pas

Pour le moment, je copie de mon application la clé dans le presse papier et une fois dans le champ, je fait un Ctrl+V.

Il y a mieux me semble t'il.

@+,

Cincap

[ShaiLeTroll]

Essaye d'importer "C:\WINNT\System32\mshtml.tlb" ou "C:\WINDOWS\system32\mshtml.tlb"
Tu as la DLL mshtml.dll qui avec évidemment

mshtml.pas et SHDocVw.pas sont des fichiers importés pré-inclus dans la version Pro
J'avais réimporte SHDocVw_TLB et mshtml_TLB en Delphi 3 qui les fournissait pas par défaut
Avec des directives, je gérais mon WebBrowser aussi bien en D3 qu'en D7 : Afficher page HTML dans Delphi

[cincap]

@ ShaileTroll, bonsoir, merci pour l'info, j'ai essayé mais trop d'erreurs au niveau de la compil (voir fichier).

A moins que je m'y prend mal pour l'import !

Je suis sous Seven 64bits mais cela tu le sais bien.

@+,

Cincap

[Montor]

Pas problème travail en variant ...

Code :

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

  Document.All.ID_Champ.Value := 'text'

[cincap]

Bonjour à toutes et à tous,

@ Montor, merci pour ton aide mais aprés test, cela ne fonctionne pas.

Avec ce code, je suis arrivé à une solution mais comme le nom du champ ou je dois rentrer l'identité du modem, varie à chaque chargement de la page, j'ai utilisé un Tedit pour le vérifier à l'appel du code source de ce champ.

Code html ou se trouve le champ à remplir :

Code :

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

1
2
3
<TD class=libelle>Serial Number (S/N)</TD>
<TD class=field><INPUT style="WIDTH: 150px" name=password_351490872 maxLength=64 value="" type=password><INPUT name=md5_pass type=hidden> </TD>

Code Delphi :

Code :

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

1
2
 
WebBrowser1.OleObject.Document.getElementById(Edpass.text).Value :='iddumodem';

Si quelqu'un à une idée pour contrer cette modif du nom, je suis preneur.

Edit : le nom du champ commence toujours par "password_"

@+,

Cincap

[cincap]

Bon, j'ai trouvé et je marque "Résolu", merci à tous.

J'ai en effet regardé le code source de cette page et le code du name qui change se trouve déjà sur un autre champ id non visible au dessus du champ accessible qui permet de rentrer l'id du modem.

Je n'ai qu'à reprendre cette valeur et rajouter avant "password_".

@+,

Cincap

[ShaiLeTroll]

Je suis sous Seven 64bits mais cela tu le sais bien.

Euh, non, difficile de se rappeler de la configuration des tous les membres du forum, même si ils sont très présent !


Pour tes erreurs, déjà ton fichier généré semble colossale, celui de D6 ne fait que 27000 et celui de XE2 34500 !
Certaines fonctions en erreur sont pourtant les méthodes des interfaces et d'autres semble plutôt être lié au MediaPlayer, ta version de IE doit être élevé (moi j'ai encore la 6)
Peut-être un mauvais transtypage dans les CoClass (erreur du générateur ?)

Mais comme le suggère Montor, reste en OleVariant pour utiliser les interfaces en LateBinding, prévoit d'avoir la MSDN à portée de main !


GetElementByID ne fonctionne pas sur la propriété NAME mais ID, tu dois coder ta fonction GetElementByName dont voici la variante C++Builder en LateBinding, seul le QueryInterface te posera problème, en LateBinding pure, j'ignore comme cela s'écrit !

Voir aussi getElementsByTagName

[cincap]

@ ShaiLeTroll, merci du suivi, par contre :

GetElementByID ne fonctionne pas sur la propriété NAME mais ID

Dans une procédure de test, avec ce code, je trouve la valeur "Name" du champ non visible (ou se trouve la clé qui vient d'être créée automatiquement) et ensuite la valeur "Name" du champ visible ou je dois rentrer l'id du modem.

Test :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TFWeb.BIdClick(Sender: TObject);
begin
//session_id
Edpass.Text:= 'password_' + WebBrowser1.OleObject.Document.getElementById('session_id').Value  ; //session_id n'est pas visible !
end;
 
procedure TFWeb.BIdmodemClick(Sender: TObject);
begin
WebBrowser1.OleObject.Document.getElementById(Edpass.text).Value := Edidmodem.text; //Je rentre l'id de mon modem !
end;

Donc cela fonctionne bien sur la valeur "Name" du champ et dans mon cas c'est ok.

Edit : Tu as raison, c'est bien sur l'id cela dépend l'interprétation

@+,

Cincap

[Montor]

@ ShaiLeTroll, merci du suivi, par contre :



Dans une procédure de test, avec ce code, je trouve la valeur "Name" du champ non visible (ou se trouve la clé qui vient d'être créée automatiquement) et ensuite la valeur "Name" du champ visible ou je dois rentrer l'id du modem.

Test :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TFWeb.BIdClick(Sender: TObject);
begin
//session_id
Edpass.Text:= 'password_' + WebBrowser1.OleObject.Document.getElementById('session_id').Value  ; //session_id n'est pas visible !
end;
 
procedure TFWeb.BIdmodemClick(Sender: TObject);
begin
WebBrowser1.OleObject.Document.getElementById(Edpass.text).Value := Edidmodem.text; //Je rentre l'id de mon modem !
end;

Donc cela fonctionne bien sur la valeur "Name" du champ et dans mon cas c'est ok.

Edit : Tu as raison, c'est bien sur l'id cela dépend l'interprétation

@+,

Cincap

Code :

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

1
2
3
4
5
var
 v:Variant;
begin
  v:= WebBrowser1.Document;
  V.All.(nom de champ).value := 'text';

[cincap]

Bonjour à toutes et à tous,

@ Montor, merci aussi de ta suggestion, mais je n'arrive pas à avoir le résultat escompté, car lors de la compil puis essai j'ai une erreur sans avis.

J'avais déjà enlever le point de trop mais......

Code :

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

1
2
3
4
5
6
 
var
 v:Variant;
begin
  v:= WebBrowser1.Document;
  V.All(nom de champ).value := 'text';

Si tu as une idée du pourquoi !

Le nom de mon champ est 'session_id' et la value doit être récupérée dans le Tedit "Edpass".

@+,

Cincap