HTTP POST

Version imprimable

11/11/2005, 16h49
jmjmjm

HTTP POST

Petit probleme je veux recuperer une fiche a partir d'un site j'ai trouvé sa sur le site mais je ne comprend pas si quelqu'un pe m'expliquer j'ai essayer avec idhttp.post mais je ne dois pas bien le faire

Citation:

http://www.moviecovers.com/getfilm.html est un script qui renvoit la fiche d'un film au format .FILM. Il accepte les requêtes de type HTTP POST uniquement, et attend l'IDMC du film demandé dans le champ "idmc".

MERCI
11/11/2005, 17h12
jmjmjm

PS IDMC c'est le titre du film !!
par exemple MATRIX

Je peux te proposer ceci pour récupérer le contenu d'une page web :

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
Uses Wininet;
 
 
{----------------------------------------------------------------}
Function GetHTML(AUrl: String): String;
Var
  databuffer: Array[0..4095] Of Char;
  hSession, hfile: hInternet;
  dwindex, dwcodelen, dwread, dwNumber: Cardinal;
  dwcode: Array[1..20] Of Char;
  res: PChar;
Begin
  Result := '';
  hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, Nil, Nil, 0);
  If (Assigned(hsession)) Then Begin
    hfile := InternetOpenUrl(hsession, PChar(AUrl), Nil, 0, INTERNET_FLAG_RELOAD, 0);
    dwIndex := 0;
    dwCodeLen := 10;
    HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
    res := pchar(@dwcode);
    dwNumber := SizeOf(databuffer) - 1;
    If ((res = '200') Or (res = '302')) Then Begin
      While (InternetReadfile(hfile, @databuffer, dwNumber, DwRead)) Do Begin
        If (dwRead = 0) Then Break;
        databuffer[dwread] := #0;
        Result := Result + PChar(@databuffer);
      End;
    End Else Result := 'Status:' + res;
    If (Assigned(hfile)) Then InternetCloseHandle(hfile);
  End;
  InternetCloseHandle(hsession);
End;
 
{----------------------------------------------------------------}
Procedure TForm1.FormCreate(Sender: TObject);
Begin
  Memo1.Text := GetHTML('http://monsite.com/mapage.htm');
End;

J'espère que ça te conviendra, à+

http://sub0.developpez.com/tag.png
Lien tout en bas à gauche de cette fenêtre

11/11/2005, 22h12
jmjmjm

en fait j'ai compris pourquoi le fichier zip que je voulais telecharger ne marchait pas (j'ai fait un post pour rien) le probleme est que le zip n'etait pas stocker mais creer a chaque fois donc avant d'executer idhttp.get je devait lancer un requete pour la création avec le fameux script
http://www.moviecovers.com/getfilm.html
j'ai reussi en utilisant WinExec('http://www.moviecovers.com/getfilm.html/xxx.zip',SW_SHOWNORMAL);
avant le idhttp.get sa ma prit 3 jours de reflection ce bordel c'est pour sa que ma fonction ne marchait pas et que j'ai viré le post sur idhttp erreur ce matin
MERCI sub0 tu es un precieux allié comme toujours !! :D
11/11/2005, 23h25
jmjmjm

En fait sa ne marche pas bien avec WinExec voila la reponse du developeur du site

Citation:

Effectivement, les archives ZIP sont gÃ©nÃ©rÃ©es Ã la demande.

Il faut impÃ©rativement appeler getzip.html, et suivre la redirection
retournÃ©e (comme le font les navigateurs web)...

et j'a itrouvé sa comme explication sur developpez.net :
http://www.developpez.net/forums/vie...hlight=tidhttp
mais c'est du C++ donc si quelqu'un pe m'aider !
MERCI
11/11/2005, 23h51
jmjmjm

Y a t'il un moyen d'effectuer un get http sans idhttp car d'apres la source builder il utilisait MNHTTP car indy renvoit une erreur
12/11/2005, 01h15
Sub0
En fait, c'est comme si tu avais une page html avec le code suivant :
Code:

1 2 3 4 5 6 7 8 <html> <body> <form action="http://www.moviecovers.com/getfilm.html" method="post"> <input type="text" name="idmc"> <input type="submit"> </form> </body> </html>
Tu vois qu'il s'agit d'un formulaire à poster. On poste le nom du film dans le champs de saisie nomé "idmc". Si tu éxécutes cette page html, tu verras qu'il te retourne les infos du film que tu recherches. Autrement dit, il suffit d'utiliser la méthode POST du composant de ton choix et non GET... Perso, j'utilise HttpCli d'ICS. Je ne sais pas si cela te conviendra, en tous les cas, je peux te filer un code qui marche et pas besoin d'installer de compo en prime puisque je le crée dynamiquement : ;)

http://sub0.developpez.com/delphi/http_post.zip

à+

http://sub0.developpez.com/tag.png
Lien tout en bas à gauche de cette fenêtre
12/11/2005, 20h56
jmjmjm

Salut Sub t'as source est nikel sauf que ...
on ne peut la lancer qu'une fois la seconde fois que la boucle est utilisé on obtient

Citation:

Violation d'acces a l'adresse 00403EC0 dans le module 'Projet1.exe'.
Ecriture de l'adresse 00000060

je pense qu'il y a un probleme avec la liberation de la memoire MERCI de me repondre
12/11/2005, 21h07
Sub0
Bizarre, ça fonctionne bien sur mon pc.

Citation:

Envoyé par jmjmjm

la seconde fois que la boucle est utilisé on obtient...

De quelle "boucle" parles-tu ? Ya pas de boucle dans mon code ! :koi:
Si tu l'as modifié, montre moi comment tu as fait.

Essaye toujours en libérant les objets alloués avant de réallouer :
Code:

1 2 3 If (HttpCli1.SendStream <> Nil) Then FreeAndNil(HttpCli1.SendStream); If (HttpCli1.RcvdStream <> Nil) Then FreeAndNil(HttpCli1.RcvdStream); If (HttpCli1 <> Nil) Then FreeAndNil(HttpCli1);
12/11/2005, 21h11
jmjmjm

Erreur de compilation avec tes dernier parametre :

Citation:

If (HttpCli1.SendStream <> Nil) Then FreeAndNil(HttpCli1.SendStream);
If (HttpCli1.RcvdStream <> Nil) Then FreeAndNil(HttpCli1.RcvdStream);

ERREUR /

[Erreur] Unit1.pas(56): Un objet constante ne peut être passé comme paramètre Var

J'ai peut etre mal fait j'ai fait ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Procedure TForm1.FormCreate(Sender: TObject);
Begin
  HttpCli1 := THttpCli.Create(self);
End;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  HttpCli1.SendStream := TMemoryStream.Create;
  HttpCli1.RcvdStream := TMemoryStream.Create;
  HttpCli1.ProxyPort := '80';
  HttpCli1.URL := 'http://www.moviecovers.com/getfilm.html';
  HttpCli1.SendStream.Write('idmc=matrix', 256);
  HttpCli1.SendStream.Position := 0;
  Try
    Try HttpCli1.Post;Except End;
  Finally
    HttpCli1.RcvdStream.Position := 0;
    Memo1.Lines.LoadFromStream(HttpCli1.RcvdStream);
  End;
 If (HttpCli1 <> Nil) Then FreeAndNil(HttpCli1);
 end;

12/11/2005, 21h16
Sub0

Non, simplement tu as ajouté mon code sans tenir compte du reste, en particulier, les directives de compilation...
Dans la démo que je t'ai donné, il ya ceci dans project1.dpr :

Code:

{$V+,B+,X+,T+,P+,H+,J+}

La directive qui concerne ce message est $J+ :

Citation:

Envoyé par [img

http://sub0.developpez.com/tf1.png[/img]]Constantes typées affectables
Activez cette option pour obtenir une compatibilité avec Delphi 1.0. Si cette option est activée, le compilateur autorise les affectations à des constantes typées. Correspond à {$J}.
12/11/2005, 21h21
jmjmjm

Oui bas justement puisque ca yé dans projet1.dpr sa devrait marcher :koi:

Citation:
Envoyé par jmjmjm
J'ai peut etre mal fait j'ai fait ca :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Procedure TForm1.FormCreate(Sender: TObject); Begin HttpCli1 := THttpCli.Create(self); End; procedure TForm1.Button1Click(Sender: TObject); begin HttpCli1.SendStream := TMemoryStream.Create; HttpCli1.RcvdStream := TMemoryStream.Create; HttpCli1.ProxyPort := '80'; HttpCli1.URL := 'http://www.moviecovers.com/getfilm.html'; HttpCli1.SendStream.Write('idmc=matrix', 256); HttpCli1.SendStream.Position := 0; Try Try HttpCli1.Post;Except End; Finally HttpCli1.RcvdStream.Position := 0; Memo1.Lines.LoadFromStream(HttpCli1.RcvdStream); End; If (HttpCli1 <> Nil) Then FreeAndNil(HttpCli1); end;
non, ce code n'est pas bon, puisqu'à chaque fois que tu cliques sur le bouton, l'objet est libéré ! (regarde donc la dernière ligne).
Donc tu le crées au début dans formcreate et tu le supprimes après en cliquant sur le bouton.
Aurais-tu besoin d'un cours sur les objets ?

C'est comme ça qu'il faut faire :

Code:

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
26
27
28
29
30
{----------------------------------------------------------------}
Procedure TForm1.FormCreate(Sender: TObject);
Begin
  HttpCli1 := THttpCli.Create(self);
  HttpCli1.SendStream := TMemoryStream.Create;
  HttpCli1.RcvdStream := TMemoryStream.Create;
End;
 
{----------------------------------------------------------------}
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  HttpCli1.ProxyPort := '80';
  HttpCli1.URL := 'http://www.moviecovers.com/getfilm.html';
  HttpCli1.SendStream.Write('idmc=matrix', 256);
  HttpCli1.SendStream.Position := 0;
  Try
    Try HttpCli1.Post;Except End;
  Finally
    HttpCli1.RcvdStream.Position := 0;
    Memo1.Lines.LoadFromStream(HttpCli1.RcvdStream);
  End;
End;
 
{----------------------------------------------------------------}
Procedure TForm1.FormDestroy(Sender: TObject);
Begin
  If (HttpCli1.SendStream <> Nil) Then HttpCli1.SendStream.Free;
  If (HttpCli1.RcvdStream <> Nil) Then HttpCli1.RcvdStream.Free;
  If (HttpCli1 <> Nil) Then FreeAndNil(HttpCli1);
End;

12/11/2005, 21h56
Sub0

http://sub0.developpez.com/tag.png
Lien tout en bas à gauche de cette fenêtre
12/11/2005, 21h58
jmjmjm

Merci Sub pour le cours sur les objets je vais peut etre y songer en effet désolé mais sa doit pas faire plus d'un an que j'ai commancé Delphi (tres interessant entre parenthèse) je faisais un peux de C avant et de l'openGL
12/11/2005, 22h05
Sub0

oui, possible qu'il te manque quelques bases... Mais bon, tu verras, ce n'est pas très compliqué finalement.
Bon courage, à+