Synapse40 et https (Linux) ne fonctionne pas (résultats vides)
Bjr à vous,
Je bute sur un problème pénible +++ avec Synapse40, objet THTTPSend et une URL en https://
Code:
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
