Enviando Arquivo XML de um Serviço Delphi para webservice PHP

PHP

Delphi

10/04/2017

Bom dia Galera,

Sou novo aqui no fórum e gostaria de uma forcinha.

Preciso enviar arquivos XML para um webservice PHP via json.

Alguém poderia mostrar algum exemplo?

Desculpe se já existir algum tópico desse mas não consegui encontrar.
Neander Almeida

Neander Almeida

Curtidas 0

Respostas

Jose

Jose

10/04/2017

Veja se este link pode te ajudar
https://www.devmedia.com.br/datasnap-transferencia-de-dados-entre-aplicacoes-cliente-servidor/27020
GOSTEI 0
Neander Almeida

Neander Almeida

10/04/2017

Ajudou sim, da pra ter uma base de como faz a comunicação, porem o que eu preciso é fazer um envido de um arquivo XML, o arquivo mesmo, Já tenho o serviço criado porem não faz o enviio de arquivos

Acredito que seja de outra forma essa comunicação
GOSTEI 0
Raylan Zibel

Raylan Zibel

10/04/2017

Segue.
uses Classes, System, IdHttp, IdGlobal;

function RequestRespose(JsonStr: string): string;
var
  AuxStr: string;
  Response: string;
  idHTTP: TIdHTTP;
  MS: TMemoryStream;
  Request: OleVariant;
begin
  Screen.Cursor := crHourGlass;
  Result := '';
  MS := nil;
  idHTTP := TIdHTTP.Create(Application);
  try
    with idHTTP.Request do
    begin
      Method := 'POST';
      ContentType := 'application/json';
      URL := URLAPI;
      //CustomHeaders.Values['X-Api-Key'] := KEYAPI;
    end;
    AuxStr := JsonStr;
    MS := TMemoryStream.Create;
    WriteStringToStream(MS, AuxStr, IndyUTF8Encoding);
    MS.Position := 0;
    try
      Response := idHTTP.Post(idHTTP.Request.URL, MS);
    except
      on e: EIdHTTPProtocolException do
      begin
        Response := e.ErrorMessage; // json com detalhe do erro
      end;
    end;
  finally
    Screen.Cursor := crDefault;
    MS.Free;
    idHTTP.Free;
  end;
  Result := Response;
end;
GOSTEI 0
POSTAR