Création d'un body JSON avec TRESTRequest, delphi 10.3

Version imprimable

Bonjour à tous
je dois faire une application en Delphi 10.3 pour faire signer des documents PDF avec Yousign (un site de signature électronique)
J'arrive à faire un GET : l'authentification se passe correctement et je récupère les noms de signataires en format JSON

Il faut maintenant que j'envoie un PDF à signer encodé en 64bits
le body doit comporter 2 valeurs : le nom (name) et le fichier PDF encodé (content)

avec Postman, tout se passe bien
{
"name": "MonFichier.pdf",
"content": "JVBERi0xLjMNJeLjz9MNCjIzMCAwIG9iag08PC9MaW5lYXJpemVkIDEvTCAxMTI1 etc .."

J’utilise les composants TRESTClient, TRESTRequest et TRESTResponse
Le serveur me renvoie l'erreur 400 Bad Request
Je pense que c'est la création de mon JSON à envoyer qui n'est pas correct

voici mon source :
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 26 27 28 29 procedure TFYS_principale.BPostFilesClick(Sender: TObject); var inStream: TStream; outStream: TStream; begin // chargement du fichier PDF dans un stream inStream := TFileStream.Create('c:\testpdf\test.pdf', fmOpenRead); outStream := TStringStream.Create; // encodage en 64 bits TNetEncoding.Base64.Encode(inStream, outStream); outStream.Position := 0; LJSONObject.AddPair('name','MonFichier.pdf'); LJSONObject.AddPair('content', outStream.ToString); MonRESTRequest.AddBody(LJSONObject); MonRESTRequest.Execute; Restrequest_PostFiles.Execute; // ERREUR 400 : bad request ! memo.Text := RESTResponse_PostFiles.JSONText; end;
Si quelqu'un peut m'aider, ça m'avancerait beaucoup

Merci d'avance

outStream.DataString plutot que ToString ?
Confusion entre Restrequest_PostFiles et MonRESTRequest ?
Evitez les objets globaux, je te recommande pour le vrai code d'isoler cela dans un objet TMonClientBidule, pour que le source de la forme ne contiennent pas ce type de code plutôt Modèle que View.

Code tapé sur le forum, alors il y aura surement quelques erreurs, cela vous donne un aperçu d'un code complet et indépendant de la form (suffira juste de faire une fonction à la place pour alimenter memo.Text)

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
procedure TFYS_principale.BPostFilesClick(Sender: TObject);
var
  inStream: TStream;
  outStream: TStream;
  RESTClient: TRESTClient;
  RESTClient: TRESTRequest;
  LJSONObject: TJSONObject;
begin
 
  // chargement du fichier PDF dans un stream
  inStream := TFileStream.Create('c:\testpdf\test.pdf', fmOpenRead);
  try
    outStream := TStringStream.Create;
    try
      // encodage en 64 bits
      TNetEncoding.Base64.Encode(inStream, outStream);
 
     RESTClient := TRESTClient.Create(URL); // URL contient juste https://server/service/
     try
       RESTClient.ContentType := 'application/json; charset=utf-8'; // voir ce qui est nécessaire
 
        RESTRequest := TRESTRequest.Create(nil);
        try
          RESTRequest.Resource := fonction; // optionnel c'est la fonction REST, on a une une adresse https://server/service/fonction
          RESTRequest.Method := TRESTRequestMethod.rmPOST;
 
          RESTRequest.Client := RESTClient;
 
          LJSONObject := TJSONObject.Create();
          try
            LJSONObject.AddPair('name','MonFichier.pdf'); // prévoir un TEncoding.UTF8.Encode
            LJSONObject.AddPair('content', outStream.DataString);
            RESTRequest.AddBody(LJSONObject);
          finally
            LJSONObject.Free();
          end;
 
          RESTRequest.Execute();
          memo.Text := RESTRequest.Response.Content; // ou Request.Response.JSONText
        finally
          RESTRequest.Free();
        end;
      finally
        RESTClient.Free();
      end;
    finally
       outStream.Free();
    end;
  finally
     inStream.Free();
  end;
end;

Suite

Bonjour et merci pour votre aide

je viens d'essayer et c'est toujours pareil

je pense que le problème vient de l'instruction LJSONObject.AddPair('content', outStream.DataString);
j'ai rajouté des showmessage pour suivre la valeur de LJSONObject.ToJson

juste après LJSONObject.AddPair('prenom','marc'); la valeur de LJSONObject.ToJson affiche {"name":"MonFichier.pdf","prenom":"marc"}

mais après le LJSONObject.AddPair('content', outStream.DataString); LJSONObject.ToJson est vide

comment peut on passer une stream à une valeur d'une clé JSON ?

Marc
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 26 27 28 29 try LJSONObject := TJsonObject.Create; VRequest := TJsonValue.Create; outStream.Position := 0; Showmessage('datastring = ' + outStream.DataString); LJSONObject.AddPair('name','MonFichier.pdf'); LJSONObject.AddPair('prenom','marc'); ShowMessage(LJSONObject.ToJson); LJSONObject.AddPair('content', outStream.DataString); ShowMessage(LJSONObject.ToJson); ShowMessage(inttostr(LJSONObject.Count)); RESTRequest_PostFiles.AddBody(LJSONObject); // convert String to JSON //SONObject.Parse(BytesOf(outStream.ToString), 0); // output the JSON to console as String //ShowMessage(LJSONObject.ToString); finally end;

ah oui donc c'est surement le contenu du Base64 qui ne convient pas, ayant récemment utilisé TBase64Encoding j'avais noté qu'il était différent par défaut qu'un encodage par SQL Server par exemple, du coup, j'ai juste passé 0 en paramètre au constructeur pour une ligne infinie (par défaut, il y a une limite par ligne comme dans un DFM)

TBase64Encoding instancié localement à la place du singleton TNetEncoding.Base64 qui est pré-configuré pour les besoins de la VCL

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
procedure TFYS_principale.BPostFilesClick(Sender: TObject);
var
  inStream: TStream;
  outStream: TStream;
  RESTClient: TRESTClient;
  RESTClient: TRESTRequest;
  LJSONObject: TJSONObject;
begin
 
  // chargement du fichier PDF dans un stream
  inStream := TFileStream.Create('c:\testpdf\test.pdf', fmOpenRead);
  try
    outStream := TStringStream.Create;
    try
     RESTClient := TRESTClient.Create(URL); // URL contient juste https://server/service/
     try
       RESTClient.ContentType := 'application/json; charset=utf-8'; // voir ce qui est nécessaire
 
        RESTRequest := TRESTRequest.Create(nil);
        try
          RESTRequest.Resource := fonction; // optionnel c'est la fonction REST, on a une une adresse https://server/service/fonction
          RESTRequest.Method := TRESTRequestMethod.rmPOST;
 
          RESTRequest.Client := RESTClient;
 
          LJSONObject := TJSONObject.Create();
          try
            LJSONObject.AddPair('name','MonFichier.pdf'); // prévoir un TEncoding.UTF8.Encode
 
            inStream.Seek(0, soBeginning);
            with TBase64Encoding.Create(0) do
            try
              if Encode(inStream, outStream) > 0 then
                 LJSONObject.AddPair('content', outStream.DataString);
            finally
              Free();
            end;
 
            RESTRequest.AddBody(LJSONObject);
          finally
            LJSONObject.Free();
          end;
 
          RESTRequest.Execute();
          memo.Text := RESTRequest.Response.Content; // ou Request.Response.JSONText
        finally
          RESTRequest.Free();
        end;
      finally
        RESTClient.Free();
      end;
    finally
       outStream.Free();
    end;
  finally
     inStream.Free();
  end;
end;

dans mon code c'est pour sauvegarder un binaire en base64 dans DB, voici les fonctions concernant l'encodage (sous fonction d'une fonction mère)

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
function EncodeDummyToBase64(AVersion: Word): string;
  var
    Data: TMemoryStream;
    EncodedData: TStringStream;
  begin
    Data := TMemoryStream.Create();
    try
      Data.Write(AVersion, SizeOf(AVersion));
      if AVersion = V1 then
        EncodeDummyV1(Data);
 
      EncodedData := TStringStream.Create();
      try
        Data.Seek(0, soBeginning);
        with TBase64Encoding.Create(0) do
        try
          if Encode(Data, EncodedData) > 0 then
            Result := EncodedData.DataString;
        finally
          Free();
        end;
      finally
        EncodedData.Free();
      end;
    finally
      Data.Free();
    end;
  end;
 
procedure DecodeDummyFromBase64(const ADataEncodedBase64: string);
  var
    EncodedData: TStringStream;
    Data: TMemoryStream;
    Version: Word;
  begin
    EncodedData := TStringStream.Create(ADataEncodedBase64, TEncoding.ANSI);
    try
      Data := TMemoryStream.Create();
      try
        with TBase64Encoding.Create(0) do
        try
          if Decode(EncodedData, Data) > 0 then
          begin
            Data.Seek(0, soBeginning);
            if (Data.Read(Version, SizeOf(V1)) = SizeOf(V1)) then
            begin
              if Version = V1 then
                DecodeDummyV1(Data)
              else if Version = V0 then
                DecodeDummyV0(Data);
            end
          end;
        finally
          Free();
        end;
      finally
        Data.Free();
      end;
    finally
      EncodedData.Free();
    end;
  end;

Suite upload d'un fichier PDF dans un RESTRequest JSON

Merci encore pour vos remarques mais ça ne fonctionne pas

le body du RESTRequest doit ressembler à ça :
{
"name": "MonFichier.pdf",
"content": "JVBERi0xLjMNJeLjz9MNCjIzMCAwIG9iag08PC9MaW5lYXJpemVkIDEvTCAxMTI1MDAvTyAyMzIvRSA3NzUyMS9OIDIvVCAxMTIxMDcvSCBbIDEzNzEgNDg2XT4+DWVuZG9iag0gICAgICAgICAgICAgDQozMDQgMCBvYmoNPDwvRGVjb2RlUGFybXM8PC9Db2x1bW5zIDUvUHJlZGljdG9yIDEyPj4vRmlsdGVyL0ZsYXRlRGVjb2RlL0lEWzxGRUQzRjY5MDY3OTA0OEM4RUE2RUFGQjgyQkZCNzM1Qz48QUUyNTY1RTRDOEUzN0Q0ODhEMkRBRDE2OUZGMjBCRTk+XS9JbmRleFsyMzAgMzMzXS9JbmZvIDIyOSAwIFIvTGVuZ3RoIDI0NS9QcmV2IDExMjEwOC9Sb290IDIzMSAwIFIvU2l6ZSA1NjMvVHlwZS9YUmVmL1dbMSAzIDFdPj5zdHJlYW0NCmje7NI/SgNBFMfxN7O7CcsGIlhFiGwVUiQLiRIbG29gJ6T2T+E9UmmRAyQEEVtPkC4BezsvYRphBWHd951mDrDlNB9+vHlvdmZ3rRE5EivSnqhyp9qdaiq8xBEWrF6R+9jzVtGekac4xhhnXnZTLczxlNmEPMAS//DXm3 ... etc "}

ce qui me coince, c'est comment intégrer dans le body du RESTRequest le contenu d'un PDF converti en BASE64.
j'encode le fichier par le code suivant et ça fonctionne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 var inStream: TFileStream; outStream: TMemoryStream; etc .. // chargement du fichier PDF dans un stream inStream := TFileStream.Create('c:\testpdf\test.pdf', fmOpenRead); outStream := TMemoryStream.Create; // encodage en 64 bits TNetEncoding.Base64.Encode(inStream, outStream);
j'obtiens bien dans le outstream mon PDF Encodé en 64Bits.

ce que je n'arrive pas à faire, c'est l'inclure dans un TJSONObject

J'ai essayé :

Code:

LJSONObject.AddPair('content', outStream.DataString)

mais visiblement ça découpe la chaine de caractères

Merci encore pour vos réponses

:roll: Vous n'avez pas lu ma réponse !
Vous ne faites que répéter ce qui a déjà été écrit :

Citation:

Envoyé par ShaiLeTroll

ah oui donc c'est surement le contenu du Base64 qui ne convient pas, ayant récemment utilisé TBase64Encoding j'avais noté qu'il était différent par défaut qu'un encodage par SQL Server par exemple, du coup, j'ai juste passé 0 en paramètre au constructeur pour une ligne infinie (par défaut, il y a une limite par ligne comme dans un DFM)

Nous faisons l'effort de fournir un code complet, nous attendons que vous preniez le temps pour le lire, l'étudier et le comprendre, c'est un minimum ! :aie:
Vous êtes tout de même sur la bonne piste, nous sommes surpris de voir que vous ne faites pas la démarche de chercher un peu plus la réponse qui est sous votre nez :weird:

:scarymov:
Citation:
Envoyé par ShaiLeTroll
TBase64Encoding instancié localement à la place du singleton TNetEncoding.Base64 qui est pré-configuré pour les besoins de la VCL
Code:

1 2 3 4 5 6 7 8 9 10 11 inStream.Seek(0, soBeginning); with TBase64Encoding.Create(0) do try if Encode(inStream, outStream) > 0 then LJSONObject.AddPair('content', outStream.DataString); finally Free(); end;

27/11/2020, 17h26
marc85

Suite upload d'un fichier PDF dans un RESTRequest JSON

Je m'excuse platement ...
ça fonctionne parfaitement maintenant
la prochaine fois, promis, je lirai la réponse avec attention ...:oops:
Merci encore