Discussion :

[Greldinard]

Bonjour à tous,

Ma demande est un peu particulière, je ne sais pas si je la place au bon endroit.

Certains d'entre-vous ont-ils déjà créé un sujet Redmine depuis une application Delphi via REST API ?

J'ai vu cet exemple que j'ai essayé de mettre en œuvre https://www.redmine.org/projects/red...pi_with_delphi

La procédure GetIssue fonctionne bien mais impossible de faire fonctionner AddIssue. J'obtiens toujours une exception du composant Indy eHttpException Internal Server Error.
J'ai essayé en envoyant un fichier JSON, même problème.

L'analyse du fichier de LOG sur mon serveur Redmine me retourne les informations suivantes, lors d'une tentative via fichier XML :

REXML:: ParseException (#<REXML:: ParseException: malformed XML: missing tag start
Line: 1
Position: 332
Last 80 unconsumed characters:
< ? x m l v e r s i o n = " 1 . 0 " e n c o d i n g = " U T F - 8 " ? > < i s>
/usr/lib/ruby/1.8/rexml/parsers/baseparser.rb:356:in `pull'
/usr/lib/ruby/1.8/rexml/parsers/treeparser.rb:22:in `parse'
...

Merci d'avance

[SergioMaster]

Bonjour,

dès que je vois REST API je pense : essayez avec REST Debugger (outils/débogueur REST), en plus il permet de créer tous les composants nécessaires.
Maintenant, peut-être que votre version de Delpi n'a pas ces composants TRESTxxxx

[Greldinard]

Merci infiniment SergioMaster.

Tout d’abord mon programme était sous Delphi XE3 donc sans l'outil REST Debugger que je ne connaissais pas. Mais j'ai utilisé une autre version de Delphi pour le découvrir.
C'est impeccable et cela m'a permis de vérifier la validité de mes requêtes XML et JSON.

Bref, j'ai vu que mon problème ne venait pas d’où je pensais (je suis butté aussi) mais surement dans l'utilisation du composant Overbyte ICS.

Donc au lieu de persister avec ce composant compliqué (pour moi) j'ai écrit la petite procédure ci-dessous avec un composant TidHtttp et cela fonctionne impeccable

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  sResponse: String;
  fsParams: TFileStream;
 
begin
  fsParams := TFileStream.Create('.\TOTO.xml', fmOpenRead or fmShareDenyWrite);
  try
    IdHTTP.Request.ContentType := 'text/xml';
    sResponse := IdHTTP.Post('http://X.X.X.X/redmine2/issues.xml?key='+apiAccessKey, fsParams);
    ShowMessage(sResponse);
  except
    on E: Exception do
    ShowMessage('Erreur pendant le POST: ' + E.Message);
  end;

Merci pour ton coup de pouce.