XMLHttp [Automation] -- 'Microsoft XML, v4.0'.XMLHTTP40 TimeElapsed [Integer] ReadyState [Option] -- Optionstring="uninitialized,open,sent,receiving,loaded" TimeBegin [Time] BigText [BigText] InStream [InStream] Variant [Variant]
CREATE(XMLHttp); XMLHttp.open('GET','www.somewebsite.com', FALSE); XMLHttp.send(); TimeBegin := TIME; REPEAT TimeElapsed := TIME - TimeBegin; ReadyState := XMLHttp.readyState; UNTIL (ReadyState = 4) OR (TimeElapsed > 45000); IF (XMLHttp.status = 200) AND (XMLHttp.statusText = 'OK') THEN IF ReadyState = 4 THEN BEGIN CLEAR(Variant); Variant := XMLHttp.responseStream; InStream := Variant; BigText.READ(InStream); END; CLEAR(XMLHttp);
Answers
https://forum.mibuso.com/discussion/comment/312949#Comment_312949
GET method is an easier version.
xStepa