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

[diznt]

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

цикл не идет

[vid]

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

[diznt]

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

[vid]

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

[vid]

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;



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

[diznt]

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

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

[De-visible]

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