![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
На форме есть две кнопки, одна авторизируется без капчи, другая с капчей, от сюда вопрос, как сделать что бы одна кнопка отвечала за авторизацию с капчей и без неё, тоесть если нажал на кнопку, и если на сайте есть капча то дожидается её ввода нажал на кнопку принять и авторизировался, а если нету то сразу авторизируемся. Просто умственно осилить не могу как скрестить.
|
|
#2
|
||||
|
||||
|
Код в студию.
|
|
#3
|
|||
|
|||
|
пиши нам свой коД и мы тебе исправим
![]() |
|
#4
|
|||
|
|||
|
Код:
procedure TForm11.Button1Click(Sender: TObject);
var
img: TMemoryStream;
png: TPNGObject;
s:string;
data1:TStringList;
begin
data1:=tstringlist.create;
begin
s:=idhttp1.Get('http://' +Edit1.text+'/login.php');
If pos('/image.php?',, s)>0 then begin
img:=TMemoryStream.Create;
idhttp1.Get('http://'+Edit1.text+'/image.php?',img);
img.Position:;
png:= TPNGObject.Create;
png.LoadFromStream(img);
image1.Picture.Assign(png);
png.Free;
img.Free;
Data1.Add('Code=' +Edit4.text);///капча
end
else
Data1.Add('username=' +Edit2.text);///логин
Data1.Add('password=' +Edit3.text);///пароль
idhttp1.post(''+Edit1.text+'/logincap.php',data);
end;
end;
end.Цитата:
Не пойму как сделать что если есть на сайте капча то показать её ввести и нажать на Button2 для её отправки вместе с логином и пасом, а если нету то просто логин и пасс Цитата:
Последний раз редактировалось bulldog, 27.08.2010 в 12:46. |
|
#5
|
|||
|
|||
|
то есть я как ща понимаю, то если капча есть то показываем, вводим в edit4, нажимаю на button2 и передаю вместе с логом и пассом, вопрос тогда, как такое реализовать?
|
|
#6
|
|||
|
|||
|
Код:
img.Position:; ![]() |