Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Data: TIdMultiPartFormDataStream;
S:string;
begin
Data:=TIdMultiPartFormDataStream.Create;
try
Data.AddFormField('user','mcc22599');
Data.AddFormField('pass','X4Dfg328');
IdHTTP.Request.Host:='http://www.isp.tulatelecom.ru';
IdHTTP.Request.Referer:='http://www.isp.tulatelecom.ru/balans/';
IdHTTP.Request.AcceptLanguage:='ru';
idhttp.Request.ContentType:='application/x-www-form-urlencoded';
IdHTTP.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.6 (build 01425); InfoPath.1)';
IdHTTP.Request.Connection:='Keep-Alive';
S:=idHTTP.Post('http://www.isp.tulatelecom.ru/balans/getbalans.phtml',Data);
Memo2.SetTextBuf(PChar(S));
Memo2.Lines.SaveToFile('1.txt');
finally
Data.Free;
end;
Admin: Пользуемся тегами!
В результате выполнения этого кода пишет неверное имя пользователя или пароль! Скажите что сдесь неверно?