1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
procedure TForm1.Button1Click(Sender: TObject);
var
input : TStringList;
begin
Input := TStringList.Create;
try
If idhttp1.connected then
Ts.Add('UserName=*****');
Ts.Add('Password=*****');
Ts.Add('__VIEWSTATE=****');
idhttp1.AllowCookies:=true;
IdHttp1.Request.ContentType := 'application/x-www-form-urlencoded';
documentmemo.Lines.Clear;
documentmemo.Lines.add(IdHTTP1.Post('http://212.100.209.7/security/Login.aspx?culture=ar',input));
finally
input.free;
end;
end; |
