POST sur un HTTPS

Version imprimable

POST sur un HTTPS

Bonjour, j'essai de poster un fichier sur un serveur en https mais je n'y arrive pas. J'ai chercher sur internet et dans la faq mais je n'y arrive pas.

Voici mon boute de code..

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
var
 Fs : TFileStream;
begin
  Fs := TFileStream.Create('c:\example.fdp',fmCreate);
 
  With IdSSLIOHandlerSocketOpenSSL1 do
  Begin
    //SSLOptions.RootCertFile := 'RootCert.cer';
    //SSLOptions.CertFile := 'Cert.cer';
    Port := 443;
  end;
 
  with IdHTTP1 do
  try
      Request.Username := 'USER';
      Request.Password := 'PASS';
      try
        Post('https://...',Fs);
      except
        On e : Exception do
          MessageDlg(Format('Erreur : %s',[e.Message]), mtInformation, [mbOK], 0);
      end;
  finally
      Free;
  end;

24/12/2008, 08h06
skywaukers

Bonjour,

obtiens-tu un message d'erreur ?

@++
Dany
08/01/2009, 15h28
jeepibmx

oui could not load certificate
12/03/2009, 15h46
jeepibmx

bon j'ai réussi à faire loader le certificat et maintenant j'ai Connection Closed Gracefully..
12/03/2009, 17h13
ShaiLeTroll

Oui, c'est très con la EIdConnClosedGracefully, tu peux considérer que c'est une exception qui indique que tout est bon, c'est bizarre ... je ne l'ai eu surtout qu'avec le TIdRexec ...

J'ai fait ce code mais pour un GET, mais je n'ai pas EIdConnClosedGracefully dans ce cas

EDIT : je me demande si il n'y a pas une différence de comportement entre des composants posé sur une Form ou dans un DataModule, et des composants créés à la volée sans Owner, ... c'est par exemple le cas avec le TXMLDocument ...

Je réussi à faire un GET..

Mais lorsque j'arrive pour faire un post, on a besoin du root.crt, cert.crt et key.crt mais je ne sais pas où trouver cette fameuse key.crt..
Code:

1 2 3 4 5 6 7 8 9 10 with IdSSLIOHandlerSocketOpenSSL1 do begin SSLOptions.RootCertFile := 'root.crt'; SSLOptions.CertFile := 'cert.crt'; SSLOptions.KeyFile := ???; Host := sUrl; Port := 443; end;
Lorsque j'essaye d'entrer quelque chose dans le KeyFile, j'obtiens cet erreur.. EIdOSSLLoadingKeyError: Could not load key, check password..

26/03/2009, 09h01
randriano

La FAQ ne dit que ceci: http://delphi.developpez.com/faq/?pa...ndyvaliderpost

Je suis à la recherche de comment vraiment soumettre un formulaire. De quoi on tire les couples Param=Valeur?
26/03/2009, 09h08
Andnotor

A toi de savoir comment est codé ton script :koi:

php:

Code:

echo $_POST['mavar1'];

Delphi:

Code:

Ts.Add('mavar1=' +Edit1.Text);
26/03/2009, 20h27
jeepibmx
Je suis capable de faire un PUT et un GET mais impossible de faire un POST avec SSL.

Personne ne semble connaitre la réponse à cette question :
Où trouvé la fameuse clé ? (KeyFile)
Code:

1 2 SSLOptions.KeyFile := '????';
26/03/2009, 21h56
shell13010

salut,

je pense qu'il faut que tu generes une clée donc essaye de voir sur se lien ici
28/03/2009, 01h09
Reisubar

Je ne comprends pas ou est ton problème. Par défaut, ce n'est pas au serveur d'authentifier le client, mais au client de vérifier l'identité du serveur. Par conséquent, inutile de renseigner CertFile, CipherList, KeyFile et tout le reste. Ces propriétés servent à exposer les certificats du côté serveur de l'application, pas cliente.
07/04/2009, 22h53
jeepibmx

comment poster dans ce cas ? je suis toujours refusé
08/04/2009, 11h02
Reisubar

Acceptes tu le certificat serveur dans OnVerifyPeer ?