FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
XML desde Internet
Buenas, estoy hgob.veaciendo una aplicación para consultar datos en la pagina www.seniat.gob.ve, la cual se le pasan los parametros metodo get y devuelve un xml, ya lo tengo en un string el siguiente xml
Cita:
|
#2
|
||||
|
||||
Hola webmasterplc.
Si cadena xml ya está almacenada en una variable de tipo string y no teniendo mas datos en que basarme que la misma cadena que mostras, sólo se me ocurre esto... En el ejemplo se obtienen los cuatro primeros datos: Código:
... implementation uses StrUtils; procedure PasarDatos(const XMLStr: string; SL: TStrings); const DESDE : array[1..4] of string = ('rif:numeroRif="', '<rif:Nombre>', 'rif:AgenteRetencionIVA>', '<rif:ContribuyenteIVA>'); HASTA : array[1..4] of string = ('">', '<' ,'<' , '<'); var i, p1, p2 : Integer; begin for i:= 1 to 4 do begin p1 := Pos(DESDE[i], XMLStr) + Length(DESDE[i]); p2 := PosEx(HASTA[i], XMLStr, p1); SL.Add(Copy(XMLStr, p1, p2-p1)); end; end; // Ejemplo de llamada: procedure TForm1.Button1Click(Sender: TObject); var XMLResult : string; begin XMLResult := Obtener_CadenaXML_Desde_SENIAT; PasarDatos(XMLResult,ListBox1.Items); end; Saludos. Edito: Tuve que cambiar las etiquetas [delphi] [/delphi] por que con estas se perdían algunos contenidos de las constantes de cadena.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 18-05-2013 a las 11:06:21. |
#3
|
|||
|
|||
Hermano gracias Funciona perfecto
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como ver mi Servidor desde internet | kurono | Redes | 35 | 18-07-2012 05:14:10 |
Conectando Firebird desde internet | Fita | Conexión con bases de datos | 11 | 26-11-2008 14:13:05 |
Descargar fichero 25 Mb desde internet | fmatias | Internet | 4 | 06-07-2007 17:43:59 |
Acceso a mi data desde internet !!!! | david_uh | Varios | 21 | 03-07-2007 14:44:14 |
acceder a mi pc desde internet | ebeltete | Redes | 4 | 27-08-2006 19:35:05 |
|