Discussion :

[judor31]

Bonjour tout le monde,

Voilà j'ai un petit problème, j'ai réalisé une application base de données(avec interbase 6.5 comme sgbd) et ce avec delphi 7.

Jusque là c'est bon, mon souci réside dans le fait que je dois transférer les données enregistrées dans certaines colonnes d'une table vers un formulaire contenant les mêmes colonnes( ex: nom, prénom...).Ce formulaire se trouve sur un site internet, et chaque fois que le formulaire est validé(envoi des données vers le serveur du site, celui ci renvoit un numéro d'inscription que je dois récuperer dans ma table).

Et comme le nombre d'enregistrement est important(jusqu'à 1000 et plus, j'aimerais bien que le transfert vers le site internet soit automatique pour gain de temps).

Je m'excuse pour le message qui est un peu long, mais c'était dans le souci de bien expliquer.

Si quelqu'un pourrait m'éclairer et m'orienter vers un livre ou une documentation en ligne, ça m'aiderait beaucoup et je vous serais très reconnaissant.

C'est la partie qui me reste pour boucler mon projet.

Merci beaucoup et bonnes vacances pour ceux et celles qui ne sont pas encore rentrés.

[ALWEBER]

Il faut fabriquer un outil qui fabrique une requête web que tu soumet par un navigate d'un TWebBrowser.
Voici un exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
  for i1 := 0 to (sl1.count-1) do
    if pos (St_Rep,sl1[i1]) > 0 then
    begin
      st1 := sl1[i1] ;
      delete (st1,1,length(St_Rep)) ;
      showMessage ('suivant '+st1) ;
      WebBrowser1.Navigate ('https://db-files.monserveur.svc.com:10000/samba/'+
              'kill_user.cgi?share=paradox&pid='+st1 )
    end ;
  sl1.Free ;

[Rayek]

Passe par les composants Indy ou ICS.
l faut que tu examines la page de formulaire afin d'extraire les données importantes pour ta requete.

Exemple de ce que tu vas voir normalement :

Code html :

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
 
<form target="_blank" action='http://monsite.com/mapage.htm' method="POST">
  <table>                      
    <tr>
      <td class="frmText" style="color: #000000; font-weight: normal;">Nom:</td>
      <td><input class="frmInput" type="text" size="50" name="Nom"></td>
    </tr>
    <tr>
      <td class="frmText" style="color: #000000; font-weight: normal;">Prenom :</td>
      <td><input class="frmInput" type="text" size="50" name="Prenom"></td>
    </tr>
    <tr>
      <td></td>
      <td align="right"> <input type="submit" value="Invoke" class="button"></td>
    </tr>
  </table>
</form>

Cela va t'indiquer les données dont tu auras besoin.

Code Html :

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

1
2
 
<form target="_blank" action='http://monsite.com/mapage.htm' method="POST">

Action t'indique le site à appeler
Methode t'indique la méthode POST (ou GET)

Code Html :

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

1
2
 
<td><input class="frmInput" type="text" size="50" name="Nom"></td>

Name t'indique une des variables à transmettre

Après il ne te reste plus qu'à coder cela avec des composants orientés internet

Exemple ci-dessous avec Indy

Code "Delphi :

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
24
25
 
var
  lst : TStringList;
  IdHttp : TIdHttp;
begin
 
  lst := TStringlist.Create;
  IdHttp := TIdHttp.Create(nil);
  try
    lst.Add('Nom=le_nom_qui_va_bien');
    lst.add('Prenom=le_prenom_qui_va_bien'); 
 
    // Pour l'envoi des données en méthode POST
    lst.text := IdHttp.Post('http://monsite.com/mapage.htm',lst); 
 
    // Pour la méthode GET
    // lst.text := IdHttp.Get('http://monsite.com/mapage.htm?' + 
    //                               lst.Strings[0] + '&' + lst.Strings[1]); 
 
    Shomessage('Le site m''a retourné ' + lst.text);
  finally
    lst.Free;
    IdHttp.free;
 end;
end;

[Sub0]

Ce sujet est similaire :
http://www.developpez.net/forums/showthread.php?t=67963