Próbuję stworzyć coś takiego: po kliknięciu przycisku wysyłam metodą POST dane do skryptu PHP. Skrypt następnie zmienia te dane i odsyła z powrotem. Mam taki kod w Delphi:
Var StreamIn, StreamOut: TStringStream;
begin
IdHTTP1.Connect;
StreamIn := TStringStream.Create('');
StreamOut := TStringStream.Create('');
StreamIn.WriteString(Format('left=%d', [Button1.Left]));
IdHTTP1.Post('http://mojastrona/test.php?', StreamIn, StreamOut);
StreamOut.Position := 0;
Button1.Left := StrToInt(StreamOut.ReadString(StreamOut.Size));
StreamIn.Free;
StreamOut.Free;
IdHTTP1.Disconnect;
end;
I taki skrypt PHP na serwerze:
<?
$_POST['left'] = $_POST['left'] + 50;
echo $_POST['left'];
?>
No i po uruchomieniu i kliknięciu przycisku przesuwa się on ale tylko za pierwszym razem. Pomożecie?