Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 07-11-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 22
cHackAll Va por buen camino
Código:
#include <msxml.h>

//...

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 CoInitialize(NULL);
 IXMLDOMDocument* xml;
 CoCreateInstance(CLSID_DOMDocument, NULL, CLSCTX_INPROC_SERVER, __uuidof(IXMLDOMDocument), (void**)&xml);
 short isSuccessful;
 VARIANT xmlSource = {VT_BSTR};
 xmlSource.bstrVal = SysAllocString(L"STFW.xml");
 xml->load(xmlSource, &isSuccessful);
 if (isSuccessful)
 {
  IXMLDOMElement* root;
  xml->get_documentElement(&root);
  IXMLDOMNodeList* nodes;
  root->get_childNodes(&nodes);
  IXMLDOMNode* child;
  BSTR text = new wchar_t(666);
  BSTR nodeName = new wchar_t(666);
  while (!nodes->nextNode(&child))
  {
   child->get_text(&text);
   child->get_nodeName(&nodeName);
   MessageBoxW(Handle, text, nodeName, 0);
   child->Release();
  }
  nodes->Release();
  root->Release();
 }
 SysFreeString(xmlSource.bstrVal);
 xml->Release();
 CoUninitialize();
}
Nota; aunque opino igual que coso, creo que el anterior code no se ha visto con anterioridad.

PD; el título del hilo esta mal!

Saludos
__________________
RTFM > STFW > Foro > Truco > Post > cHackAll > KeBugCheckEx
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
ejercicio jefferson Internet 15 27-03-2008 02:52:57
Ejercicio con Posiciones de dígitos gerupc Varios 19 18-08-2007 18:59:40
Problema con ejercicio en Delphi gerupc Varios 5 11-08-2007 21:39:28
ayuda con un ejercicio por favor! Albert0 JAVA 1 19-06-2007 18:29:00
Ejercicio Solarintg Varios 1 02-12-2006 15:48:07


La franja horaria es GMT +2. Ahora son las 00:25:12.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi