Exécuter une requête http avec TStringStream

Version imprimable

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:

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

Citation:

Envoyé par 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:

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:

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;

28/11/2017, 10h02
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
28/11/2017, 16h47
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
28/11/2017, 17h12
SergioMaster

Citation:

Envoyé par solo190

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

non, vous nous avez indiqué

Citation:

Envoyé par solo190

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

Citation:

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