Авторизация с капчей и без

[bulldog5293]

На форме есть две кнопки, одна авторизируется без капчи, другая с капчей, от сюда вопрос, как сделать что бы одна кнопка отвечала за авторизацию с капчей и без неё, тоесть если нажал на кнопку, и если на сайте есть капча то дожидается её ввода нажал на кнопку принять и авторизировался, а если нету то сразу авторизируемся. Просто умственно осилить не могу как скрестить.

[Terikon]

Делай get запрос на сайт и смотри если нет капчи то запускаеш первую функцию, если капча есть то вторую функцию.
Используй if then...else

[bulldog5293]

А можно хотя бы не большой пример, что бы понять куда if then...else засунуть

[kardinal94]

Лично я сделал бы по тупому.
Получал бы код с помощью idHTTP

var s:string;
begin
s:=Idhttp.Get('URL');
If pos('Какая то часть кода, которая есть только при наличии на странице каптчи', s)>0 then
Begin
//Тут часть кода, которая отвечает за авторизацию с каптчей.
else
//тут та часть, которая без каптчи.

Ну я в Delphi 0000. Но лично я сделал бы так

[bulldog5293]

Впринцепе так правельно, но выдаёт ошибку, сделал так:

procedure TForm10.Button1Click(Sender: TObject);
var
img: TMemoryStream;
png: TPNGObject;
s:string;
begin
s:=Idhttp1.Get('http://www.sayt.ru/login.php');
If pos('logincap.php', s)>0 then
try///менял на begin, тоже самое
IdHTTP1.Get('http://sayt.ru');
img:=TMemoryStream.Create;
IdHTTP1.Get('http://sayt.ru/logincap.php',img);
img.Position:=0;
png:= TPNGObject.Create;
png.LoadFromStream(img);
image1.Picture.Assign(png);
png.Free;
img.Free;
else///ошибка приводит сюда
Idhttp.Get('nemovera2.ucoz.ru')///на тот случай если не удалось,   
///переправляю на свой сайт
end;

Исправил так:

procedure TForm10.Button1Click(Sender: TObject);
var
img: TMemoryStream;
png: TPNGObject;
s:string;
begin
s:=Idhttp1.Get('http://www.sayt.ru/login.php');
If pos('logincap.php', s)>0 then
else
IdHTTP1.Get('http://sayt.ru');
img:=TMemoryStream.Create;
IdHTTP1.Get('http://sayt.ru/logincap.php',img);
img.Position:=0;
png:= TPNGObject.Create;
png.LoadFromStream(img);
image1.Picture.Assign(png);
png.Free;
img.Free;
begin
Idhttp1.Get('http://nemovera2.ucoz.ru')
end;
end;

Но всё равно, если даже капча есть, то заходит потом на другой сайт, который объявил в конце, но как же всё таки сделать исключение есть ли капча или нет

[Terikon]

procedure TForm1.btn1Click(Sender: TObject);
var
img: TMemoryStream;
png: TPNGObject;
s:string;
begin
s:=idhtp1.Get('http://www.sayt.ru/login.php');
If pos('logincap.php', s)>0 then begin
idhtp1.Get('http://sayt.ru');
img:=TMemoryStream.Create;
idhtp1.Get('http://sayt.ru/logincap.php',img);
img.Position:=0;
png:= TPNGObject.Create;
png.LoadFromStream(img);
img1.Picture.Assign(png);
png.Free;
img.Free;
end
else
idhtp1.Get('nemovera2.ucoz.ru')
end;
end.

[bulldog5293]

Спасибо Terikon, только я сделал чуть чуть по другому

[bulldog5293]

Последний вопрос, модеры и админы не ругайтесь и не закрывайте тему, правильно ли я понял, что если авторизация проходит с капчей то в месте с капчей передаются логин и пас, если без то просто логин и пас, если всё же прав то капчи нету, как тогда не передавать что капча пуста

[JDredd]

Сообщение от bulldog5293

Последний вопрос, модеры и админы не ругайтесь и не закрывайте тему, правильно ли я понял, что если авторизация проходит с капчей то в месте с капчей передаются логин и пас, если без то просто логин и пас, если всё же прав то капчи нету, как тогда не передавать что капча пуста

могут еще быть скрытые поля, надо смотреть хтмл код

[bulldog5293]

Полей скрытых нет, я хочу разобраться просто как правельней передавать капчу с логином и пассом, или логин и пасс без капчи.
просто если авторизация с капче, то передаётся вместе с логином и пассом капча, а если без капчи то её не передаёш, вот это только не понятно осталось, в гугле не нашёл, тоесть скрещённого примера