Discussion :

[jeepibmx]

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 :

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
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;

[skywaukers]

Bonjour,

obtiens-tu un message d'erreur ?

@++
Dany

[jeepibmx]

oui could not load certificate

[jeepibmx]

bon j'ai réussi à faire loader le certificat et maintenant j'ai Connection Closed Gracefully..

[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 ...

[jeepibmx]

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 :

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

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..