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

[Terikon]

бери сниффер и смотри что передаётся

[bulldog5293]

Да я про то как к пост запросу капчу правельней будет прикрутить, тоесть как лучше будет

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);
Data.Add('username=' +Edit1.text);
Data.Add('password=' +Edit2.text);
Data.Add('password=' +Edit3.text);
idhtp1.post('http://sayt.ru/logincap.php',data,img);
img.Position:=0;
png:= TPNGObject.Create;
png.LoadFromStream(img);
img1.Picture.Assign(png);
png.Free;
img.Free;
end
else
idhtp1.Get('http://sayt.ru/logincap.php');
Data.Add('username=' +Edit1.text);
Data.Add('password=' +Edit2.text);
idhtp1.post('http://sayt.ru/logincap.php',data);
end;
end.

примерно также делать и с авторизацией (но тогда я не понимаю как дальше с запросами работать)или как то по другому