var
Param:TStringList;
RStream:TMemoryStream;
begin
Param:=TStringList.Create;
RStream:=TMemoryStream.Create;
Param.Add(‘waybills=‘+edtshippingsn.Text);
Param.Add(‘verifycode=‘+edtcode.Text);
try
IdHTTP1.Post(‘http://www.jinyuanbao.cn‘, Param,RStream);
RStream.SaveToFile(‘Cache\result.html‘);
finally
RStream.Free;
end;
end;
原文:http://www.cnblogs.com/jyb2014/p/3939731.html