Jump to content


Photo

Conectar Delphi con la Intranet


  • Please log in to reply
11 replies to this topic

#1 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4483 posts
  • LocationVenezuela

Posted 15 July 2010 - 07:55 AM

Saludos :D

Estoy trabajando con una intranet, donde se guardan ciertas frases en una BD firebird, la idea es que cuando el sistema abra en las sucursales se conecte a esta intranet y actualice la lista de las frases en su bd.

Que opciones puedo manejar para no generar una conexión directa a Firebird con el ZConnection. Es que noto que en ocasiones alenta la apertura.  Alguna idea que pueda descargarlo como texto desde la pagina o XML o como se puede hacer mas rápido?
  • 0

#2 Faust

Faust

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 213 posts
  • LocationDistrito Federal

Posted 15 July 2010 - 08:21 AM

Lo primero que se me ocurre es una VPN

Saludos
  • 0

#3 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4483 posts
  • LocationVenezuela

Posted 15 July 2010 - 08:51 AM

También probé con una VPN pero sucede lo mismo, sera que hay una opción para transmitir solo texto desde una pagina Html
  • 0

#4 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14448 posts
  • LocationMéxico

Posted 15 July 2010 - 09:30 AM

Y porque no evaluas un webservice donde consultes las nuevas frases y te las regrese para agregarlas a la base de datos local.

Salud OS
  • 0

#5 Marc

Marc

    Advanced Member

  • Moderadores
  • PipPipPip
  • 1484 posts
  • LocationMallorca

Posted 15 July 2010 - 09:54 AM

¿ Cuan grande es el archivo de frases ?. Si no es muy grande, entonces puedes hacer que cada día se exporte esa base de datos a un archivo externo (por ejemplo en formato valores separados por coma, o XML que también está muy estandarizado), y dejas ese archivo en una carpeta del servidor de Intranet, a la que puedan acceder las sucursales por FTP.
  • 0

#6 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4483 posts
  • LocationVenezuela

Posted 15 July 2010 - 11:55 AM

Buenas sugerencias, probare las dos a ver que tal
  • 0

#7 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4483 posts
  • LocationVenezuela

Posted 05 October 2010 - 10:44 AM

Hola a todos, estoy probando con el webservice, ya hice el servidor, pero no hayo como registrarlo en APACHE, ya que el tuto de eliseo esta en IIS

Voy a probar con la opcion de Marc, pero en lugar de un archivo una pagina PHP que pueda ser leida desde un browser a ver como sale.
  • 0

#8 Faust

Faust

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 213 posts
  • LocationDistrito Federal

Posted 05 October 2010 - 03:51 PM

Se me ocurre crear un rss al vuelo... es decir haces un php que haga la consulta aleatoria a tu base de datos mySQL donde guardas tus frases y que te regrese una estructura xml con la frase... así podrás leerla desde el xml como si fuera rss
  • 0

#9 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4483 posts
  • LocationVenezuela

Posted 06 October 2010 - 09:10 AM

He visto lo de la xml pero trabajo con firebird y no se como pasarlo a XML desde php.  Alguien sabe como hacer para leer el contenido de una pagina web desde delphi?
  • 0

#10 Kipow

Kipow

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 228 posts
  • LocationGuatemala

Posted 06 October 2010 - 12:35 PM

No deberia ser tan lenta la conexion directa? que enlaces tenes en los puntos?, si eso falla yo generaria un archivo xml o bien un archivo de texto con las sentencias update or insert comprimido y lo trasladaria por la vpn al otro punto, de ahi pues cargarlo a la BD.
  • 0

#11 felipe

felipe

    Advanced Member

  • Administrador
  • 3283 posts
  • LocationColombia

Posted 06 October 2010 - 02:18 PM

Leí algo de hacerlo con Sockets, pero según parece retorna la página en versión texto.

Tendrías que hacer pruebas para tratar de eliminar caracteres o etiquetas que se mezclen con el texto normal.


Saludos!
  • 0

#12 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4483 posts
  • LocationVenezuela

Posted 06 October 2010 - 02:50 PM

Lo logre asi



delphi
  1. procedure TForm1.WBDocumentComplete(
  2.   Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
  3. var
  4.     iall : IHTMLElement;
  5. begin
  6.   if Assigned(wb.Document) then
  7.   begin
  8.     iall := (wb.Document AS IHTMLDocument2).body;
  9.  
  10.     while iall.parentElement <> nil do
  11.     begin
  12.       iall := iall.parentElement;
  13.     end;
  14.     memo1.Text := iall.outerHTML;
  15.   end;
  16. end;



No me importa los TAG porque la pagina se generaria sin ellos, al menos eso pienso dejenme ver como queda.
  • 0




IP.Board spam blocked by CleanTalk.