FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Error en actualizacion de archivos
Hola:
Una vez en el foro se estuvo hablando acerca de la actualizacion de archivos para trabajar siempre con la ultima actualizacion de un exe, yo consegui realizar eso con el siguiente codigo Código:
var fecha1, fecha2: Double; function GetFileDate(TheFileName: string): Double; var FHandle: integer; begin FHandle := FileOpen(TheFileName, 0); try Result := Int(FileDateToDateTime(FileGetDate(FHandle))); finally FileClose(FHandle); end; end; procedure TForm1.FormActivate(Sender: TObject); begin ShortDateFormat:= 'MM/dd/yyyy'; fecha1:= GetFileDate('C:\Archivos de programa\Sadval\sadvalcajero.exe'); fecha2:= GetFileDate('\\192.168.10.40\sadval$\sadvalcajero.exe'); if fecha2 > fecha1 then CopyFile(Pchar('\\192.168.10.40\sadval$\sadvalcajero.exe'), Pchar('C:\Archivos de programa\Sadval\sadvalcajero.exe'), False); Close; WinExec(PChar('C:\Archivos de programa\Sadval\sadvalcajero.exe'),SW_SHOWNORMAL); end; Invalid argument to date encode Creo que debe ser por el formato de fechas entre una PC y otra pero he observado que en una maquina que probe y dio resultado esta configurada distinta a la PC mia de trabajo, alguien podria ayudarme con esto Saludos Luis Garcia |
#2
|
|||
|
|||
Error en actulizacion de archivos
Hola:
Ya encontre el error y es que la sentencia fecha2:= GetFileDate('\\192.168.10.40\sadval$\sadvalcajero.exe'); Hacia referencia a un servidor con Windows Server 2003, el cual siempre te pide autentificacion y al no poder entrar no podia obtener la fecha del fichero remoto, la solucion que se me ocurre es o ponerlo en otra PC con otro SO (XP) o si alguien me podria ayudar a evitar el logeo. Saludos Luis Garcia |
#3
|
|||
|
|||
Solucion final
Despues de la ayuda que me dio el colega Simope sobre la instruccion net use aqui les va la solucion del problema
Código:
var fecha1, fecha2: Double; function GetFileDate(TheFileName: string): Double; var FHandle: integer; begin FHandle := FileOpen(TheFileName, 0); try Result := Int(FileDateToDateTime(FileGetDate(FHandle))); finally FileClose(FHandle); end; end; procedure TForm1.FormActivate(Sender: TObject); begin ShortDateFormat:= 'MM/dd/yyyy'; fecha1:= GetFileDate('C:\Archivos de programa\Sadval\sadvalcajero.exe'); WinExec(PChar('net use G: \\server\temp clave /user:administrador'),SW_HIDE); fecha2:= GetFileDate('G:\\sadvalcajero.exe'); if fecha2 > fecha1 then CopyFile(Pchar('\\cliente\temp\sadvalcajero.exe'), Pchar('C:\Archivos de programa\Sadval\sadvalcajero.exe'), False); WinExec(PChar('net use G: /delete'),SW_HIDE); Close; WinExec(PChar('C:\Archivos de programa\Sadval\sadvalcajero.exe'),SW_SHOWNORMAL); end; Luis Garcia |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Error: No se puede encontrar la fila para su actualizacion | ludan508 | Conexión con bases de datos | 0 | 16-04-2007 22:12:29 |
Error al saltar de Reporte a Actualizacion de Registro | chetos7 | SQL | 1 | 27-01-2007 13:15:47 |
Error extraño en lectura de archivos | eljose | C++ Builder | 2 | 18-11-2006 17:10:29 |
Error de conexion con BDE en XP luego de Actualizacion | YoUsoDelphi | Conexión con bases de datos | 6 | 04-10-2005 15:36:26 |
Error de actualizacion con DataSet | Luis | Conexión con bases de datos | 1 | 23-10-2004 08:49:25 |
|