Boa tarde.
Um cliente quer me envie um arquivo .xml
Criei um projeto DataSnap Rest Application.
Fiz a implementação do metodo da seguinte forma para JSON
function TFo_SM_Fornecedor.updateFornecedor(TObjJson: TJsonObject): TJsonValue;
Var
Fornecedor: TFornecedor;
begin
Fornecedor := TJson.JsonToObject<TFornecedor>(TObjJson.toJson);
Try
Result := TJSONString.Create('Incluindo Cliente..: ' +
Fornecedor.tx_razaosocial);
Finally
FreeandNil(Fornecedor);
End;
end;
Para receber um tipo TJsonObject funciona perfeitamente.
Mas como falei no inicio irei receber um .xml.
Já fiz vários códigos em delphi para receber um xml e colocar os valores na base, mas é a primeira vez que tenho que desenvolver um servidor e estou sem uma direçõo.
Algum dos colegas pode me dar uma luz?
A principio ( já a alguns dias) estou tentando mudar o parâmetro da linha
function TFo_SM_Fornecedor.updateFornecedor(TObjJson: TJsonObject):
para algo do tipo
function TFo_SM_Fornecedor.updateFornecedor(pArquivo_XML: TStringTream):
Mas estou sem sucesso. Se algum dos senhores puder me fornecer uma luz agradeço.