Киньте простенький исходник автореггера

Нужен исходник (на делфи!) а именно как делать так чтобы не один раз регались акки (профили) так как я с idhttp.post умею работать остаеться токо это узнать))

цикл не идет

 

смотри у меня на блоге в профиле. там есть старенький регер by.ru

 

vid оя**у там небось по нажатию кнопки все это происходит?

 

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

 

Code:

function DoIt : Boolean;
Var
 http : TidHttp;
 html : String;
 Data : TStrings;
begin
 http:=TidHTTP.Create(self);
 Data :=TStringList.Create;

 Data.Add('y=12');
 Data.Add('x=13');
 try
  html:=http.Post('http://www.test.com/test.php',Data); 
  Result:=True;
 except
  Result:=False;
 end;
 Data.Free;
 http.Free;
end;

Procedure ManyAccs(cnt : Integer);
Var
  i : integer;
begin
  i:=1;
  repeat
    if DoIt then inc(i);
  until i<cnt;

end;

Так понятнее?! Ошибок много конечно, но писал без среды, прям тут. Главное чтобы "идея" была понятна

 

Извените а что такое
try
и
except

??? а то я не знаю

 

http://www.delphibasics.co.uk/RTL.asp?Name=Try