Код:
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.
Admin: Пользуемся тегами для оформления кода!
Цитата:
|
Пользуемся тегами для оформления кода!
|
Забываю парой, сорри.
Не пойму как сделать что если есть на сайте капча то показать её ввести и нажать на Button2 для её отправки вместе с логином и пасом, а если нету то просто логин и пасс
Цитата:
Программер_ХХХороший
Новичок
пиши нам свой коД и мы тебе исправим
|
Несмешно