Adobe Sign et Delphi

Version imprimable

31/08/2023, 14h35
Alferox

Adobe Sign et Delphi

Bonjour à tous,

j'ai développé un petit CRM sous Delphi pour réaliser mes devis. Le programme me sort le devis au format PDF. J'ai souscrit un abonnement Adobe Sign et j'aimerai pouvoir envoyer mon devis directement pour signature via le CRM. Sur la FAQ adobe je ne trouve rien, et sur le net ca n'est pas mieux...

Quelqu'un a-t-il déjà fait cela?

Voila les infos Adobe : https://secure.na1.echosign.com/publ...is/getBaseUris

Mais je suis plutôt novice sur Delphi et je ne sais pas quel Object utiliser ni les commandes à envoyer à Adobe.

Dans l'idée, je vois :
Authentification OAuth2, puis envois du PDF et du mail client. Le PDF se cale sur le modèle créé dans Adobe Sign et l'envois au client automatiquement.

Merci
31/08/2023, 15h01
ShaiLeTroll

Si c'est un WebService, c'est un TRESTClient + TOAuth2Authenticator

1- TRESTRequest sur le endoint token, extraire le token du json
2- TRESTRequest sur le WS avec TOAuth2Authenticator.AccessToken contenant le token

Bonjour à tous, merci pour les infos, ca fonctionne bien.
J'ai réussi à m'identifier. Ensuite j'envois mon PDF de cette manière:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm4.Button1Click(Sender: TObject);
var
  jValue:TJSONValue;
begin
  RESTClient1.BaseURL := 'https://api.eu1.adobesign.com/api/rest/v6/transientDocuments';
  RESTRequest1.Params.AddItem('File', 'D:\Temp\test.pdf', pkFILE, [poDoNotEncode]);
 
  RESTRequest1.Execute;
  jValue:=RESTResponse1.JSONValue;
  MemoContent.Text:= jValue.ToString;
  MemoContent.Text := AnsiReplaceStr(MemoContent.Text, '{"transientDocumentId":"', '');
  MemoContent.Text := AnsiReplaceStr(MemoContent.Text, '"}', '');
end;

Je récupère le transientDocumentId avec RESTReponse mais ensuite je bute. Une fois le PDF envoyé chez adobe je dois créer l'Agreement:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{
  "fileInfos": [
    {
      "transientDocumentId": "xxXXXXXxxxxxxxx etc....."
    }
  ],
  "name": "Vente",
  "participantSetsInfo": [
    {
      "order": 1,
      "role": "SIGNER",
      "memberInfos": [
        {
          "email": "mail@mail.com"
        }
      ]
    }
  ],
  "signatureType": "ESIGN",
  "state": "IN_PROCESS"
}

J'ai essayé de cette maniè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
 
RESTClient1.BaseURL := 'https://api.na1.adobesign.com:443/api/rest/v6/agreements';
RESTRequest1.AddBody(
  '{'+
  '"fileInfos": ['+
  '  {'+
  '    "transientDocumentId": "xxXXXXXxxxxxxxx etc....."'+
  '  }'+
  '],'+
  '"name": "Vente",'+
  '"participantSetsInfo": ['+
  '  {'+
  '    "order": 1,'+
  '    "role": "SIGNER",'+
  '    "memberInfos": ['+
  '      {'+
  '        "email": "mail@mail.com"'+
  '      }'+
  '    ]'+
  '  }'+
  '],'+
  '"signatureType": "ESIGN",'+
  '"state": "IN_PROCESS"'+
  '}');
  RESTRequest1.Execute;

Sur le site d'adobe : https://secure.na1.adobesign.com/pub...reateAgreement
tout ce passe bien quand je copie colle mon AgreementInfo mais la impossible j'ai un message d'erreur.

Si quelqu'un a une idée. Merci :)

J'ai finalement réussi. Si ca peut aider quelqu'un, voila le 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
26
27
 
  RESTClient1.BaseURL := 'https://api.na1.adobesign.com:443/api/rest/v6/agreements';
  RESTRequest1.AddParameter('Content-Type', 'application/json', TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]);
  RESTRequest1.Method := TRESTRequestMethod.rmPOST;
  RESTRequest1.AddBody(
       '{'+
  '"fileInfos": ['+
  '  {'+
  '    "transientDocumentId": "xxXXXXXxxxxxxxx etc....."'+
  '  }'+
  '],'+
  '"name": "Vente",'+
  '"participantSetsInfo": ['+
  '  {'+
  '    "order": 1,'+
  '    "role": "SIGNER",'+
  '    "memberInfos": ['+
  '      {'+
  '        "email": "mail@mail.com"'+
  '      }'+
  '    ]'+
  '  }'+
  '],'+
  '"signatureType": "ESIGN",'+
  '"state": "IN_PROCESS"'+
  '}', TRESTContentType.ctAPPLICATION_JSON);
  RESTRequest1.Execute;