Discussion :

[solo190]

bonjour a tout et a toutes
j'utilise delphi7 pour executer une requette https .
etant debutant j'ai beaucoup de difficulté car le bous de code que j'ai trouvé comme exemple me genere une erreur .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
   server:TIdHttp;
  Parameters,response:TStringStream;
begin
  response := TStringStream.Create;  // erreur sur cette ligne pas assez de paramètre originaux.
  Parameters := TStringSTream.create(UTF8String('param1=Value1&param2=????/???&param3=Value3'),TEncoding.UTF8);
  Server.Post(TIdURI.URLEncode('http://www.example.com/page.php'),Parameters,response);
 
end;
 
end.

je pense que cette erreur doit etre lie a un espace de nom mais je ne sais pas lequel.
Merci de votre aide

[exyacc]

bonjour a tout et a toutes
j'utilise delphi7 pour executer une requette https .
etant debutant j'ai beaucoup de difficulté car le bous de code que j'ai trouvé comme exemple me genere une erreur .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
   server:TIdHttp;
  Parameters,response:TStringStream;
begin
  response := TStringStream.Create;  // erreur sur cette ligne pas assez de paramètre originaux.
  Parameters := TStringSTream.create(UTF8String('param1=Value1&param2=????/???&param3=Value3'),TEncoding.UTF8);
  Server.Post(TIdURI.URLEncode('http://www.example.com/page.php'),Parameters,response);
 
end;
 
end.

je pense que cette erreur doit etre lie a un espace de nom mais je ne sais pas lequel.
Merci de votre aide

salut
et en faisant quelque chose comme ça ?

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
procedure TForm1.button1Click(sender: Tobject);;
var  lHTTP : TIdHTTP;
     lParamList : TStringList;
     reponse : string;
begin
  lParamList := TStringList.Create;
  lParamList.Add('param1='+'value1');
  lParamList.Add('param2='+'value2');
  lParamList.Add('param3='+'value3');
  lHTTP := TIdHTTP.Create(nil);
  lHTTP.HTTPOptions := lHTTP.HTTPOptions - [hoForceEncodeParams];
  lHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
  try
    reponse := lHTTP.Post('http://www.example.com/page.php', lParamList);
   showmessage(reponse);
  finally
    FreeAndNil(lHTTP);
    FreeAndNil(lParamList);
  end;
end;

[ShaiLeTroll]

TEncoding.UTF8 ce n'est pas présent dans Delphi 7
Il a du apparaitre avec Delphi 2009 (version 12)

Attention, la version de Indy est souvent différente en Delphi 7 souvent accompagné d'un 9 alors qu'en XE et plus c'est plutôt un 10

[solo190]

Merci a vous,
comme je vous l'ai di je ne fais pas du delphi, j'ai des API que je met a disposition de mes clients SMS et il y'a l'un d'eux qui doit l'integrer sur delphi et je souhaite lui donner un coup de main. s'il vous plait qu el est le moyen le plus facile pour executer une requette https en delphi 7. par ou chercher.
Merci d'avance

[SergioMaster]

comme je vous l'ai di je ne fais pas du delphi,

non, vous nous avez indiqué

j'utilise delphi7 pour executer une requette https .

de plus pour le bout de code que vous nous avez fourni, c'est de l'http et non du https incluant l'utilisation d'un composant SSL supplémentaire

il y'a l'un d'eux qui doit l'intégrer sur delphi et je souhaite lui donner un coup de main.

la meilleure chose à faire serait déjà de lui montrer les différents codes exemples fournis avec Indy ou qui peuvent se retrouver sur divers sites
par exemple https://github.com/rlove/Indy-SSL-Examples

[Edit] un dernier point serait de tenter une mise à jour des composants indy (entres autres pour avoir une sécurité au niveau SSL) entre ce qui est proposé dans les différentes versions de Delphi et les composants Indy à jour il y a de nombreuses différences, comme l'a souligné ShaiLeTroll on a affaire à des versions différentes voir leur site http://www.indyproject.org/Sockets/w...Wizard.EN.aspx cela permet aussi de trouver les liens vers toutes les démos/manuels