Estou tentando fazer alterar o registro do meu banco através de um webservice rest em java, os teste no webservice funcionaram, mas no client estou tendo problema para funcionar.
Obs.: Utilizo Delphi XE8(Client) e Netbeans(WS)
WS:
@PUT
@Consumes(MediaType.APPLICATION_JSON)
@Path ("Banco/put/{codigo}")
public String putBanco(@PathParam("codigo") int codigo, String nome) {
BancoCTR ctr = new BancoCTR();
ctr.setBcoNome(nome);
BancoDAO dao = new BancoDAO();
String resposta = dao.editBanco(codigo, ctr);
Gson gson = new Gson();
return gson.toJson(resposta);
}
Quando faço o teste direto, esta funcionando:
porém estou com uma duvida, public String putBanco(@PathParam("codigo") int código, String nome)
o PathParam faz com que eu tenha acesso a essa variável "código", porém como eu terei acesso a variavel "nome" no client?
Client:
procedure TForm1.btn2Click(Sender: TObject);
var
LJson: TJSONValue;
begin
rstrspns1.RootElement := 'object';
with rstrqst1 do
begin
Resource := '/Banco/put/{codigo}';
Method := rmPUT;
Params.AddUrlSegment('codigo', edt1.Text);
Params.AddItem('nome', edt2.Text, TRESTRequestParameterKind.pkGETorPOST);
Execute;
LJson := Response.JSONValue As TJSONObject;
MessageDlg(LJson.ToString, mtInformation, [mbOK], 0);
end;
end;
pensei em utilizar Params.AddItem('nome', edt2.Text, TRESTRequestParameterKind.pkGETorPOST);
pra ter acesso a variável nome, mas, quando executo recebo os erros:
quando tendo depurar:
o erro ocorre na linha Execute;