набросал прогу для авторегера на блог.ру но вот сталкнулся с такой проблемой: пост запрос уходит снифер пишет в (Status-Line) 200 ок на аккаунт не регестрируеться!!после пост запроса в переменную возвращает исходную страничку регестрации!!что не так подскажите??
вот код проги (она крепко не доделана ногами не пинать!!):
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, jpeg, IdCookieManager;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Memo2: TMemo;
Memo3: TMemo;
Label1: TLabel;
Label2: TLabel;
Image1: TImage;
Button3: TButton;
IdHTTP1: TIdHTTP;
regestration: TButton;
Edit1: TEdit;
Edit2: TEdit;
Memo4: TMemo;
IdCookieManager1: TIdCookieManager;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure regestrationClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
inet:string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile('d:\temp\delphi\Projects\blogru\acc.txt');
end;
//procedure TForm1.Button2Click(Sender: TObject);
//var
//str :string;
//s,bb,i,b: integer;
//begin
//c:=memo1.Lines[i];
//for i to n do
//begin
//label1.Caption:=str;
// end;
procedure TForm1.Button2Click(Sender: TObject);
var
a,a1,a2: string;
i,s,etc:integer;
begin
// For s:=0 to Memo2.Lines.Count-1 do
// ShowMessage(IntToStr(Integer(@i)));
etc:=0;
for i:=0 to etc do
begin
a:= memo1.Lines[i];
a1:= Copy(a,1,Pos(':',a)-1);
a2:= copy (a,Pos(':',a)+1,20);
memo2.Text:=a1;
memo3.Text:=a2;
memo2.Lines.SaveToFile('File1.txt');
memo3.Lines.SaveToFile('File2.txt');
end;
end;
//procedure TForm1.IdCookieManager1Create(ASender: TObject;
// ACookieCollection: TIdCookies);
//begin
//IdCookieManager1.CookieCollection.Clear;
//memo4.Text:= IdHTTP1.Get('http://blog.ru/registration/step1');
//end;
procedure TForm1.Button3Click(Sender: TObject);
var FS:TFileStream;
begin
IdCookieManager1.CookieCollection.Clear;
//memo4.Text:=Idhttp1.Get('http://blog.ru/registration/step1/submit');
//memo4.Lines.SaveToFile('file3.txt');
//=IdHTTP1.Get('http://blog.ru/registration/step1?backurl=http%3A%2F%2Fblog.ru%2F');
FS:=TFileStream.Create('captcha.jpg',FMCreate);
IdHTTP1.Get('http://blog.ru/inc/captcha/image.php', FS);
FS.Free;
Image1.Picture.LoadFromFile('captcha.jpg');
end;
procedure TForm1.regestrationClick(Sender: TObject);
var
Data:TStringList;
begin
Data:=TStringList.Create;
Data.Add('user_data[nick]='+edit1.Text);
Data.Add('user_data[email]='+memo2.Text);
Data.Add('user_data[password]='+memo3.Text);
Data.Add('user_data[password_confirm]='+memo3.Text);
Data.Add('user_data[sex]=female');
Data.Add('user_data[ code]='+Edit2.Text);
Data.Add('user_data[agreement]=1');
inet:=IdHTTP1.Post('http://blog.ru/registration/step1', Data);
memo4.Text:=inet;
memo4.Lines.SaveToFile('file3.txt');
end;
end.
