Post données JSON à RESTful serveur datasnap de delphes client

J'ai besoin d'envoyer un simple objet JSON pour un séjour Reposant serveur datasnap (Delphi) à partir d'un client Delphi. Je suis à l'aide de Delphi XE. Quelqu'un peut-il m'aider avec le code? Je suis en train d'essayer pendant des heures, mais ne pas l'obtenir. s'il vous Plaît demander si les détails ne sont pas suffisantes

Edit:
Ici est côté serveur déclaration de méthode:

procedure updatemethodnme(str:string):string;

et ici, c'est côté client code:

function PostData(request: string): boolean;
var
param: TStringList;
url, Text,str: string;
code: Integer;
http: TIDHttp;
begin
Result:= false;
http:= TIDHttp.Create(nil);
http.HandleRedirects:= true;
http.ReadTimeout:= 50000;
http.request.Connection:= 'keep-alive';
str:= '{"lamp":"'+lamp+'","floor":"'+floor+'","op":"'+request+'"}';
param:= TStringList.Create;
param.Clear;
param.Add(str);
url:= 'h***p://xx2.168.xx.xx:xxxx/Datasnap/rest/TserverMethods1/methdname/';
try
Text:= http.Post(url, param);
Result:= true;
except on E: Exception do
begin
Result := false;
end;
end;
end;
Veuillez prendre un moment pour vous expliquer un peu plus en détail quels sont les problèmes que vous avez été confrontés. Avez-vous du code d'essai, vous pouvez poster afin que nous puissions voir ce que vous avez essayé?
Alors, où voulez-vous obtenez une erreur? Pouvez-vous vérifier sur le serveur que vous recevez réellement quelque chose? En regardant le code, je dirais que c'est comme si il doit travailler.
Le serveur ne reçoit pas de quoi que ce soit. côté client, il est parfois montrant erreur interne du serveur d'exception, n quelque temps, pas d'erreur mais rien ne se passe.
Vous validez les données à l'aide d'un TStringList mais vous avez besoin de l'afficher à l'aide d'un TStream à la place. L'affichage d'une TStringList crée un genre très différent de la requête HTTP plutôt que de poster un TStream, qui affecte la façon dont le serveur interprète et analyse de la demande.

OriginalL'auteur Prince Agrawal | 2013-07-27