Avatar
BETEA
Participante
BETEA

BUenos dias,

Yo para llamar a un webService externo, he hecho algo asi:

    procedure SendContacts(var pContactTxt: text)
var
lMensaje: Text;
Client: HttpClient;
ResponseMessage: HttpResponseMessage;
httpRequest: HttpRequestMessage;
Headers: HttpHeaders;
url: Text;
ResponseText: Text;
Content: HttpContent;
ContentTxt: Text;
begin
Content.Clear();
Content.GetHeaders(Headers);
lMensaje := pContactTxt;
Content.WriteFrom(lMensaje);
Headers.Remove(‘Content-Type’);
Headers.Remove(‘Charset’);
Headers.Add(‘Content-Type’, ‘application/json’);
Headers.Add(‘Charset’, ‘utf-8’);
httpRequest.Content(Content);
httpRequest.Method(‘POST’);

url := ‘http://xxxxxx.com/webservice/create-contact’;
client.Clear();
Client.SetBaseAddress(url);
if not Client.Send(httpRequest, ResponseMessage) then
error(‘Llamada incorrecta’);
if not ResponseMessage.IsSuccessStatusCode then
Error(‘El WS ha devuelto el siguiente error:\’ +
‘Status Code : %1\’ +
‘Descripcion: %2’,
ResponseMessage.HttpStatusCode,
ResponseMessage.ReasonPhrase);

ResponseMessage.Content.ReadAs(ResponseText);
Message(‘Contacto(s) enviados’);
end;

Me imagino que llamar a un serviceo web publicado en BC sera lo mismo

 

#1016839