Привет всем) подскажите пожалуйста, есть главная форма, есть поток, есть цикл в потоке. Цикл делает приглашение, но вот когда вылетает капча ... он всё ровно продолжает приглашать. это устранил: Code: if Pos('captcha_sid', Page1.Text)<>0 then begin sid := Page1.Text; sid := Copy(sid, Pos('":"', sid) + 3, Length(sid)); Delete(sid, Pos(#34, sid), Length(sid)); MainForm.MemoLog.Lines.Add('Поймали капчу, введите её!'); // Выводим капчу в форме! end; Как приостановить цикл до ввода капчи, если можно пример? и как из формы в цикл передать капчу? что то я не врублюсь до конца....видать Фленов плохо учит.... Еще вопрос про капчу к тем кто мб работал с Контактом, сид даже если мы спарсили, и делаем get Запрос на страницу капчи: Code: http://vkontakte.ru/captcha.php?s=1&sid=992055349565 он нам возвращает картинку....но сейчас капча всё время меняется при каждом гет запросе.....это вообще как нормал?
Code: procedure Potok.captcha; var Imp : TJpegImage; //В uses jpeg Mp : TMemoryStream; kuka,sid:string; http: TIdHTTP; begin http:=TIdHTTP.Create(nil); form1.Memo.Lines.Add('Кача'); repeat try kuka:=http.Get('http://vk.com/login.php?op=a_login_attempt'); except end; sid:=copy(kuka,25,12); Imp := TJpegImage.Create; Mp := TMemoryStream.Create; Http.Get('http://vkontakte.ru/captcha.php?s=1&sid=' + sid, Mp); Mp.Position := 0; imp.LoadFromStream(mp); imp.SaveToFile(sid+'.jpeg'); form1.Image1.Picture.Graphic := imp; while cap=true do sleep(200); cap:=true; deletefile(sid+'.jpeg'); kuka:=HTTP.Get('http://vk.com/login.php?op=a_login_attempt&captcha_sid='+sid+'&captcha_key='+skey); until pos('vklogin',kuka)<>0; end; Кидаем глобальную переменную cap:boolean; Ну и сообственно, дальше вводим капчу, жмём кнопку на кнопке cap:=false; Это пример реализации на вход.