THTTPrio.HTTPWebNode.Send/Receive() unter Delphi Sydney wie umsetzen?

[schotti65]

Hallo zusammen,

der folgende Code hat unter XE7 funktioniert:

Code:

FHTTPrio : THTTPrio;
FLastResponse : TStringList;

...

request, response: TStringStream;

request := TStringStream.Create('Das ist der Request...');
response := TStringStream.Create('');

...

recieveID := FHTTPrio.HTTPWebNode.Send(request);
FHTTPRIO.HTTPWebNode.Receive(recieveID, response, false);

response.Position := 0;
FLastResponse.LoadFromStream(response, TEncoding.UTF8);

Leider gibt's die beiden Methoden aktuell nicht mehr, und ich verstehe den ganzen Mechanismus zu wenig, um auf Anhieb eine Alternative umzusetzen.
Kann mir da jemand weiterhelfen?

[schotti65]

Wie so oft - wenn man's hat, ist es ganz einfach:

Code:

recieveID := FHTTPrio.HTTPWebNode.Send(request);
FHTTPRIO.HTTPWebNode.Receive(recieveID, response, false);

=>

Code:

FHTTPrio.HTTPWebNode.Execute(request, response);