mRoman
10-08-2011, 06:14:44
Hola buenas noches amigos.
Tengo un problema que trato de solucionar. Les explico.
Desarrollé una aplicacion hecha en Delphi6 con FireBird 1.5. Estoy tratando de hace lo siguiente:
Copiar un archivo PDF desde una máquina cliente hacia el servidor de la base de datos. Estos equipos estan conectados a una RED LAN usando WinXP. Ambos equipos usan este sistema operativo.
Lo que he hecho:
He consultado estos hilos
http://www.clubdelphi.com/foros/showthread.php?t=72767&highlight=copiar+archivos+a+un+servidor
http://www.clubdelphi.com/foros/showthread.php?t=74419
http://www.forosdelweb.com/f15/ayuda-con-copyfile-grupo-servidores-99956/
http://social.msdn.microsoft.com/Forums/es/vbes/thread/eb5de29d-c003-46c8-8bc0-15d2c7dddad6
(http://www.clubdelphi.com/foros/showthread.php?t=72767&highlight=copiar+archivos+a+un+servidor)
Que habla del caso, el cual lo aplique asi:
CopyFile( PChar(cArchivoAsociado),Pchar('\\192.168.1.70\c\FORMATOS\'+dsVentas.FieldByName('LECHER').AsString+' _'+dsVentas.FieldByName('DIA').AsString+dsVentas.FieldByName('MES').AsString+dsVentas.FieldByName('A NIO').AsString+ExtractFileExt(oDlgFile.FileName) ),FALSE);
cArchivoAsociado:='\\192.168.1.70\c\FORMATOS\'+dsVentas.FieldByName('LECHER').AsString+'_'+dsVentas. FieldByName('DIA').AsString+dsVentas.FieldByName('MES').AsString+dsVentas.FieldByName('ANIO').AsStri ng+ExtractFileExt(oDlgFile.FileName);
Donde cArchivoAsociado contiene la ruta origen con todo y el nombre del archivo a copiar "c:\DOC090811.PDF" que también puede estar una unidad USB.
He visto comentarios que hablan acerca de almacenar imagenes en la base de datos, pero comentan que esto hace crecer a la base y que ademas puede hacerla lenta.
La verdad esta no seria opción, ya que se tienen que registrar diariamente cerca de 200 formatos, es decir scanearlos y guardarlos....sinceramente esta opción no PUEDE SER OPCION...
Entonces opte por copiarlos algun directorio, que por cierto lo tengo compartido (C:\FORMATOS) pero no he logrado copiarlo agregandole la IP del servidor....pero si realiza la copia del archivo si le quito la IP, pero esa no es la idea.
Lo anterior obedece que el usuario al momento de registrar los datos de los formatos el requiere que ese formato este disponible para aclaraciones posteriores y no buscarlo en el "archivo muerto" ya que seria muy tardado la localización del documento.
La RUTA FINAL la guardo en la base de datos, luego cuando se consulta el registro tomo la ruta para localizar el archivo y mostrarlo....pero este no es el problema, el problema es que no se copia el archivo.
Espero me puedan ayudar como lo debo de hacer exactamente.
Tengo un problema que trato de solucionar. Les explico.
Desarrollé una aplicacion hecha en Delphi6 con FireBird 1.5. Estoy tratando de hace lo siguiente:
Copiar un archivo PDF desde una máquina cliente hacia el servidor de la base de datos. Estos equipos estan conectados a una RED LAN usando WinXP. Ambos equipos usan este sistema operativo.
Lo que he hecho:
He consultado estos hilos
http://www.clubdelphi.com/foros/showthread.php?t=72767&highlight=copiar+archivos+a+un+servidor
http://www.clubdelphi.com/foros/showthread.php?t=74419
http://www.forosdelweb.com/f15/ayuda-con-copyfile-grupo-servidores-99956/
http://social.msdn.microsoft.com/Forums/es/vbes/thread/eb5de29d-c003-46c8-8bc0-15d2c7dddad6
(http://www.clubdelphi.com/foros/showthread.php?t=72767&highlight=copiar+archivos+a+un+servidor)
Que habla del caso, el cual lo aplique asi:
CopyFile( PChar(cArchivoAsociado),Pchar('\\192.168.1.70\c\FORMATOS\'+dsVentas.FieldByName('LECHER').AsString+' _'+dsVentas.FieldByName('DIA').AsString+dsVentas.FieldByName('MES').AsString+dsVentas.FieldByName('A NIO').AsString+ExtractFileExt(oDlgFile.FileName) ),FALSE);
cArchivoAsociado:='\\192.168.1.70\c\FORMATOS\'+dsVentas.FieldByName('LECHER').AsString+'_'+dsVentas. FieldByName('DIA').AsString+dsVentas.FieldByName('MES').AsString+dsVentas.FieldByName('ANIO').AsStri ng+ExtractFileExt(oDlgFile.FileName);
Donde cArchivoAsociado contiene la ruta origen con todo y el nombre del archivo a copiar "c:\DOC090811.PDF" que también puede estar una unidad USB.
He visto comentarios que hablan acerca de almacenar imagenes en la base de datos, pero comentan que esto hace crecer a la base y que ademas puede hacerla lenta.
La verdad esta no seria opción, ya que se tienen que registrar diariamente cerca de 200 formatos, es decir scanearlos y guardarlos....sinceramente esta opción no PUEDE SER OPCION...
Entonces opte por copiarlos algun directorio, que por cierto lo tengo compartido (C:\FORMATOS) pero no he logrado copiarlo agregandole la IP del servidor....pero si realiza la copia del archivo si le quito la IP, pero esa no es la idea.
Lo anterior obedece que el usuario al momento de registrar los datos de los formatos el requiere que ese formato este disponible para aclaraciones posteriores y no buscarlo en el "archivo muerto" ya que seria muy tardado la localización del documento.
La RUTA FINAL la guardo en la base de datos, luego cuando se consulta el registro tomo la ruta para localizar el archivo y mostrarlo....pero este no es el problema, el problema es que no se copia el archivo.
Espero me puedan ayudar como lo debo de hacer exactamente.