Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-01-2008
mcalmanovici mcalmanovici is offline
Miembro
 
Registrado: jun 2006
Posts: 78
Poder: 18
mcalmanovici Va por buen camino
Renombrar archivo

Hola gente:
tengo el siguiente problema: estoy ejecutando un archivo .dat desde un servidor remoto, y luego que lo ejecuto lo quiero renombrar a .dat.done.
Para hacer esto utilizo el siguiente código:
Código Delphi [-]
  newName := '\\10.10.30.20 \Iridium\CDRs\CDH99809kkk.dat.done';
  if RenameFile('\\10.10.30.20\Iridium\CDRs\CDH99809kkk.dat', newName)    then
    ShowMessage('newName.dcu renamed OK')
  else
    ShowMessage('newName.dcu rename failed with error : '+ IntToStr(GetLastError));
  CloseFile(Arch);

cuando ejecuto esto en GetLastError me dá el código 32 y por lo tanto no me renombra el archivo que quiero.
No tengo idea que estoy realizando mal. Ya busqué por todos lados en internet y no encuentro solución.

Muchas gracias por anticipado por vuestra ayuda.

Mariano.
Responder Con Cita
  #2  
Antiguo 02-01-2008
Khronos Khronos is offline
Miembro
 
Registrado: abr 2007
Posts: 298
Poder: 17
Khronos Va por buen camino
Si el archivo esta en ejecución no lo podrás renombrar, prueba a cerrarlo primero y luego a renombrarlo

Salu2
Responder Con Cita
  #3  
Antiguo 02-01-2008
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Yo utilizo el componente NMTP que viene con Delphi, me conecto al servidor y luego hago:
Código Delphi [-]
    Try
    NMFTP.Rename(cFichero,EdFichero.Text);
    Except
    ShowMessage('Error al cambiar de nombre al fichero.');
    end;


Y me conecto así:
Código Delphi [-]
procedure TfrExpterminales.btConectarClick(Sender: TObject);
begin
btDesconectar.Enabled :=True;
btListar.Enabled :=True;
btEliminar.Enabled:=True;
btSubir.Enabled :=True;
btDescargar.Enabled :=True;

btConectar.Enabled :=False;

pnEstado.Caption:='Servidor Conectado';
pnEstado.Font.Color:=ClGreen;
pnEstado.BevelOuter:=bvRaised;

NMFTP.Host := HostTxt.Text;
NMFTP.Port := StrToInt(PortTxt.Text);
NMFTP.Timeout := 5000;
NMFTP.UserID := UserTxt.Text;
NMFTP.Password := PassTxt.Text;
  try
  NMFTP.Connect;
  except
  On E:Exception do
  writeln(E.message);
  end;
end;
Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.

Última edición por marcoszorrilla fecha: 02-01-2008 a las 16:40:13.
Responder Con Cita
  #4  
Antiguo 02-01-2008
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Ya tienes suficientes permisos para realizar la operación.
Hay una función que te devuelve el texto asociado a ese error, el problema es que ahora no recuerdo cual...
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #5  
Antiguo 02-01-2008
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

La función a la que se refiere Neftalí creo que es "SysErrorMessage". En todo caso, podría ser que la función "RenameFile" no admitiera archivos "en red"... lo cierto es que trato de encontrar la ayuda de esta función en MSDN y no aparece nada... fuera de la plataforma .NET... Igual no estoy buscando en el lugar adecuado.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #6  
Antiguo 02-01-2008
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
A esa me refería; Puedes utilizar:

Código Delphi [-]
  ShowMessage(SysErrorMessage(GetLastError));
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #7  
Antiguo 02-01-2008
mcalmanovici mcalmanovici is offline
Miembro
 
Registrado: jun 2006
Posts: 78
Poder: 18
mcalmanovici Va por buen camino
Gracias.

Cita:
Empezado por Khronos Ver Mensaje
Si el archivo esta en ejecución no lo podrás renombrar, prueba a cerrarlo primero y luego a renombrarlo

Salu2
Gente:
muchas gracias por las contestaciones de todos.
Efectivamente no estaban cerrando el archivo antes de renombrarlo..
Lo cerre antes de renombrarlo y funciono todo bien.

Saludos,
Mariano.
Responder Con Cita
Respuesta


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
renombrar field reina Varios 0 12-07-2006 18:11:01
renombrar un fichero EfrainSanmiguel Varios 4 16-12-2005 21:32:55
Renombrar Tablas mapner Firebird e Interbase 3 17-05-2004 18:23:25
renombrar tablas access hthon Tablas planas 1 13-06-2003 19:33:46
Renombrar directorio acertij022 Varios 2 24-05-2003 06:09:33


La franja horaria es GMT +2. Ahora son las 01:38:43.


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