Discussion :

[vedge2000]

Bonjour,

Je voudrais ajouter un fichier dans un JSON comme par exemple par exemple un PDF ou JPG, PNG,... Encodé de manière standard.

Je n'ai actuellement rien trouvé

Ex

Code :

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

1
2
3
4
5
6
 
  a:= TJSONArray.Create;
  o:=TJSONObject.Create;
  o.AddPair('nom_fichier', 't:\Temp\abc.pdf');
  o.AddPair('data', LE_FICHIER_ICI_ENCODE);
  a.AddElement(o);

Est-ce que quelqu'un pourrait m'aider?

J'utilise D10.4.2.

[ALWEBER]

En fait très simple
Tu charges un composant avec ta data, tu sérialise cette data en utilisant les fonctions delphi WriteComponent et autres.
Tu obtiens un fichier texte ascii que tu peux inclure dans ton ficher JSON
et tu fais l'opération inverse pour régénérer ta data
Je vais te préparer un petit exemple.
C'est de cette manière que je travaille avec DataSnap

[pprem]

jette un coup d'oeil aux conventions en base64 (idéal car existant aussi sur les langages côté serveur) : http://docwiki.embarcadero.com/Libra...Base64Encoding

[vedge2000]

jette un coup d'oeil aux conventions en base64 (idéal car existant aussi sur les langages côté serveur) : http://docwiki.embarcadero.com/Libra...Base64Encoding

Salut,

En effet j'ai trouvé qqch un peu par hasard et comme tu le signales compatible côté client

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
26
27
28
29
30
31
32
33
34
35
36
 
var
  ImagePath: string;
  JsonObject: TJSONObject;
  inStream, outStream: TStream;
  StrList: TStrings;
  TempStream : TMemoryStream;
Begin
  TempStream := TMemoryStream.Create;
  ImagePath:='d:\test.jpg';
  inStream := TFileStream.Create(ImagePath, fmOpenRead);
  try
    outStream := TFileStream.Create('final_file', fmCreate);
    JsonObject := TJSONObject.Create;
    try
      TNetEncoding.Base64.Encode(inStream, outStream);
      outStream.Position:=0;
      TempStream.LoadFromStream(outStream);
      // dans un fichier
      outStream.Position:=0;
      TempStream.SaveToFile('d:\test.json');
 
      // dans le mémo
      outStream.Position:=0;
      Memo1.Lines.LoadFromStream(outStream);
      JsonObject.AddPair('data', Memo1.Lines.Text);
 
    finally
      TempStream.Free;
      outStream.Free;
      JsonObject.DisposeOf;
    end;
  finally
    inStream.Free;
  end;
end;

Et on peut tester ici le fichier encodé pour le décoder ...

https://base64.guru/converter/decode/file

Merci pour tout


Edit :
J'utilise cela pour un TMemoryStream (une image eb blob)

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Function StreamToBase64(inStream : TMemoryStream):String;
 
// https://base64.guru/converter/decode/image
function StreamToString(aStream: TStream): string;
var
  SS: TStringStream;
begin
  if aStream <> nil then
  begin
    SS := TStringStream.Create('');
    try
      SS.CopyFrom(aStream, 0);  // No need to position at 0 nor provide size
      Result := SS.DataString;
    finally
      SS.Free;
    end;
  end else
  begin
    Result := '';
  end;
end;
 
var
  outStream: TStream;
  encoding:TBase64Encoding;
Begin
  outStream := TFileStream.Create('final_file', fmCreate);
  try
    encoding := TBase64Encoding.Create(0);
    try
      encoding.Encode(inStream, outStream);
    finally
      encoding.Free;
    end;
    outStream.Position:=0;
    Result := StreamToString(outStream);
  finally
    outStream.Free;
  end;
End;

Cela fonctionne parfaitement...

[ALWEBER]

Voici un exemple pour sérialiser une donnée binaire inspirée des outils delphi fmx liés au mesh

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
var
  MS1,MS2 : TMemoryStream ;
  b1 : byte ;
  arb1 : array [0..1] of byte ;
  st1 : string ;
  i1 : integer ;
begin
  // Codage
  MS1 := TMemoryStream.Create ;
  MS1.LoadFromFile('W1.PDF');
  MS2 := TMemoryStream.Create ;
  MS2.SetSize(MS2.Size*2);
  MS1.Position := 0 ;
  for i1 := 1 to MS1.Size do
  begin
    ms1.Read(b1,1);
    st1 := intToHex (b1,2) ;
    arb1[0] := ord(st1[1]) ;
    arb1[1] := ord(st1[2]) ;
    ms2.Write(arb1,2) ;
  end;
  MS2.SaveToFile('W1.TXT');
  MS2.Free ;
  MS1.Free;
  // décodage
  MS1 := TMemoryStream.Create ;
  MS1.LoadFromFile('W1.TXT');
  MS2 := TMemoryStream.Create ;
  MS2.SetSize(MS2.Size div 2);
  MS1.Position := 0 ;
  for i1 := 1 to MS1.Size do
  begin
    ms1.Read(arb1,2) ;
    st1 := '$'+chr(arb1[0])+chr(arb1[1]) ;
    b1 := st1.ToInteger ;
    ms2.Write(b1,1);
  end;
  MS2.SaveToFile('W2.PDF');
  MS2.Free ;
  MS1.Free;
end;

[ShaiLeTroll]

Concernant TNetEncoding.Base64, si les retours chariot ajouté par défaut pour faire des lignes de 76 chars comme dans ce sujet, on peut instancier un TBase64Encoding en indiquant 0 comme paramètre à CharsPerLine Création d'un body JSON avec TRESTRequest, delphi 10.3: TRESTClient+TRESTRequest+TJSONObject+TBase64Encoding.
On ne sait jamais selon le client si les CRLF peuvent poser problème sur une chaine Base64 au sein de la chaine JSON

[vedge2000]

Concernant TNetEncoding.Base64, si les retours chariot ajouté par défaut pour faire des lignes de 76 chars comme dans ce sujet, on peut instancier un TBase64Encoding en indiquant 0 comme paramètre à CharsPerLine Création d'un body JSON avec TRESTRequest, delphi 10.3: TRESTClient+TRESTRequest+TJSONObject+TBase64Encoding.
On ne sait jamais selon le client si les CRLF peuvent poser problème sur une chaine Base64 au sein de la chaine JSON

En effet, c'est ce que j'ai eu. Le code a été modifié dans la 2ème partie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Var
  encoding:TBase64Encoding;
...

    encoding := TBase64Encoding.Create(0);
    try
      encoding.Encode(inStream, outStream);
    finally
      encoding.Free;
    end;

Merci pour tout.