Как правельней приостановить поток, перед отправкай постом даных, то есть поток сначала заходит на сайт, ищет капчу, получает, выводит на другую форму и приостанавливается, до нажатий кнопок ok или cancel
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | procedure TMyThread . Execute;
HTTP_1 . get( 'айт + ' login . php?r=',s);
If pos( 'image.php?' , s . datastring)> 0 then
begin
synchronyze(capcha)
end
else
inf . Add( 'username=' +Login);
inf . Add( 'password=' + Password);
HTTP_1 . Post(сайт + 'login.php' ,inf,s);
inf . Free;
end ;
procedure . capcha;
var
inf:TStringList;
img: TMemoryStream;
png: TPNGObject;
begin
inf:=tstringlist . create;
img:=TMemoryStream . Create;
HTTP_1 . get(сайт + 'image.php?' ,img);
img . Position:= 0 ;
png:= TPNGObject . Create;
png . LoadFromStream(img);
Form2 . Image1 . Picture . Assign(png);
png . Free;
img . Free;
Form2 . Edit1 . Text:= '' ;
Form2 . show;
try
inf . Add( 'username=' +Login);
inf . Add( 'password=' +Pass);
inf . Add( 'code=' + Form9 . Edit1 . Text);
finally
inf . Free;
end ;
|