Conectar Delphi con la Intranet
Comenzado por
eduarcol
, jul 15 2010 07:55
11 respuestas en este tema
#1
Escrito 15 julio 2010 - 07:55
Saludos
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?
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?
#2
Escrito 15 julio 2010 - 08:21
Lo primero que se me ocurre es una VPN
Saludos
Saludos
#3
Escrito 15 julio 2010 - 08:51
También probé con una VPN pero sucede lo mismo, sera que hay una opción para transmitir solo texto desde una pagina Html
#4
Escrito 15 julio 2010 - 09:30
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
Salud OS
#5
Escrito 15 julio 2010 - 09:54
¿ 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.
#6
Escrito 15 julio 2010 - 11:55
Buenas sugerencias, probare las dos a ver que tal
#7
Escrito 05 octubre 2010 - 10:44
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.
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.
#8
Escrito 05 octubre 2010 - 03:51
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
#9
Escrito 06 octubre 2010 - 09:10
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?
#10
Escrito 06 octubre 2010 - 12:35
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.
#11
Escrito 06 octubre 2010 - 02:18
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!
Tendrías que hacer pruebas para tratar de eliminar caracteres o etiquetas que se mezclen con el texto normal.
Saludos!
#12
Escrito 06 octubre 2010 - 02:50
Lo logre asi
No me importa los TAG porque la pagina se generaria sin ellos, al menos eso pienso dejenme ver como queda.
delphi
procedure TForm1.WBDocumentComplete( Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var iall : IHTMLElement; begin if Assigned(wb.Document) then begin iall := (wb.Document AS IHTMLDocument2).body; while iall.parentElement <> nil do begin iall := iall.parentElement; end; memo1.Text := iall.outerHTML; end; end;
No me importa los TAG porque la pagina se generaria sin ellos, al menos eso pienso dejenme ver como queda.