Post и Get

[Aleksandr69]

Помогите что то у меня мозг уже сломался ,не пойму что не так

Отправляю Post запрос multipart/form-data;
В stranicha получаю ответ сервера разбираю его функцией captchaget
результат получаю в captcha_id ,а вот следующий запрос Get не отправляется не могу понять в чем проблема,если просто прописать
captcha_id:='666666'; то все пашет,подскажите в чем проблема??

   http.Post('http://antigate.com/in.php',stranicha);
   captcha_id:=captchaget(stranicha);
   for z:=0 to 20 do begin
   try
   http.Get('http://antigate.com/res.php?key='+apikey+'&action=get&id='+captcha_id,stranicha);
   showmessage('запрос выполнен');
   except
   showmessage('запрос невыполнен');
   end;
   end;

   function captchaget(stranicha:Tstrings):string;
var
strok3:string;
begin
   if pos('ERROR_',stranicha.Text) > 0 then begin
   strok3:=stranicha.Text;
   Result:=strok3;
   exit;
   end;
   if pos('OK|',stranicha.Text) > 0 then  begin
   strok3:=copy(stranicha.Text,pos('OK|',stranicha.Text)+3,length(stranicha.Text)-pos('OK|',stranicha.Text)+0);
   Result:=strok3;
   end;
end;

[Пепел Феникса]

лучше б убрали обработчик исключения и сказали какая ошибка то выскакивает.

[Aleksandr69]

Сообщение от Пепел Феникса

лучше б убрали обработчик исключения и сказали какая ошибка то выскакивает.

Вообще никакой код замирает перед запросом http.Get запрос не выполняется ,все дело captcha_id но не могу понять в чем именно,как я уже выше написал что получаемое значение с помощью функции не хочет работать а если пишу captcha_id:='666666'; а функцию убераю все пашет,бред....

[Aleksandr69]

да еще кстати этот код работал у меня в другой программе но только одно отличие картинка каптчи была jpg но дело я думаю не в этом,данные отпровляет и ответ от сервера приходит правильный.

[Aleksandr69]

люди кто нибудь помогите ткните носом,ошибок не вижу но код не пашет

[Aleksandr69]

Сообщение от Пепел Феникса

лучше б убрали обработчик исключения и сказали какая ошибка то выскакивает.

\

Профи помогите ,где я что упустил??

[Aleksandr69]

Открываю другое соединение http1.Get пытаюсь выполнить запрос тоже ноль ошибок не выдает,бл...мистика

[Aleksandr69]

все доперло

[XerSon]

В каком месте допёрло то? Поделитесь с общественностью!

[Aleksandr69]

Сообщение от XerSon

В каком месте допёрло то? Поделитесь с общественностью!

Result:=Trim(strok3);


спец символы ,бл...