Consumir servicio web con WDSL - autentificación WS-Security

[frankizzio]

Gracias Jhonny, tuve una semana informándome de los conceptos de este tipo de web service aún me falta mucho pero allí vamos.

[HubelSB]

Saludos tambien trabajo con el tema de la SUNAT y en delphi, sobre el proceso de formar los XML utilize las plantillas de sunat y lo pase a un decodificador que me genera codigo fuente a partir del XML de la SUNAT, asi el proceso se hizo repetitivo para el kit de homologacion, en la parte de cifrado estoy utilizando XMLSec que lo ejecuto en segundo plano, una vez listo el XML firmado lo comprimo con 7zip, y ahora estoy en la parte de envio, estare subiendo todo el codigo, conforme avance, aunque recientemente recibi una charla por parte de la SUNAT donde se me informo sobre el SISTEMA FACTURADOR SUNAT, al cual solo hay que pasarle archivos planos, TXTs, con los campos a enviar y hace todo el proceso en el que hemos estado trabajando, voy a probarlo, si funciona todo ok, quedaria un camino mas en caso no terminar con el codigo.

[D1360666]

Hola yo estoy con un problema similar.
Importe el wsdl con el importer, pero no sé como generar el WS-SECURITY.
tengo un WSDL para desarrollar facturación electrónica en Uruguay.

En caso de no importar con el Importer.

Manualmente como se debe hacer?

Gracias saludos!!

[HubelSB]

1). Con el WSDL Importer, darle la direccion del WS, para mi caso :

https://e-beta.sunat.gob.pe/ol-ti-it...llService?wsdl

se genera la unidad billService1.pas

la cual contiene la siguiente funcion GetbillService, ojo segun las versiones de delphi estas cambian en D7 y D2007 no se soportan los InvRegistry.RegisterParamInfo, si quieres generar un billService para versiones antiguas marca la opcion TXSxxxx for simple nillable, asi se genera un billservice capaz de usarse en versiones anteriores, yo estoy usando XE4 y bueno ahora D10.1 Berlin, esto de los webservices es mejor hacerlo con versiones nuevas, aunque las antiguas generan ejecutables mas rapidos.

2). Utilizar billservice1.pas

Para mi caso hay securidad ws-token, asi que para implementar la cabecera donde enviar el usuario y clave use THTTPReqResp

En un boton poner el siguiente codigo, ojo para la SUNAT peru, nos responde con un zip dentro del cual esta un xml con la respuesta si el documento ha sido aceptado o no, el archivo tiene que ser cargado en un array de bytes asi que lineas mas abajo te dejo los procedure que use.

Aun no termino el proyecto, ahora con wireshark estoy examinando como viajan los paquetes hacia el servidor, con la finalidad de ver si cumplen con el estandar que solicita SUNAT, cuando lo tengo listo lo libero hubelsolis@hotmail.com


procedure TForm1.Button1Click(Sender: TObject);
const
defWSDL = 'https://e-beta.sunat.gob.pe/ol-ti-itcpfegem-beta/billService?wsdl';
defURL = 'https://e-beta.sunat.gob.pe:443/ol-ti-itcpfegem-beta/billService';
defSvc = 'billService';
defPrt = 'BillServicePort';
var
tBillServ : billService;
Archivo : String;
Envio : TByteDynArray;
Respuesta : TByteDynArray;

HTTPReqResp1: THTTPReqResp;
HTTPRIO1 : THTTPRIO;
begin
HTTPReqResp1 := THTTPReqResp.create(nil);
HTTPReqResp1.Password := 'moddatos';
HTTPReqResp1.username := '20489697042MODDATOS';

HTTPRIO1 := THTTPRIO.Create(nil);
HTTPRIO1.HTTPWebNode := HTTPReqResp1;
HTTPRIO1.WSDLLocation := defWSDL;
HTTPRIO1.Service := defSvc;
HTTPRIO1.Port := defPrt;

// levanto el servicio
tBillServ:=GetbillService(TRUE,'',HTTPRIO1);
Archivo:='20489697042-03-BB01-00000003.ZIP';
envio:= FileToByteArray('D:\'+Archivo);

// envio
try
respuesta:=tBillServ.sendBill(Archivo,envio);
except
on E : Exception do
ShowMessage(E.ClassName+' error raised, with message : '+E.Message);
end;

ByteArrayToFIle(respuesta, 'D:\respuestas\rptab.zip' );

end;



procedure ByteArrayToFIle(const ByteArray : TByteDynArray; const FileName : string );
var Count : integer;
F : FIle of Byte;
pTemp : Pointer;
begin
AssignFile( F, FileName );
Rewrite(F);
try
Count := Length( ByteArray );
pTemp := @ByteArray[0];
BlockWrite(F, pTemp^, Count );
finally
CloseFile( F );
end;
end;

function FIleToByteArray( const FileName : string ) : TByteDynArray;
const BLOCK_SIZE=1024;
var BytesRead, BytesToWrite, Count : integer;
F : FIle of Byte;
pTemp : Pointer;
begin
AssignFile( F, FileName );
Reset(F);
try
Count := FileSize( F );
SetLength(Result, Count );
pTemp := @Result[0];
BytesRead := BLOCK_SIZE;
while (BytesRead = BLOCK_SIZE ) do
begin
BytesToWrite := Min(Count, BLOCK_SIZE);
BlockRead(F, pTemp^, BytesToWrite , BytesRead );
pTemp := Pointer(LongInt(pTemp) + BLOCK_SIZE);
Count := Count-BytesRead;
end;
finally
CloseFile( F );
end;
end;

[D1360666]

Muchas gracias amigos Husbel.
Lo voy a probar y les aviso como me fué.
Saludos.

[Casimiro Notevi]

Empezado por HubelSB

1)...

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[D1360666]

Husbel amigo te consulto.
En lugar de utilizar ws-token, si uso username utilizo el mismo componente??

[D1360666]

Tengo una duda. Porque he probado muchas cosas y no llego a poder agregar un header de seguridad al comunicarme con un WS con el componente HTTPRIO y el Wsdl importer.

Estoy comunicando con un sistema de facturación eletrónica en Uruguay.
Importo el Wsdl, agrego un HTTPRIO, pero al tener seguridad la comunicación con ws-token, username y password.
Como tengo que hacer para agregar un header a la comunicación, si hay algún ejemplo les agradezco amigos.

He leído un poco sobre InvokeRegistry, etc pero no llego a una solución.
Gracias, saludos!!

[jpanta]

Empezado por HubelSB

1). Con el WSDL Importer, darle la direccion del WS, para mi caso :

https://e-beta.sunat.gob.pe/ol-ti-it...llService?wsdl

se genera la unidad billService1.pas

la cual contiene la siguiente funcion GetbillService, ojo segun las versiones de delphi estas cambian en D7 y D2007 no se soportan los InvRegistry.RegisterParamInfo, si quieres generar un billService para versiones antiguas marca la opcion TXSxxxx for simple nillable, asi se genera un billservice capaz de usarse en versiones anteriores, yo estoy usando XE4 y bueno ahora D10.1 Berlin, esto de los webservices es mejor hacerlo con versiones nuevas, aunque las antiguas generan ejecutables mas rapidos.

2). Utilizar billservice1.pas

Para mi caso hay securidad ws-token, asi que para implementar la cabecera donde enviar el usuario y clave use THTTPReqResp

En un boton poner el siguiente codigo, ojo para la SUNAT peru, nos responde con un zip dentro del cual esta un xml con la respuesta si el documento ha sido aceptado o no, el archivo tiene que ser cargado en un array de bytes asi que lineas mas abajo te dejo los procedure que use.

Aun no termino el proyecto, ahora con wireshark estoy examinando como viajan los paquetes hacia el servidor, con la finalidad de ver si cumplen con el estandar que solicita SUNAT, cuando lo tengo listo lo libero hubelsolis@hotmail.com


procedure TForm1.Button1Click(Sender: TObject);
const
defWSDL = 'https://e-beta.sunat.gob.pe/ol-ti-itcpfegem-beta/billService?wsdl';
defURL = 'https://e-beta.sunat.gob.pe:443/ol-ti-itcpfegem-beta/billService';
defSvc = 'billService';
defPrt = 'BillServicePort';
var
tBillServ : billService;
Archivo : String;
Envio : TByteDynArray;
Respuesta : TByteDynArray;

HTTPReqResp1: THTTPReqResp;
HTTPRIO1 : THTTPRIO;
begin
HTTPReqResp1 := THTTPReqResp.create(nil);
HTTPReqResp1.Password := 'moddatos';
HTTPReqResp1.username := '20489697042MODDATOS';

HTTPRIO1 := THTTPRIO.Create(nil);
HTTPRIO1.HTTPWebNode := HTTPReqResp1;
HTTPRIO1.WSDLLocation := defWSDL;
HTTPRIO1.Service := defSvc;
HTTPRIO1.Port := defPrt;

// levanto el servicio
tBillServ:=GetbillService(TRUE,'',HTTPRIO1);
Archivo:='20489697042-03-BB01-00000003.ZIP';
envio:= FileToByteArray('D:\'+Archivo);

// envio
try
respuesta:=tBillServ.sendBill(Archivo,envio);
except
on E : Exception do
ShowMessage(E.ClassName+' error raised, with message : '+E.Message);
end;

ByteArrayToFIle(respuesta, 'D:\respuestas\rptab.zip' );

end;



procedure ByteArrayToFIle(const ByteArray : TByteDynArray; const FileName : string );
var Count : integer;
F : FIle of Byte;
pTemp : Pointer;
begin
AssignFile( F, FileName );
Rewrite(F);
try
Count := Length( ByteArray );
pTemp := @ByteArray[0];
BlockWrite(F, pTemp^, Count );
finally
CloseFile( F );
end;
end;

function FIleToByteArray( const FileName : string ) : TByteDynArray;
const BLOCK_SIZE=1024;
var BytesRead, BytesToWrite, Count : integer;
F : FIle of Byte;
pTemp : Pointer;
begin
AssignFile( F, FileName );
Reset(F);
try
Count := FileSize( F );
SetLength(Result, Count );
pTemp := @Result[0];
BytesRead := BLOCK_SIZE;
while (BytesRead = BLOCK_SIZE ) do
begin
BytesToWrite := Min(Count, BLOCK_SIZE);
BlockRead(F, pTemp^, BytesToWrite , BytesRead );
pTemp := Pointer(LongInt(pTemp) + BLOCK_SIZE);
Count := Count-BytesRead;
end;
finally
CloseFile( F );
end;
end;

Hola, he revisado tu código y trabaja sin problemas, al menos lo he probado con delphi xe7 y normal pero estoy tratando de utilizar la WSDL de Consultas pero tengo problemas, siempre me devuelve el siguiente mensaje EL ENCABEZADO DE SEGURIDAD ES INCORRECTO, estoy usando el mismo codigo que usaste para Sendbill

textoxml:=memo1.Lines.Text;//en este memo tengo todo el XML
try
respuesta:=tBillServ.getStatus(textoxml);
except
on E : Exception do
ShowMessage(E.ClassName+' error raised, with message : '+E.Message+'/'+E.ToString);
end;
showmessage(respuesta);

Podrias ayudarme con este problema?