[bulldog]

как то код странно стал себя вести, при таком раскладе получается 2 пост запроса, причём в первод данные с капчей, а второй запрос отсылает первый и добавляет второй

Код:

HTTP_1.get(сайт + 'login.php?r=',s);
If pos('image.php?', s.datastring)>0 then
     begin
     img := TMemoryStream.Create;
          png := TPNGObject.Create;
          try
HTTP_1.get(сайт + 'image.php?',img);
img.Position := 0;
png.LoadFromStream(img);
 Form2.Image1.Picture.Assign(png);
code := '';
Synchronize(capcha);
inf.Add('username=' + Login);
inf.Add('password=' + Password);
inf.Add('code=' + code);
HTTP_1.Post(сайт +'login.php',inf,s);
          finally
png.Free;
png := nil;
img.Free;
end;
end
else
inf.Add('username=' +Login);
inf.Add('password=' + Password);
HTTP_1.Post(сайт +'login.php',inf,s);
inf.Free;
end;

Вчём может быть ошибка, вроде всё правельно сделано
P.s. вопрос снят,разобрался

[pesi]

Код:

else
begin
inf.Add('username=' +Login);
inf.Add('password=' + Password);
HTTP_1.Post(сайт +'login.php',inf,s);
end;
inf.Free;
end;