qwsa
Сообщений: 22
Оценки: 0
Присоединился: 2011-09-10 14:20:16.616666
|
Помогите разобраться с простенькой программой. Написал программу для авторизации на mail.ru так для повышения уровня но столкнулся с ошибкой, в сроке (Label1) должно выводиться состояние 'Авторизовался' или нет, но почемуто при верном и неверном вводе логине и пароли выводит одно и тоже состояние 'Авторизовались'. Edit1 - это логин. Edit2 - это пароль.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
IdHTTP1: TIdHTTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
StrPage, ssylka: String;
log : TstringList;
begin
ssylka:='http://e.mail.ru/cgi-bin/login';
log:=TstringList.Create;
Log.Add('Login='+Edit1.Text);
Log.Add('Domain=mail.ru');
Log.Add('Password=' +Edit2.Text);
StrPage:=idHTTP1.Post(ssylka,Log);
if Pos('logout', StrPage)<>0 then
Label1.Caption:='Залогинились'
else Label1.Caption:='Не залогинились';
Log.Free;;
end;
end.
Вот архив с исходником и формой http://zalil.ru/32568881 (не спам для дела). Программа написана на RAD Studio XE2 (если что.). За помощь ставлю +)
|