var
ss: TStringStream;
begin
ss := TStringStream
.
Create(
''
);
idHTTP1
.
get(url, ss);
ss
.
Position :=
0
;
ShowMessage(ss
.
DataString);
// 看看这个字符串的内容,根据它来判断是否成功
ss
.
Free;
end
;