PHP код:
implementation
var S:string;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Data:TStringList;
i:Byte;
begin
Data:=TStringList.Create;
Data.Add('ru='+Edit1.Text);
Data.Add('en='+Edit2.Text);
for i:=1 to StrToInt (Edit3.Text) do begin
S:=IdHTTP1.Post('http://.../index.php',Data);
if Pos('Atrue',S) = 0 then
Memo2.Lines.Add('GOOD-'+IntToStr(i))
else
Memo2.Lines.Add('ERROR-'+IntToStr(i));
При каждом запросе - GOOD, запрос выполнен. На странице в исходном коде если нормально выполнился запрос, присутствует {"result:"true"}, если не выполнилось {"result":"false"}.
Как сделать чтобы по результату был GOOD и ERROR.