[maloy_ya]

собственно говоря пишу прогу она еще дико недоработанная и нубская так что не пинайте а подскажите лучше вот текст:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, jpeg;

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;
    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
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.Button3Click(Sender: TObject);
var FS:TFileStream;
begin
 //=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/submit', Data);
    end;
end.

компилятор не выдает никаких ошибок а вот при отправке пост запроса вываливаеться вот такая беда:



вот снифер:



подскажите плиз в чем беда??

[PhoeniX]

1. Теги, *цензура*, где?
2. idHTTP1.HandleRedirects:=true;

[maloy_ya]

Сообщение от DJ PhoeniX

1. Теги, *цензура*, где?
2. idHTTP1.HandleRedirects:=true;

не оч понял что от меня требуеться редирект добавил та же борода!!можно поточнее выражаться я же говорил что я нуб в этом!!

[PhoeniX]

Значит, криво "добавил"... эта ошибка вылезает при редиректах. Почитай хотя бы основы кодов состояния HTTP.

Выделяешь на форме idHTTP1, в обжект инспекторе ищешь свойство HandleRedirects и выбираешь значение True. Работать ДОЛЖНО.

П.С. Блин, либо тут 90% людей - третьеклассники, либо в школе перестали преподавать знаки препинания и орфографию... Пишите, ёмаё, грамотно!

[maloy_ya]

Сообщение от DJ PhoeniX

Значит, криво "добавил"... эта ошибка вылезает при редиректах. Почитай хотя бы основы кодов состояния HTTP.

Выделяешь на форме idHTTP1, в обжект инспекторе ищешь свойство HandleRedirects и выбираешь значение True. Работать ДОЛЖНО.

П.С. Блин, либо тут 90% людей - третьеклассники, либо в школе перестали преподавать знаки препинания и орфографию... Пишите, ёмаё, грамотно!

извиняюсь!!согласен работает но всеровно не регестрирует!!но теперь к сожалению вообще молчит!! снифер в status-line пишет HTTP/1.1 200 OK но залогиниться не дает!!

[PhoeniX]

Так посмотри, что у тебя сваливается в результате запроса в переменную inet... возможно, там есть причина отказа в регистрации...

[maloy_ya]

Сообщение от DJ PhoeniX

Так посмотри, что у тебя сваливается в результате запроса в переменную inet... возможно, там есть причина отказа в регистрации...

по сути он мне вывалил страничку регистрации!! только я как не рылся не могу понять что там не так!!вы не поможете, если я вам её покажу??

[maloy_ya]

люди добрые помогите!! вот то что я получаю в ответ!!
file3.txt

[PhoeniX]

Код:

Data.Add('user_data[ code]='+Edit2.Text);

Пробел вызывает подозрения...
И где остальные поля запроса? В сниффере-то они есть, а добавления в запрос не вижу...
П.С. Люди ночью сонные, поэтому злые... а не добрые...

[maloy_ya]

Сообщение от DJ PhoeniX

Код:

Data.Add('user_data[ code]='+Edit2.Text);

Пробел вызывает подозрения...
И где остальные поля запроса? В сниффере-то они есть, а добавления в запрос не вижу...
П.С. Люди ночью сонные, поэтому злые... а не добрые...

в проге пробела нет, ошибочка вышла при посте походу!!
так они же пустые для чего их отправлять?? и если отправлять то как??

[PhoeniX]

Скрипту нет разницы, пустое поле или заполненное - он проверяет его НАЛИЧИЕ. Если оно есть в сниффере - должно быть и в проге.
А добавлять "пустое" поле - как-то так:

Код:

Data.Add('username=');

И, кстати, сайт ставит кукизы для защиты - их тоже придётся добавлять.

[maloy_ya]

Сообщение от DJ PhoeniX

Скрипту нет разницы, пустое поле или заполненное - он проверяет его НАЛИЧИЕ. Если оно есть в сниффере - должно быть и в проге.
А добавлять "пустое" поле - как-то так:

Код:

Data.Add('username=');

И, кстати, сайт ставит кукизы для защиты - их тоже придётся добавлять.

вот с кукисами совсем озадачили!!откуда их выдирать и какие куда слать я не бум-бум

[PhoeniX]

Я подозреваю, что их ставит страница с регистрацией... Перед непосредственно отсылкой запроса (или перед загрузкой капчи, что лучше) - просто ГЕТом забирай страницу регистрации - кукизы должны поставиться автоматом... Только IdCookieManager кинь на форму, и в IdHTTP его выставь...

[maloy_ya]

Сообщение от DJ PhoeniX

Я подозреваю, что их ставит страница с регистрацией... Перед непосредственно отсылкой запроса (или перед загрузкой капчи, что лучше) - просто ГЕТом забирай страницу регистрации - кукизы должны поставиться автоматом... Только IdCookieManager кинь на форму, и в IdHTTP его выставь...

он отказываеться просто забирать страницу пишет нужны параметры:
писал вот так:
IdHTTP1.Get('http://blog.ru/registration/step1',cokie);
пишет вот:
[Error] Unit1.pas(87): There is no overloaded version of 'Get' that can be called with these arguments

[maloy_ya]

переделал запрос гет:
cokie:=IdHTTP1.Get('http://blog.ru/registration/step1');
но логиниться досих пор падло отказываеться