如何使用 Synapse 将值存储在 TinyWebDB 中？

Question

我正在尝试使用 Synapse 库在 TinyWebDB 组件 (AppInventor) 中存储一个值。我设法使用此代码获得了一个值：

    procedure GetValue(Tag:String);
    var URL: string;
        Params: string;
        Response: TMemoryStream;

    begin
      Response := TMemoryStream.Create;

      try
        URL := 'http://appinvtinywebdb.appspot.com/getvalue';

        Params := 'tag=' + EncodeURLElement(Tag);

        if HttpPostURL(URL, Params, Response) then
          Response.SaveToFile('response.txt');

      finally
        Response.Free;
      end;
    end;

但我无法存储值。有什么想法或建议吗？顺便说一句，我试图通过添加另一个参数并格式化代码来存储一个值，如下所示：

procedure StoreValue(Tag, Value: String);
var URL: string;
    Params: string;
    Response: TMemoryStream;

begin
  Response := TMemoryStream.Create;

  try
    URL := 'http://appinvtinywebdb.appspot.com/storevalue';

    Params := 'tag=' + EncodeURLElement(Tag)+'&'+
              'value='+ EncodeURLElement(Value);

    if HttpPostURL(URL, Params, Response) then
      Response.SaveToFile('response.txt');

  finally
    Response.Free;
  end;
end;

它似乎不起作用，因为响应文件是空的。它应该包含如下内容：

["STORED", "SomeTag", "SomeValue"]

Answer 1

我明白了。第二段代码可以正常工作，除了 URL。我用的 URL 是

http://appinvtinywebdb.appspot.com/storevalue

而不是

http://appinvtinywebdb.appspot.com/storeavalue

结论：代码运行完美，结果为 ["STORED"、"SomeTag"、"SomeValue"]。

如何使用 Synapse 将值存储在 TinyWebDB 中？

How to store a value in a TinyWebDB using Synapse?

json

http-post

synapse

lazarus

app-inventor