ActiveDelphi

joscru01 · Enviada: Seg Fev 25, 2013 1:05 am Assunto: DataSnap delphi 2010 metodo http

colegas tenho um servidor e um cliente DataSnap a miha maquina com os seguintes metodos

No servidor

1 function Banco: TJSONArray;
2 function ConsultaBanco(pID : integer):TJSONArray;
3 function AcceptBanco(pBanco: TJSONValue): Boolean;
4 function UpdateBanco(pBanco: TJSONValue): Boolean;

No cliente chamado o metodo 1(Funciona)Testado

url = 'http://localhost:1050/datasnap/rest/TServerMethods1/Banco/';
http.Get(url + Trim(Edit1.Text), StreamRetorno);

No cliente chamado o metodo 2(Funciona) Testado

url = 'http://localhost:1050/datasnap/rest/TserverMethods1/ConsultaBanco/';
http.Get(url + Trim(Edit1.Text), StreamRetorno);

Não sei como chamar os metodos 3(Insert) 4(Update)

alguem poderia mim dá uma ajuda de como chamar estes metodos no servidor.

drgarcia1986 · Enviada: Ter Out 01, 2013 3:30 pm Assunto:

amigo, para o Update use o método http.post para o Accept use o http.put

[]'s
_________________
http://drgarcia1986.wordpress.com
https://github.com/drgarcia1986
http://twitter.com/drgarcia1986

renan.sanches · Enviada: Seg Out 14, 2013 8:30 am Assunto:

Conseguiu resolver???

Não estou conseguindo fazer o comando POST num servidor datasnap REST.

o método no servidor é esse:
procedure comandoPOST(const aName: string;jObject: TJSONObject);

E no cliente:

drgarcia1986 · Enviada: Seg Out 14, 2013 10:13 am Assunto:

Renan, para um método ser acessado via método POST em um servidor DataSnap, ele deve começar no nome com Update, exemplo:

procedure UpdateComandoPOST(const aName: string;jObject: TJSONObject);
_________________
http://drgarcia1986.wordpress.com
https://github.com/drgarcia1986
http://twitter.com/drgarcia1986

renan.sanches · Enviada: Seg Out 14, 2013 2:28 pm Assunto:

Sua dica me ajudou, mas ainda tinha outro problema.
Segue o código funcionando:

Método no servidor: