Discussion :

[JP CASSOU]

Bjr à vous,


Je bute sur un problème pénible +++ avec Synapse40, objet THTTPSend et une URL en https://

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
 
function TMyIGNWebService.Get(const MyUrl: string): string;
var
  QResults: TStringList;
  {$IFDEF USE_SYNAPSE40}
  EWE, B: Boolean;
  AStringData: TStringStream;
  {$endif USE_SYNAPSE40}
begin
  AfficherMessageErreur(format('%s.Get(%s)', [ClassName, MyUrl]));
  result := '';
  QResults := TStringList.Create;
  try
    QResults.Clear;
    {$IFDEF USE_SYNAPSE40}
      //SSl
      try
        try
          FHTTP.Protocol := '1.1';
          FHTTP.UserAgent := 'Mozilla/5.0';
          AStringData := TStringStream.Create('');
          B := FHTTP.HTTPMethod('GET', MyURL);
 
          FHTTP.Document.LoadFromStream(AStringData);
 
          QResults.LoadFromStream(FHTTP.Document);
          Result := QResults.Text;
          AfficherMessageErreur('GET: ' + Result);
 
        except
 
        end;
      finally
        FreeAndNil(AStringData);
      end;
    {$else}
      result := FHTTP.Get(MyURL);
    {$endif}
  finally
    FreeAndNil(QResults);
  end;
end;

Résultat: chaîne vide

[tourlourou]

Bonjour,
Quelle est l'utilité de la ligne 24, qui affecte un flux vide à la place de celui reçu dans Document ?

[JP CASSOU]

Bonjour,
Quelle est l'utilité de la ligne 24, qui affecte un flux vide à la place de celui reçu dans Document ?

Ligne supprimée,même résultat

De plus, si j'ajoute l'unité ssl_openssl dans le uses, je me ramasse cette erreur incompréhensible (l'unité étant bien sûr à sa place dans le paquet laz_synapse)

unitignwebservices.pas(26,3) Fatal: Impossible de trouver ssl_openssl utilisé par UnitIGNWebServices de l'inspecteur de projet.