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

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

[Andnotor]

A toi de savoir comment est codé ton script

php:

Code :

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

echo $_POST['mavar1'];

Delphi:

Code :

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

Ts.Add('mavar1=' +Edit1.Text);

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

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

1
2
 
SSLOptions.KeyFile := '????';

[shell13010]

salut,

je pense qu'il faut que tu generes une clée donc essaye de voir sur se lien ici

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

[jeepibmx]

comment poster dans ce cas ? je suis toujours refusé

[Reisubar]

Acceptes tu le certificat serveur dans OnVerifyPeer ?