[Помогите!] С авторегистрацией

[megbum]

что не так?

procedure TForm1.Button1Click(Sender: TObject);
var Data:TStringList;
begin
 Data:=TStringList.Create;
 Data.Add('aid=537');
 Data.Add('acm=');
 Data.Add('acr=22');
 Data.Add('aip=');
 Data.Add('locale=ru');
 Data.Add('signup_username'+Edit1.Text);
 Data.Add('signup_password'+Edit2.Text);
 Data.Add('signup_passwordRepeat'+Edit3.Text);
 Data.Add('signup_email'+Edit4.Text);
 Data.add('signup_instance=574');
 Data.add('signup_birthdayDay=01');
 Data.add('signup_birthdayMonth=01');
 Data.Add('signup_birthdayYear=1970');
 Data.add('signup_country=RU');
 Data.add('signup_province=');
 Data.add('signup_winnings=0');
 Data.add('signup_termsAndCondition=1');
 Data.add('signup_newsletter=1');
 Data.add('signup_submit=Регистрация');
 S:=IdHTTP1.Post('http//www.darkorbit.ru', Data);
 if Pos('companyMain', S)<>0 then
  ShowMessage('УРА')
 else
  ShowMessage('(((');
end;

[R.A.Z.O.R.]

Омг, появилась новая профессия программист-космонавт

Цитата: Сообщение от megbum Data.Add('signup_username'+Edit1.Text); Data.Add('signup_password'+Edit2.Text); Data.Add('signup_passwordRepeat'+Edit3.Text); Data.Add('signup_email'+Edit4.Text);

Посмотри внимательнее, мб увидишь.

[D.E.Z.E.R.T.I.R]

там где сказал рейзор ты = забыл и ты бы хоть посмотрел куда запрос отправляешь, нужно в другое место отправлять

[metraz]

Цитата: Сообщение от megbum что не так? procedure TForm1.Button1Click(Sender: TObject); var Data:TStringList; begin Data:=TStringList.Create; Data.Add('aid=537'); Data.Add('acm='); Data.Add('acr=22'); Data.Add('aip='); Data.Add('locale=ru'); Data.Add('signup_username'+Edit1.Text); Data.Add('signup_password'+Edit2.Text); Data.Add('signup_passwordRepeat'+Edit3.Text); Data.Add('signup_email'+Edit4.Text); Data.add('signup_instance=574'); Data.add('signup_birthdayDay=01'); Data.add('signup_birthdayMonth=01'); Data.Add('signup_birthdayYear=1970'); Data.add('signup_country=RU'); Data.add('signup_province='); Data.add('signup_winnings=0'); Data.add('signup_termsAndCondition=1'); Data.add('signup_newsletter=1'); Data.add('signup_submit=Регистрация'); S:=IdHTTP1.Post('http//www.darkorbit.ru', Data); if Pos('companyMain', S)<>0 then ShowMessage('УРА') else ShowMessage('((('); end;

Да тут немало что не так