как то код странно стал себя вести, при таком раскладе получается 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. вопрос снят,разобрался