Equivalent Delphi 7 du MultipartFormDataContent

**popo** · 13/12/2016, 11h57

Bonjour,

Je dois appeler une API pour déposer des documents mais le code d'exemple est en C# et je voulais éviter de faire une DLL à appeler en COM depuis Delphi.

Je comptais remplacer
FileStream par TFileStream
HttpClient par IXMLHttpRequest
PostAsync sur webclient par une gestion de thread classique

Mais je n'ai aucune idée de l'objet Delphi 7 à utiliser pour le MultipartFormDataContent
Edit : à priori, je ne trouve pas non plus d'équivalent pour StreamContent.

Voici le code C#

Code C# :

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
43
44
45
46
47
48
49
50
using (FileStream fileStream = new FileStream(fichier, FileMode.Open, FileAccess.Read, FileShare.Read, BufferSize, useAsync: false))
{
    /* Create a stream content for the file */
    StreamContent content = new StreamContent(fileStream, BufferSize);
 
    // Create Multipart form data content, add our submitter data and our stream content
    MultipartFormDataContent formData = new MultipartFormDataContent();
    string d = DateTime.Now.ToString("yyyyMMddHHmmss");
    formData.Add(new StringContent(d), "t"); /* date de l'envoi */
    formData.Add(new StringContent(Version), "VERSION");
    formData.Add(new StringContent(Libelle), "LIBELLE");
    formData.Add(new StringContent(Description), "DESCRIPTION");
 
    /* Reference pour identifier le document. */
    string Reference = Guid.NewGuid().ToString();
    formData.Add(new StringContent(Reference), "REFERENCE");
    formData.Add(content, "filename", fichier); /* le fichier */
 
 
     // Post the MIME multipart form data upload with the file
    string url=string.Format(URLAPPLI + "api/" + "UploadFile");
    Uri address = new Uri(url);
    var webclient = new HttpClient();     
 
    /*calcul du timeout en fonction de la taille du document*/
    FileInfo file = new FileInfo(fichier);
    long Taille = file.Length;
    int timoutcalcule = (int)(Taille / 100000)+1;
    webclient.Timeout = new TimeSpan(0, 0, timoutcalcule);
 
    /* format du retour */
    //webclient.DefaultRequestHeaders.Add("Accept", "text/xml");
    webclient.DefaultRequestHeaders.Add("Accept", "text/json");
 
    // appel de L'API
    var task = webclient.PostAsync(address,formData);
    task.Wait();
    HttpResponseMessage response = task.Result;
 
    // retour en JSON
    var resp = response.Content.ReadAsAsync<RetResponse>().Result;
    if (resp.Success)
    {
        ret = resp.Message + "- Id : " + resp.Id + " - ID Interne : " + resp.InternalID.ToString();
    }
    else
    {
        ret = resp.Message + "- Id : " + resp.Id;
    }
}

Merci

**ShaiLeTroll** · 13/12/2016, 17h47

IXMLHttpRequest me choque, du coup tu n'es plus en type MIME donc ce n'est plus du Multipart !

Je note JSON, c'est une API REST ?
Tu n'as pas du JSON en entrée et en sortie ?
En D7, faut une lib externe mais cela se bricole avec une Template et un format ...

genre

Code :

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

1
2
3
4
const
  GET_TOKEN_JSON_PARAM_FMT = '{"token":"%s","refresh_token":"%s","refresh_token_key":"%s"}'; // Version rapide sans passer par un TJSONObject
...
      Source.WriteString(Format(GET_TOKEN_JSON_PARAM_FMT, [FToken, FRefreshToken, FRefreshTokenKey]));

Peut-être ton entrée c'est de POST classique genre ?p1=v1&p2=v2...Il n'y a rien de plus simple que de générer la chaine de paramètre à la main

Pas besoin de composant externe, tu as les API Windows
Tient un code pour envoyer n'importe quel paramètre pour n'importe quelle URL

exemple avec pour chaque Input

www.developpez.net
forums/search.php
searchid=9661936

tu récupéras le fichier HTML généré par le forum

C'est du code XE2 pour le convertir en D7
LPWSTR -> LPSTR
RawByteString -> string

Tu as une version plus ancienne dans la FAQ : Comment télécharger un fichier en http sans utiliser Indy ?
Tu en trouve d'autres sur le forum

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
const
  BufferSize = 1024;
  accept: packed array[0..1] of LPWSTR = (PChar('text/*'), nil); // PCTSTR rgpszAcceptTypes[] = {_T(“text/*”), NULL};
var
  ServerName, URL, Params, LocalFileName: string;
  hSession, hHTTP, hReq : HINTERNET;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  sAppName: string;
  FS: TFileStream;
  Headers: string;
  Data: RawByteString;
begin
  sAppName := ExtractFileName(Application.ExeName);
 
  hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    if not InputQuery('Download URL', 'Server Name', ServerName) then
      Exit;
 
    hHTTP := InternetConnect(hSession, PChar(ServerName), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
    try
      if not InputQuery('Download URL', 'URL', URL) then
        Exit;
 
      hReq := HttpOpenRequest(hHTTP, PChar('POST'), PChar(URL), nil, nil, @accept, 0, 1);
      try
        Headers := 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
 
        if not InputQuery('Download URL', 'Params', Params) then
          Exit;
 
        Data := UTF8Encode(Params);
        if HttpSendRequest(hReq, PChar(Headers), length(Headers), PAnsiChar(Data), length(Data)) then
        begin
          LocalFileName := StringReplace(URL, '/', '_', [rfReplaceAll]);
          if not PromptForFileName(LocalFileName, '', '.txt', 'Download URL into Local File', '', True) then
            Exit;
 
          FS := TFileStream.Create(LocalFileName, fmCreate);
          try
            BufferLen := 0;
            repeat
              if InternetReadFile(hReq, @Buffer, BufferSize, BufferLen) then
                FS.WriteBuffer(Buffer, BufferLen);
 
            until BufferLen = 0;
          finally
            FS.Free;
          end;
        end
        else
          raise Exception.Create('HttpOpenRequest failed. ' + SysErrorMessage(GetLastError));
      finally
        InternetCloseHandle(hReq);
      end;
    finally
      InternetCloseHandle(hHTTP);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

**popo** · 16/12/2016, 10h33

Effectivement, c'est du JSON.
En entrée comme en sortie ça m'a été confirmé par le développeur de l'api.
Former du JSON ne devrait pas poser de problème je pense (j'ai déjà SuperObject dans le projet).

Utiliser les API Windows, tu veux certainement parler de ce qui se trouve dans WinInet.

Je ne suis pas très à l'aise avec le sujet et je n'avais pas conscience de la notion de multi part.
ça me donne à présent une idée de ce que je dois chercher.

Au fait cette URL ne donne rien.
http://www.developpez.net/forums/sea...archid=9661936

**popo** · 16/12/2016, 10h48

J'ai trouvé cette page qui à l'air pas mal.
http://www.delphigroups.info/2/5/492268.html
J'essaie de bricoler un truc et je vous tiens au courant

**popo** · 16/12/2016, 16h23

Un coup dans l'eau.
Je ne peux pas utiliser Indy.
A priori, ça ne passerait pas les proxy.

Tout les exemples utilisant directement wininet que j'ai pu trouver envoient simplement du texte.
J'ai besoin d'envoyer n'importe quel fichier (surtout du PDF et de documents office).

Je n'arrive pas non plus à comprendre sous quelle forme je dois passer les informations.
Puisqu'il s'agit de JSON je pensais à passer un truc de ce genre via la méthode Send:

Code JSON :

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

1
2
3
4
5
6
7
{
	"t": "20161216095800",
	"VERSION": "Ma version",
	"LIBELLE": "Un libellé",
	"DESCRIPTION": "Une description",
	"REFERENCE": "4DA9B350-1C9B-479E-8C62-D5AAF1296A16"
}

Mais comment intégrer mon flux là dedans ?

**ShaiLeTroll** · 16/12/2016, 18h15

As-tu vu mon code dans ma réponse précédente utilisant HttpSendRequest qui utilise justement une RawByteString parce que la donnée doit être géré comme un Binaire
En D7, utilise un Array of Byte et un TFileStream (ou même un TMemoryStream)

voici les extraits qui change

Code :

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

1
2
3
  Headers: string;
  Data: RawByteString;
begin

devient

Code :

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

1
2
3
4
  Headers: string;
  Data: array of Byte;
  FS: TFileStream;
begin

ou

Code :

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

1
2
3
4
  Headers: string;
  FM: TMemoryStream;
  FS: TFileStream;
begin

.

ainsi que

Code :

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

1
2
3
Data := UTF8Encode(Params);
if HttpSendRequest(hReq, PChar(Headers), length(Headers), PAnsiChar(Data), length(Data)) then
begin

devient

Code :

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

1
2
3
4
5
FS.LoadFromFile(LePFD);
SetLength(Data, FS.Size);
FS.Read(Data[0], FS.Size);
if HttpSendRequest(hReq, PChar(Headers), length(Headers), PAnsiChar(Data[0]), length(Data)) then
begin

ou

Code :

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

1
2
3
4
5
FS.LoadFromFile(LePFD);
FS.Seek(0, soFromBeginning); // en D7, je sais plus si c'est soFromBeginning ou soBeginning
FM.LoadFromStream(FS);
if HttpSendRequest(hReq, PChar(Headers), length(Headers), PAnsiChar(FM.Memory), length(Data)) then
begin

Pour le JSON, je pense qu'un encodage UTF8 est nécessaire
Pour un PDF, tout dépend comment tu dois l'envoyer,
- Si c'est directement, le binaire, tu dois voir avec l'auteur ce que tu dois mettre comme ContentType, CharSet et ContentEncoding, ce qui donne un truc genre 'Content-Type: application/octet-stream'.
- Si c'est via un JSON, cela nécessite probablement un encodage en Base64 qui a l'avantage de n'utiliser QUE des caractères basiques qui ne souffrent d'aucune manipulation de CharSet donc 'Content-Type: application/json; charset=utf-8'.

Un JSON avec le PDF en Binaire

Code json :

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

1
2
3
4
5
6
7
8
{
	"t": "20161216095800",
	"VERSION": "Ma version",
	"LIBELLE": "Un libellé",
	"DESCRIPTION": "Une description",
	"REFERENCE": "4DA9B350-1C9B-479E-8C62-D5AAF1296A16"
        "Content": "AAB3... un tas de lettre ...G5Z6=="
}

Equivalent Delphi 7 du MultipartFormDataContent

Langage Delphi

Vue hybride

Discussions similaires

Partager

Partager