Ruta/Dirección/Path en PC Remoto

[jhonalone]

Gracias Chris, por leerme y por querer ayudarme.

El "otro nombre" se refiere a que el mismo fichero (P.e: "fichero.txt" le duplico para hacer copia de seguridad con el nombre "fichero2.txt", pero en el mismo directorio del ejecutable.

No sé muy bien como funciona esto, ¿quieres decir que, aunque el programa ejecutable está en el PC de sobremesa, si yo le doy una ruta, la va a buscar en el portátil, desde el que ejecuto el programa?

Sin embargo, el resto de ficheros que no direcciono, sino dejo por defecto los está escribiendo corrrectamente en el PC de escritorio.

Y cuando le pido GetDir() o GetCurrentDir, me facilita una ruta con los datos de los nombres de la red, pero luego no puedo utilizarla para acceder a ellos, ni en el mismo directorio del ejecutable. Ya te dije que entiendo poco de esto, si puedes o conoces algún manual rápido de redes locales, te agradezco me lo indiques y así resolver las cuestiones, que pueden ser triviales si las conoces, pero insalvables si no las cononoces.

Gracias de todos modos. Chris.

Un saludo.

[ecfisa]

Hola jhonalone.

Supongamos que el equipo donde se encuentra el programa se llama DESKTOP y tu portátil NOTEBOOK. También supongamos que el programa se encuentra en la ubicacion: C:\MiPrograma.

Bién, ahora la ubicación que devuelva GetCurrentDir, es relativa al equipo que esté ejecutando la aplicación, por ejemplo la instrucción:

Código Delphi [-]
  ShowMessage(GetCurrentDir);

. Ejecutada desde DESKTOP mostrará: C:\MiPrograma
. Ejecutada desde NOTEBOOK mostrara: \\DESKTOP\MiPrograma

El problema es que si desde NOTEBOOK haces una una copia usando la cadena: 'C:\MiPrograma', estas haciendo referencia al disco C: de NOTEBOOK y no de DESKTOP.
No es una idea inteligente espejar los directorios para solapar el error, por que cuando pienses que estas copiando en DESKTOP lo harás en NOTEBOOK.

Para verificarlo, podés realizar una simple prueba: Una aplicación con un TButton y el siguiente código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not CopyFile(PChar('C:\MiPrograma\Archivo.txt'), PChar('C:\MiPrograma\Archivo.bak'), True) then
    ShowMessage('ERROR. No se pudo realizar la copia');
end;

.Ejecutado desde DESKTOP, realiza la copia sin problemas.
.Ejecutado desde NOTEBOOK muestra el mensaje: 'ERROR. No se pudo realizar la copia'.

Eso sucede por que la aplicación no puede saber desde donde fué ejecutada.

Saludos.

Edito: Ya me olvidaba... : I/O Error 21: ERROR_NOT_READY (The device is not ready)

[jhonalone]

Gracias, Ecfisa.
¡Qué grande eres y que bien te explicas!

No te he respondido antes porque he estado probando.
Si no he comprendido mal, cuando quiera referirme desde NOTEBOOK, a una dirección de DESKTOP, deberé sustituir, (siguiendo tu ejemplo) C:\MiPrograma por \\DESKTOP\MiPrograma

y siguiendo esta lógica, C:\Ejemplo\Primero\MiPrograma SE DEBERÍA CAMBIAR por \\ DESKTOP\Ejemplo\Primero\MiPrograma

¿y los problemas de direcciones en red se solucionarían de este modo?

Gracias por tu esfuerzo y por tu ayuda.

Saludos.

[ecfisa]

Hola jhonalone.

¡Qué grande eres

Si quitás la lupa vas a ver que no es así...

Ahora fuera de bromas, lo que creo que al trabajar de ese modo, vas a tener que efectuar todas tus acciones desde la ubicación de la aplicación. Ya que es el único punto de referencia en común entre DESKTOP y NOTEBOOK.

Es decir que tu centro de operaciones debería ser:
Desde el equipo de escritorio (DESKTOP): C:\MiPrograma o ya sea, visto desde la laptop (NOTEBOOK): \\DESKTOP\MiPrograma


No estoy en red para probar el código siguiente, pero pienso que debería funcionar en ambos equipos.

Ubicándonos en DESKTOP, y suponiendo que tenemos: C:\MiPrograma\arch1.e1 y quisieramos guardar arch1.e1 en la carpeta C:\MiPrograma\Dir :

Código Delphi [-]
procedure CopiarArchivo(Origen, Destino: string; const Nombre: string);
begin
  Origen:= IncludeTrailingPathDelimiter(Origen)+Nombre;
  Destino:= IncludeTrailingPathDelimiter(Destino)+Nombre;
  if not CopyFile(PChar(Origen), PChar(Destino), True) then
    ShowMessage('Error al intentar copiar el archivo');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  PtoPartida: string;
begin
  PtoPartida:= ExtractFilePath(Application.ExeName);
  CopiarArchivo(PtoPartida, PtoPartida+'Dir', 'arch1.e1'); // 'Dir' debe haber sido creado con anterioridad
end;
...

Pero como te dije arriba vas a tener que probarlo, no tengo manera de hacerlo ahora.

Un saludo.

[jhonalone]

Aun quitando la lupa, eres GRANDISIMO, Ecfisa.

Probaré lo que me mandas y te cuento.

Mientras tanto. Y si quieres entretenerte, te voy a proponer otra cuestión, que es para nota, (Bastante más complicada).
Si un usuario, elige como ruta de destino para los ficheros de copia de suguridad otro ordenador de la red, que no sea DESKTOP, sino otro portátil o sobremesa, conectado como NOTEBOOK2 o DESKTOP2, y esta dirección está grabada en un fichero, por ejemplo como "\\ DESKTOP2\Compartido", ¿Habría alguna posibilidad de averiguar, (desde DESKTOP), a qué dirección REAL corresponede y cómo puedo grabar las copias de seguridad en esta dirección, desde NOTEBOOK?.

Sé que es una pregunta muy complicada, (a lo mejor imposible de resolver), te pido que no gastes demasiado tiempo en resolverla si ves que es muy complicada.

Gracias por tu inestimable ayuda, Ecfisa.

Un saludo cordial.

[jhonalone]

Ecfisa, he probado tu código y funciona perfectamente. (NO esperaba otra cosa)

Gracias.
Un saludo.

[[newtron]]

Este ecfisa ya empieza a caerme mal, ¿es que sabes todo de todo?

[eroblesh]

Empezado por ecfisa

Hola jhonalone.
El problema es que si desde NOTEBOOK haces una una copia usando la cadena: 'C:\MiPrograma', estas haciendo referencia al disco C: de NOTEBOOK y no de DESKTOP.
No es una idea inteligente espejar los directorios para solapar el error, por que cuando pienses que estas copiando en DESKTOP lo harás en NOTEBOOK.

Para verificarlo, podés realizar una simple prueba: Una aplicación con un TButton y el siguiente código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not CopyFile(PChar('C:\MiPrograma\Archivo.txt'), PChar('C:\MiPrograma\Archivo.bak'), True) then
    ShowMessage('ERROR. No se pudo realizar la copia');
end;

.Ejecutado desde DESKTOP, realiza la copia sin problemas.
.Ejecutado desde NOTEBOOK muestra el mensaje: 'ERROR. No se pudo realizar la copia'.

Eso sucede por que la aplicación no puede saber desde donde fué ejecutada.

Saludos.

Edito: Ya me olvidaba... : I/O Error 21: ERROR_NOT_READY (The device is not ready)

Que tal eficsa oya aca dando lata de nuevo veia este codigo para copiar un archivo desde mi red a mi pc pero no me esta funcionando el codigo es algo asi

Código Delphi [-]
procedure TForm1.btn2Click(Sender: TObject);
begin
 if not CopyFile(PChar('\\Teamkonetl\instalacionk\KONETL\KONETL.exe'), PChar('C:\konetl'), True) then
    ShowMessage('ERROR. No se pudo realizar la copia');
end;

siempre me regresa el error de que no se pudo copiar, me podrias comentar si algo esta mal? lo hago desde la linea de comandos y si lo ejecuta mm gracias salu2

[eroblesh]

jejej ya logre que funcionara, pero ahora lo necesito integrara mi aplicacion pero cuando lo quiero ejecutar no me deja por que el programa esta en uso, me podrian recomendar algo??? gracias