function checkUrl(Url: string): Boolean;
var
Msm: TStream;
begin
Result := False;
Msm := TMemoryStream.Create;
try
try
Form1.IdHTTP1.Get(Url, Msm);
if Msm.Size > 0 then
Result := True;
except
end;
finally
Msm.Free;
end;
end;
如题
var
Msm: TStream;
begin
Result := False;
Msm := TMemoryStream.Create;
try
try
Form1.IdHTTP1.Get(Url, Msm);
if Msm.Size > 0 then
Result := True;
except
end;
finally
Msm.Free;
end;
end;
如题
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货