delphi - 如何在 ProfileResourceReceived 事件中从 ARemoteResource 获取 TTetheringProfileInfo？

Question

我一整天都在谷歌上搜索，不断看到 FireMonkey、apptethering 和 Delphi XE6 的 10 个相同示例。我是 XE6 和应用程序网络共享的新手。感谢您为我提供的任何帮助。

我的故事我有德尔福XE6。我正在尝试为 android 平台创建一个系留 FireMonkey 应用程序。我有一个将在服务器上运行的 VCL 应用程序。将会有许多 Android 平板电脑同时连接到服务器应用程序。

用户按下平板电脑上的按钮，这将导致使用 TTetheringAppProfile 的 SendString 方法将唯一 ID 发送到服务器。服务器有一个 TetherProfileResourceReceived 事件并从 AResource.Value 获取唯一的 id。服务器查询数据库并获取记录。这一切都很好。

现在我需要将记录发送回发送请求的同一配置文件。我见过的每个示例都使用项目索引来获取发送字符串的 TTetheringProfileInfo (TetherProfile.Resources.Items[0].Value)。我认为我不能依赖索引，因为我将有多个连接。我想将响应字符串直接发送回请求配置文件。

我失败的尝试

procedure TfrmTabletServer.POSTetherProfileResourceReceived(
  const Sender: TObject; const AResource: TRemoteResource);
var
  RequestID : Integer;
  SendRec := String;
  Requester : String;
begin

Requester := AResource.Name;
if AResource.ResType = TRemoteResourceType.Data then begin     
    RequestID := AResource.Value.AsInteger;
    SendRec := GetRecord(RequestID);
//this works but I cant rely on index name due to multiple connections
//POSTetherProfile.Resources.Items[0].Value = SendRec;

    //I would prefer to use SendString to keep the requests temporary 
    //I can't figure out how to get the TTetheringProfileInfo from the AResource
    POSTetherProfile.SendString('TTetheringProfileInfo from AResource?','Response ' +            ID.AsString, SendRec);
end; 

我的资源 http://docwiki.embarcadero.com/RADStudio/XE6/en/Sharing_Data_with_Remote_Applications_Using_App_Tethering

Answer 1

经过一段时间的尝试后，我仍然找不到从发送到 OnResourceReceived 事件的参数中获取配置文件标识符的方法。

我解决此问题的方法是将配置文件标识符附加到 AResource.Hint 字符串，以便提示看起来像

"{OriginalHint};{ProfileID}"

这样我总是可以通过查看提示字符串找到配置文件标识符。

这并不理想，但在我们将配置文件标识符作为 AResource 的一部分传递之前，它会起作用。