Discussion :

[Alferox]

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

[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

[Alferox]

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 :

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

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

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
{
  "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 :

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

[Alferox]

J'ai finalement réussi. Si ca peut aider quelqu'un, voila le 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
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;