Discussion :

[Manusm]

Bonjour,

je sais qu'il y a des déjà beaucoup d'aide sur les API REST et Lazarus mais je n'arrive pas à faire un POST avec l'api Create disponible sur le logiciel VTiger... Cette Api permet de créer un "enregistrement" dans un module défini.

J'arrive à le faire via l'outil Postman, j'ajoute bien une tâche dans vtiger mais impossible avec lazarus....



l'API Create de Vtiger est expliquée ici :



Voici le code que j'ai tenté sous lazarus mais sans succès...

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
 
procedure TFrmMain.TlbTestClick(Sender: TObject);
var
    Client: TFPHttpClient;
    ApiCreate : String;
 
begin
     ApiCreate := 'https://gelis.od2.vtiger.com/restapi/v1/vtiger/default/create?elementType=Calendar?element=';
     Client := TFPHttpClient.Create(nil);
     Client.AddHeader('User-Agent','Mozilla/5.0 (compatible; fpweb)');
     Client.AddHeader('Content-Type','application/json; charset=UTF-8');
     Client.AddHeader('Accept', 'application/json');
 
     Client.AllowRedirect := true;
     Client.UserName:='XXXXXXXX';
     Client.Password:='XXXXXX';
 
     //Dans le TMemo (MemRes) j'ai les données JSON :
     //{"subject": "Test Ecriture API","assigned_user_id": "19x6",
     //"date_start": "2021-05-22","time_end": "","time_start": "07:00:00",
     //"due_date": "2021-05-22","recurringtype": "","parent_id": "5x23628","contact_id": "",
     //"taskstatus": "Completed","eventstatus": "","taskpriority": "High",
     //"sendnotification": "0","activitytype": "Task","duration_hours": "2","visibility": "Private",
     //"duration_minutes": "0","location": "","notime": "0","created_user_id": "19x6",
     //"source": "CRM","starred": "0","tags": "","record_currency_id": "","record_conversion_rate": "",
     //"reminder_time": "","description": "","isclosed": "1","record_currency_symbol": null}
 
     try
        try
           client.Post(APICREATE+MemRes.Lines.Text);
           showmessage('Response Code is ' + inttostr(Client.ResponseStatusCode) + ' - ' + client.ResponseStatusText);   // better be 200
        except on E:Exception do
                showmessage('Something bad happened : ' + E.Message);
        end;
    finally
        Client.RequestBody.Free;
        Client.Free;
    end;

je ne sais pas comment passer les paramètres "elementType" et "element", je pense que le problème vient de là mais je ne suis absolument pas certain...

Merci

[Andnotor]

Dans Postman, tu as la partie "Authorization" définie que tu ne fais pas dans ton code.

D'après la doc, une première requête est nécessaire pour récupérer le token d'accès. Puis une deuxième pour l'ID de session (avec en paramètre ce token + l'ACCESSKEY chiffrés en md5) et seulement là tu es prêt à dialoguer.

Ne pas oublier non plus d'encoder la donnée.

Enfin en https, il doit manquer un SSL handler.

[Manusm]

Je vous remercie pour votre réponse

Cette partie "Authorization" je pensais que ce morceau de code réglait le problème :

Code :

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

1
2
3
 
     Client.UserName:='XXXXXXXX';
     Client.Password:='XXXXXX';

En fait, j'arrive à lire sans souci en utilisant ces deux lignes pour me connecter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
http := TFPHTTPClient.Create(nil);
     try
        // Connection à l'API REST
        http.UserName:='XXXXXXXXXXXX';
        http.Password:='XXXXXXXXXXXXXX';
 
 
        //Récupération du nombre de comptes
        responseData := http.get(LireSQLCountVTiger(table));   
........

et la récupération des données fonctionne, donc je me suis dit que la partie authentification était bonne.

Quand vous parlez d'encodage des données, c'est en JSON ? Ou c'est un autre encodage ? Je suis désolé je ne suis vraiment pas bon sur ce sujet et je suis vraiment bloqué

J'ai essayé d'adapter ce code http://melawanlupacode.blogspot.com/...w-lazarus.html mais je me rend compte dans l'exemple qu'il n'y a pas d'authentification du tout donc il doit certainement manquer autre chose...

Merci

[Manusm]

en fait j'ai l'impression que la partie "element" de l'API n'est pas traitée :

[Andnotor]

En fait, j'arrive à lire sans souci en utilisant ces deux lignes pour me connecter

Et bien ça ne devrait pas sinon le jeton n'a aucun intérêt. Son but étant de remplacer le couple "utilisateur/mot de passe" par une autre méthode d'authentification à durée limitée (token avec expireTime).

en fait j'ai l'impression que la partie "element" de l'API n'est pas traitée

Je n'avais pas fait attention mais la chaîne est fausse : 'https://gelis.od2.vtiger.com/restapi/v1/vtiger/default/create?elementType=Calendar&element='.

Mais ça n'empêche que le JSON doit être encoder. Tous les caractères non ASCII (plus quelques autres) doivent être convertis en leur représentation héxa (ex. espace = %20).

[Manusm]

Ok, oui exact j'avais changé le caractère par un & et je viens de faire l'encodage

avez-vous une idée du code pour avoir la bonne authentification ? quelles méthodes dois-je appeler sur l'objet TFpHttpClient ?

Encore merci

[Manusm]

Bon j'ai enfin réussi

il me manquait juste au final le bon encodage de la chaine de caractères, j'ai utilisé la fonction "EncodeUrl" de Synapse et tout fonctionne.

Le UserName et Password suffisent pour se connecter.

Attention, quand je parle de password, c'est la clé d'accès fournie sur le profil de l'utilisateur dans VTiger, donc je pense que vous parliez de cette clé et non du mot de passe standard de l'utilisateur pour se connecter sur son compte.

Merci beaucoup AndNotor vous m'avez vraiment bien aidé

[Andnotor]

C'est au site de limiter les endpoints accessibles/utilisables et par quelle méthode. Sans être un pro des web services, le principe vtiger me surprend un peu.

Pense aussi que les url sont limitées en taille. Passer le JSON dans le body serait plus judicieux.

[Manusm]

ok merci, je vais regarder ça