Discussion :

[DevBel]

Code :

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

1
2
3
4
5
6
7
procedure Tform1.setcookies;
var j:integer;
begin
  count:=IdCookieManager1.CookieCollection.count;
  for j:=1 to count do
    IdHTTP1.Request.RawHeaders.Add('Cookie'+IdHTTP1.Request.RawHeaders.NameValueSeparator+IdCookieManager1.CookieCollection.Items[j-1].CookieText);
end;

[DevBel]

et pour m'identifié je fait la méme chose

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
procedure TForm1.ConnectClick(Sender: TObject);
var
  i:integer;
begin
 
  loginurl:='http://212.100.209.7/security/Login.aspx?culture=ar';
  Params := TStringList.Create;
  try
    cookies:=tstringlist.Create;
 
      html:=idhttp1.Get(loginurl);
 
      count:=IdCookieManager1.CookieCollection.count;
      for i:=1 to count do
         cookies.Add(IdCookieManager1.CookieCollection.Items[i-1].CookieText);
 
      html:=idhttp1.Get(loginUrl);
 
      poz:=pos('name="__VIEWSTATE" value="',html);
      delete(html,1,poz+25);
      viewstate:=copy(html,1,pos('"',html)-1);
      Params.Values['__VIEWSTATE'] := viewstate;
      Params.Values['TxtUsername'] := '------';
      Params.Values['TxtPassword'] := '******';
      Params.Values['BtnLogin'] := 'Login';
 
      setCookies;
      IdHTTP1.HandleRedirects:=false;
      try
        HTML := IdHTTP1.Post(loginurl, Params);
 
      except on e: EIdHTTPProtocolException do
         begin
           if e.ReplyErrorCode<>302 then
             raise e;
 
           count:=IdCookieManager1.CookieCollection.count;
           for i:=1 to count do
             cookies.Add(IdCookieManager1.CookieCollection.Items[i-1].CookieText);
 
           setcookies;
           html:=idhttp1.Get(IdHTTP1.Response.Location);
           memo1.Lines.add(IdHTTP1.Get('http://212.100.209.7/Security/MainPage.aspx'));
         end;
      end;
 
     except on e: EIdHTTPProtocolException do
         begin
           memo2.lines.add(idHTTP1.response.ResponseText);
           memo3.lines.add(e.ErrorMessage);
         end;
 
      end;
 
      Params.Free;

c pas encore propres mais c juste un test

[DevBel]

Merci beaucoup M Paul

[Paul TOTH]

bon y'a une grande confusion dans tout cela

notamment, et je me répète, tu fais un POST puis un GET, pour moi ça n'a pas de sens, c'est pas un SEND et un RECV

[DevBel]

Code :

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

1
2
3
4
5
6
7
 
try
   memo1.Lines.add(IdHTTP1.Post(loginurl, Params));
    {
     html := IdHTTP1.Post(loginurl, Params);
     memo1.Lines.add(IdHTTP1.Get(loginurl));
     }

violation d'accés a l'adresse 00d14def

[DevBel]

je crois que j'ai trouvé l'erreur.

viewstate n'est pas le méme. il change.

faudra que je trouve d'autre solution pour extraire ce variable.

en tt cas merci paul. t'es

[Paul TOTH]

comme je le disais, je ne connais pas Indy, on dirait qu'il a besoin d'un TStringStream

[DevBel]

Yahooooooooooooo
j'ai réussi. Merçi paul.
je peut t'envoyer le source si tu ve

[Paul TOTH]

Yahooooooooooooo
j'ai réussi. Merçi paul.
je peut t'envoyer le source si tu ve

non ça va aller, merci mais si tu es vraiment reconnaissant, tu peux faire décoller mon compte Paypal qui plafonne à 6,08€

Sinon je ne répond pas aux messages privés, mais pour répondre à ta question, que le serveur renvoie du XML, du jpeg ou du HTML, cela importe peu, c'est toujours un transfert de fichier en HTTP; tu trouveras simplement dans l'entête le type mime du document dans Content-Type et du XML dans le contenu.