Kodlarım:
Kod: Tümünü seç
var
IHTTP: TIdHTTP;
IParamList: TIdMultiPartFormDataStream;
URL: String;
begin
IHTTP := TIdHTTP.Create(nil);
IParamList := TIdMultiPartFormDataStream.Create;
try
IParamList.AddFormField('txtFromDate=','14/06/2017');
IParamList.AddFormField('txtToDate=','14/06/2017');
IParamList.AddFormField('btnSubmit=','GO');
IParamList.AddFormField('chkAll=','on');
IParamList.AddFormField('__VIEWSTATE=','/wEPDwULLTIwODkzNjIzMjNkGAEFHl9fQ29udHJvbHNSZXF1aXJlUG9zdEJhY2tLZXlfXxYFBQZjaGtBbGwFBmNoa0dCUAUGY2hrWUVOBQZjaGtVU0QFB2Noa0VVUk89qhaWHLCXDtQpp0z32EfoPSrkWg==');
IParamList.AddFormField('__EVENTVALIDATION=','/wEdAA8EgzU5GI62VbQ/cE4GD2ZXi6wX7g7V+51d5y/uZ409MWQ6cu1iZ73N7YF2NPAmCyQ/q33cCQLgaFQSElESF1pcfcX9ZaEV78oETjPwNTvjRyaLpyghhgB3dOM81YQT2c9/+gftA0sfXfDVAjh7xSqBhaW9lcSH1kY5FCWz6Xgykl1T'+'0rRV1xwZiwEqKxacpKD8aEimM+v26W4ZAE5GN0Z6WPN56Qs62BAJnF597e6LXUPcYsL56nHH9LNw6EJeV0k6GX39ewFFXMEeUx5+6kZrPOaW1pQztoQA36D1w/+bXfeorZxJNEQSFMcpSqWnvJrDWZd4j93dnyoXXOjcwyy6xzJupg==');
Memo1.Lines.Text := IHTTP.Post('http://www.rbi.org.in/scripts/ReferenceRateArchive.aspx',IParamList);
IHTTP.Request.Method := 'POST';
IHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
finally
IHTTP.Free;
IParamList.Free;
end;