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