Busqueda de un ISBN en DILVE por llamadas HTTP a su API (respuesta en XML)

[M.L.Casellas]

Hola;


Abro este nuevo hilo, porque considero que es mejor a la hora de que alguien busque información sobre este tema. En un anterior hilo (http://clubdelphi.com/foros/showthread.php?t=79288) pedía ayuda para leer los ficheros .xml que DILVE (http://www.dilve.es/dilve/dilveweb/index_dilve.jsp) devuelve al hacerle llamadas http. El título de ese hilo no es descriptivo para el tema en cuestión y además es algo lioso, lo siento.


Y también, para colaborar y poder ayudar a otros aquí en la comunidad :)


Así que, aquí va este hilo que es la forma en que ya he solucionado el problema, y para que pueda servir a alguien más que en un futuro necesite programar (para una librería por ejemplo, como es mi caso) llamadas a DILVE (http://www.dilve.es/dilve/dilveweb/index_dilve.jsp).


Así es como yo he conseguido hacerlo al final, y va estupendamente, al instante, en 1 segundo tengo los datos que quiero del ISBN solicitado, es una maravilla ;)


Bueno, al grano:


Después de comprarme y leerme la mitad del libro XML-Edición 2012 (http://www.casadellibro.com/libro-xml-edicion-2012-manual-imprescindible/9788441529601/1895764) de Miguel Ángel Acera García (http://seindor.com/maacera.com/acerca-de-miguel-angel-acera-3?utm_expid=26280487-1&utm_referrer=http%3A%2F%2Fwww.google.es%2Furl%3Fsa%3Dt%26rct%3Dj%26q%3Dmiguel%2520%25C3%25A1ngel%252 0acera%2520garc%25C3%25ADa%26source%3Dweb%26cd%3D1%26ved%3D0CFIQFjAA%26url%3Dhttp%253A%252F%252Fsein dor.com%252Fmaacera.com%252F%26ei%3DBXXrT__sBITDtAb3i_nPBQ%26usg%3DAFQjCNGQxmfLyf0oTsjs0eAE7hHZyHDbU g), buscar info por internet etc…etc…He conseguido aprender bastante sobre el XML y como tratarlo en Delphi.


El asunto en cuestión es pedir a DILVE (http://www.dilve.es/dilve/dilveweb/index_dilve.jsp) los datos de un libro, enviándoles el código ISBN. Si la llamada es correcta, ellos devuelven un fichero en formato .XML con la ficha de dicho libro.
DILVE trabajan con el formato internacional ONIX for Books (http://www.editeur.org/8/ONIX/) (Del cual me he bajado y leido parte de la documentación).


Bien, lo primero que hago es la llamada a la URL con los parametros adecuados:

XMLDocument1.LoadFromFile(‘http://www.dilve.es/dilve/dilve/getRecordsX.do?user=*************&password=***********&identifier=9788467036350&metadataformat=ONIX&version=3.0 (http://www.dilve.es/dilve/dilve/getRecordsX.do?user=mnavarrorico01&password=KGW44S67&identifier=9788467036350&metadataformat=ONIX&version=3.0)’);




URL de DILVE + La llamada “getRecordsX” que es la que pide un sólo registro + Nombre de usuario + Contraseña + Identificador(el ISBN/Cod.Barras) + El formato que deseamos (ONIX etiquetas largas, ONIX, etiquetas cortas, CSV….) + La versión que queremos (DILVE trabaja internamente con la 2.1 que ya es antigua, pero también sirve la 3.0 que es la actual).


Después ejecuto el procedure que he creado para la carga de los datos:

XmlToMe(XMLDocument1.DocumentElement);



Y el procedure es el siguiente (va con comentarios):

procedure TFormPrincipal.XmlToKios(XmlNode: IXMLNode);
var
I: Integer;
I2: Integer;
NodeText: String;
AttrNode: IXMLNode;
Atributos: String;
AutorPerson, AutorPersonInverted: Boolean;

begin
AutorPerson := False;
AutorPersonInverted := False;


// Desechamos nodos que no sean elements


if XmlNode.NodeType <> ntElement then
Exit;


// Asignamos el nombre del nodo a la variable
NodeText:= XmlNode.NodeName;


// Comprobamos si la cabecera es correcta o devuelve error


if XmlNode.NodeName = 'ONIXMessage' then
for I := 0 to XmlNode.AttributeNodes.Count - 1 do // leemos los parametros
begin
AttrNode:= XmlNode.AttributeNodes.Nodes[I];
Atributos := Atributos + ' ' + AttrNode.NodeName + '=' + '"' + AttrNode.Text + '"';
end;



Caption := Caption + ' <' + XmlNode.NodeName + Atributos + '>';



end;


// Si la respuesta es error, se muestra un mensaje con el código y texto del error


if XmlNode.NodeName = 'error' then
begin
errores := True;
end;


// Comprobamos el tipo de notificación. '03' es para fichas completas. El
// resto pueden ser updates y otros...
// la etiqueta 'Product' es repetible si se piden listados, en este caso es
// Existen etiquetas que se llaman igual dentro de distintos bloques, por
// lo que hay que comprobar que cuelgan del adecuado
if (XmlNode.NodeName = 'NotificationType') and
(XmlNode.ParentNode.NodeName = 'Product') then
begin
if Not (XmlNode.NodeValue = '03') then
begin
ShowMessage('No se trata de una ficha completa de libro');
errores := True;
end;
end;


// Ahora ya comenzamos a leer los campos que nos interesan


// TITULO


if (XmlNode.NodeName = 'TitleDetail') and
(XmlNode.ParentNode.NodeName = 'DescriptiveDetail') and
(XmlNode.ParentNode.ParentNode.NodeName = 'Product') and
(XmlNode.ChildNodes['TitleType'].Text = '01') then
begin
XmlNode := XmlNode.ChildNodes['TitleElement'];
if XmlNode.ChildNodes['TitleElementLevel'].Text = '01' then
begin
EditTitulo.Text := XmlNode.ChildNodes['TitleText'].Text;
end;
end;


// AUTOR/ES


// Aquí pueden estar las dos etiquetas a la vez: inverted y normal
// me decanto por la Inverted


if (XmlNode.NodeName = 'Contributor') and
(XmlNode.ParentNode.NodeName = 'DescriptiveDetail') and
(XmlNode.ParentNode.ParentNode.NodeName = 'Product') and
(XmlNode.ChildNodes['ContributorRole'].Text = 'A01') then
begin
//Recorremos todos los child para ver los que hay
for I2 := 0 to XmlNode.ChildNodes.Count - 1 do
begin
if XmlNode.ChildNodes[I2].NodeName = 'PersonName' then
begin
AutorPerson := True;
end;
if XmlNode.ChildNodes[I2].NodeName = 'PersonNameInverted' then
begin
AutorPersonInverted := True;
end;
end;


// Según las etiquetas, si está la opción Inverted la utlizamos prioritariamente


if AutorPersonInverted then
begin
if EditAutores.GetTextLen > 0 then
begin
EditAutores.Text := EditAutores.Text + ' | ' + XmlNode.ChildNodes['PersonNameInverted'].Text;
end else
begin
EditAutores.Text := XmlNode.ChildNodes['PersonNameInverted'].Text;
end;
end else
if AutorPerson then
begin
if EditAutores.GetTextLen > 0 then
begin
EditAutores.Text := EditAutores.Text + ' | ' + XmlNode.ChildNodes['PersonName'].Text;
end else
begin
EditAutores.Text := XmlNode.ChildNodes['PersonName'].Text;
end;
end;
end;


// EDITORIAL


if (XmlNode.NodeName = 'Publisher') and
(XmlNode.ParentNode.NodeName = 'PublishingDetail') and
(XmlNode.ParentNode.ParentNode.NodeName = 'Product') and
(XmlNode.ChildNodes['PublishingRole'].Text = '01') then
begin
EditCodEditorial.Text := XmlNode.ChildNodes['PublisherIdentifier'].ChildNodes['IDValue'].Text;
EditEditorial.Text := XmlNode.ChildNodes['PublisherName'].Text;
end;


// PRECIO CON IVA
if (XmlNode.NodeName = 'Price') and
(XmlNode.ParentNode.NodeName = 'SupplyDetail') and
(xmlNode.ParentNode.ParentNode.NodeName = 'ProductSupply') and
(XmlNode.ParentNode.ParentNode.ParentNode.NodeName = 'Product') and
(XmlNode.ChildNodes['CurrencyCode'].Text = 'EUR') and
(XmlNode.ChildNodes['PriceType'].Text = '04') then
begin
EditPvp.Text := XmlNode.ChildNodes['PriceAmount'].Text + ' €';
end;


// EL IVA (%)


if (XmlNode.NodeName = 'Tax') and
(XmlNode.ParentNode.NodeName = 'Price') and
(XmlNode.ParentNode.ParentNode.NodeName = 'SupplyDetail') and
(XmlNode.ParentNode.ParentNode.ParentNode.NodeName = 'ProductSupply') and
(XmlNode.ParentNode.ParentNode.ParentNode.ParentNode.NodeName = 'Product') and
(XmlNode.ChildNodes['TaxType'].Text = '01') then
begin
EditIva.Text := XmlNode.ChildNodes['TaxRatePercent'].Text + ' %';
end;


// Recorremos los nodos hijos si lo hay
if XmlNode.HasChildNodes then
for I := 0 to XmlNode.ChildNodes.Count - 1 do
XmlToKios(XmlNode.ChildNodes.Nodes[I]);

// Si ha habido errores, limpiamos los edits
if errores then
begin
LimpiarCampos.Execute;
end;


// Deberiamos capturar el error enviado por el servidor en formato .xml
// y mostrar el mensaje adecuado, según la tabla de DILVE, ya que estos
// pueden ser de conexión, mantenimiento del servidor, isbn no encontrado,
// isbn mal formado, etc.
// ¿Que tal si preguntamos en el ClubDelphi? ¡Vale! Vamos allá.......


end;





Lo que hago es recorrer el documento. Apenas tarda un segundo (se tarda mucho más en dar de alta el libro a mano).


Decir que hay campos (nodos) que son repetibles y ya dependen de otros nodos hijo, del código que lleven.


Me falta alguna cosilla en realidad, y se trata del tema de errores. Veréis: si hago esta llamada desde el Internet Explorer y el ISBN o existe por ejemplo, pues el IE se queda en blanco, mostrando una pantalla de error propia, pero no recoge el .xml de error que envía DILVE (ya meré en ver código fuente de la página)……. ¡Firefox si lo hace! Firefox si, y así pude recoger el .xml en cuestión para ver como era.


Entonces, yo me preguntaba que ocurriría en mi codigo……pues…..al estilo IE …no me llega el .xml de error.
Lo suyo sería poder recoger ese .xml de error y procesarlo según la tabla de errores de DILVE (http://www.dilve.es/dilve/dilveweb/index_dilve.jsp), para saber si es por mantenimiento del servidor, isbn no encontrado, etc. De momento, pues muestro un error general.



¿Alguien sabe hacer para que mi llamada recoja el .xml de error? Ese .xml lleva la cabecera como el otro, pero después sólo lleva 2 datos: el número de error y una descripción (en inglés).


Bueno, espero que esto pueda servir de ayuda a alguien. Por supuesto, para probarlo hace falta tener User y Password de DILVE (http://www.dilve.es/dilve/dilveweb/index_dilve.jsp). Yo utilizo la de la librería para quien hago esto. Pero aquí queda, para quien llegara a encontrarse en mi situación y buscara info.




Y por supuesto, seguro que este código es mejorable, así que cualquier consejo, sugerencia, lo que sea, lo agradecería

¡Un saludo!

[M.L.Casellas]

Un pequeño apunte:

Al principio he llamado al procedure 'DilveToMe' (XmlToMe(XMLDocument1.DocumentElement);) Y después en el código completo del procedure lo llamé 'DilveToKios'. Ha sido un fallo mio al teclear, ha de ser lo mismo...sorry :p

[chamix]

¡Me alegro de que hayas visto la luz!

Desde mi ignorancia, te diría lo siguiente:

¿Has probado a hacer la llamada desde un TWebBrowser? veo que cargas el fichero directamente en el XMLDocument, quizás usando tu propio browser funcione ¿? Por probar...

¿Has probado las otras opciones que te da DILVE? no tengo ni idea de como funciona, pero he visto que puedes descargar los datos de otras formas (FTP, EMail...) además de las llamadas URL.

Y por último. Has preguntado a DILVE, según dicen, tienen un servicio de ayuda gratuito y por lo que estás diciendo, seguro que alguien más les ha preguntado por ese error, porque supongo que habrá algún otro usuario que use explorer...

**Lo del error de escritura es lo primero que se ve al buscar el procedimiento :-) pero creo que se entiende perfectamente.

Saludos y suerte!

[M.L.Casellas]

Gracias de nuevo, chamix...

Acabo de probar con el TWebBrowser y se comporta como el IE :(

De todas formas estudiaré a ver las opciones del TWebBrower que también es un desconocido para mi. La verdad es que hasta ahora no he tenido que hacer nada relacionado con internet.

También se me ocurre con lo que comentas, que en el caso de error pues también puedo descargar el fichero por ftp. Solamente en los casos de error para poder procesarlo correctamente.

Lo hago directamente con el componente XMLDocument para mayor rapidez y sencillez. De momento pienso eso, sólo en caso de error, optar por bajar el fichero (hasta que si es posible, encontrar la forma de trabajarlo con el mismo XMLDocument).


¡Un saludo!

[M.L.Casellas]

Ah, en cuanto a lo de contactar con DILVE, ya lo hice también y me aclararon un par de dudas que tenía (nada que ver con Delphi, claro.). Todo por e-mail, aunque podría haber hablado por teléfono desde la librería, ya que son usuarios (para los no-usuarios solamente es posible con e-mail). Pero vamos, me respondieron en menos de 24 horas y muy amables y serviciales. De hecho ya hablé hace un tiempo, cuando supe de DILVE, por teléfono y lo mismo, muy atentos.

[chamix]

¿Has probado a hacer la llamada vía FTP directamente? si lo carga vía URL no veo porque no lo iba a hacer de esta manera.

XMLDocument1.LoadFromFile(‘user:pass@FTP://ftp.dilve.es/loqueseaquevengadespues’);

te escribo lo primero que se me ocurre... Pero ¿quien sabe?

[M.L.Casellas]

No lo tengo claro si se puede pedir por ftp un registro sólo. Mañana lo consultaré con DILVE y ya os cuento. Ahora (que ya son la 01:00 de la madrugada casi :P ) me voy al catre jeje.

Bye! :-)

[M.L.Casellas]

Hola;

Ya me han respondido en DILVE acerca del error. La respuesta que me han dado es esta:

"
Efectivamente, en el caso de las llamadas getRecordListX, getRecordStatusX y getRecordsX, deberíamos devolver en casi todos los casos un HTTP Status 200 ya que el error se indica dentro del XML de la respuesta.

Incluiremos esta modificación en próximas versiones y le avisaremos cuando esté disponible (seguramente en 3 semanas). Le pedimos disculpas por los inconvenientes que este error haya podido causarle. "


Claro, supongo que así si llegará el documento .xml de error, ya que es status será correcto. Pues nada, esperaremos para controlar los errores :)


¡Un saludo!

[M.L.Casellas]

Bueno, pues ya han corregido el http status que envian, tal como me dijeron. Ahora ya se recibe bien el xml de error. Ya hace una semana más o menos que me avisaron, pero se me pasó contarlo aquí. La verdad es que son muy serviciales estos de DILVE :)

Pues nada, sólo quería contarlo, fin de la historia, jeje. O bueno, lo dejaremos como Holmes en la segunda parte: The End ?

¡Un saludo!

[Casimiro Notevi]

Gracias por contarlo :)