FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Problemas con copia de archivos a la RED
Que tal amigos del foro.
Estoy intentando copiar un archivo a una carpeta compartida en otro equipo, lo que intento es lo siguiente:
Cabe mensionar que el usuario y password es correcto, si se conecta a la unidad de red, y si cambio, en la linea "CopyFile" a una unidad local, si me copia el archivo ... Pero no me copia nada a la unidad de RED "x", alguna sugerencia? Saludos! |
#2
|
||||
|
||||
Seguramente este código te da un error al copiar. Si nos dices el error, puede que podamos ayudarte un poco más.
Yo supongo que el problema debe estar en la parte donde generas el recurso compartido (WNetAddConnection2). WNetAddConnection2 devuelve a su vez un código de error. Si es 0 es que la carpeta compartida se generó correctamente. Yo supongo que debe devolver algo distinto de 0.
|
#3
|
||||
|
||||
También veo el siguiente problema.
Supongo que deberías cambiarlo a algo así:
|
#4
|
||||
|
||||
Gracias por responder:
Me equivoque en el codigo, voy a postear el codigo real que tengo:
Ya intente como me dice duilioisola (como podran ver, la ruta la saco de un archivo INI) cambiando la ruta y nada!!! Saludos! |
#5
|
||||
|
||||
Cita:
Sin ese "detallito" no sabemos qué contestarte excepto suposiciones... Suposición 1: Después de leer el ini vRuta = '\\132.147.160.50\RIS' o vRuta = '\\132.147.160.51\RIS' Puede que no sea ninguna de las dos y que no esté leyendo el ini correcto. Suposición 2: CopyFile(PChar(vFile),PChar('X:\RIS.XML'),False); se traduciría como CopyFile(PChar(vFile),PChar('\\132.147.160.51\RIS\RIS.XML'),False); Quizás te has liado y el archivo RIS.XML está en la raiz del lugar al que apunta la dirección IP y no dentro de una carpeta que se llama RIS. Suposición 3: Radiologia1 y UPC no son los nombres de ususario y contraseña correctos o no tiene permisos de lectura. Seguimos suponiendo ??? |
#6
|
||||
|
||||
Gracias por contestar.
Hice una pequeña modificacion en el codigo:
Es importante que nos cuentes "el mensaje de error que te da". R.- El valor que me regresa es "0". Sin ese "detallito" no sabemos qué contestarte excepto suposiciones... Suposición 1: Después de leer el ini vRuta = '\\132.147.160.50\RIS' o vRuta = '\\132.147.160.51\RIS' Puede que no sea ninguna de las dos y que no esté leyendo el ini correcto. R.- Claro que lo esta leyendo de manera correcta, en caso contrario no se conectaria a la unidad de red. Suposición 2: CopyFile(PChar(vFile),PChar('X:\RIS.XML'),False); se traduciría como CopyFile(PChar(vFile),PChar('\\132.147.160.51\RIS\RIS.XML'),False); R.- No puedo hacer eso, ya que el equipo remoto esta protegido con contraseña, es por eso que me meti en este lio ... Quizás te has liado y el archivo RIS.XML está en la raiz del lugar al que apunta la dirección IP y no dentro de una carpeta que se llama RIS. Suposición 3: Radiologia1 y UPC no son los nombres de ususario y contraseña correctos o no tiene permisos de lectura. R.- Yo mismo cree la ruta y la comparti como administrador. Me asegure de tener todos los permisos necesarios, tan asi que puedo escribir sobre esa carpeta de manera remota. El problema es que al parecer la funcion de copyFile no soporta la copia a unidades mapeadas, porque si se mapea la unidad (cuando lo corro paso a paso, abro un explorador y ahi aparece) y si hace la copia si cambio la unidad "X" por alguna unidad y carpeta local. Alguien que me pueda ayudar!! Gracias! |
#7
|
||||
|
||||
Me sigue quedando la duda: ¿No te da ningún mensaje de error?
¿O sea, pasa por la linea CopyFile(...); y no dice nada? ¿No te da una exception que diga algo? (el archivo ya existe, no tiene permiso, no existe la unidad, etc.) Prueba poniendo a True la útima propiedad de CopyFile
Código sacado de Torry's Delphi Pages
|
#8
|
||||
|
||||
Gracias por responder duilioisola
No, no me marca ningun error. De echo el programa sigue corriendo sin problemas. Voy a optar por hacer un servidor de archivos en la maquina cliente que reciba los archivos ... Gracias por tus respuestas Saludos! |
#9
|
||||
|
||||
He hecho este pequeño programita ejemplo, para ver si puedes buscar el error.
Tiene un panel alineado alTop con un boton y un Memo para guardar un Log de todos los pasos. En el evento del botón se llama al procedimiento que copia. Si alguna función devuelve un error, te lo muestra en el memo. Yo he probado con
Ya nos contarás...
|
#10
|
||||
|
||||
Gracias nuevamente por responder.
Este es el resultado que me genera: Cita:
... Saludos! Última edición por edgwin fecha: 04-02-2011 a las 17:31:24. |
#11
|
||||
|
||||
Cita:
Cita:
Puede ser que X:\Destino.txt ya exista... aunque lo dudo mucho. Si cambias el parámetro final de CopyFile a False, también falla? La última prueba que se me ocurre es que pongas un breakpoint en la linea de CopyFile y copies a mano C:\Origen.txt a Xestino.txt para ver si Windows te da algún error. |
#12
|
||||
|
||||
Gracias nuevamente por responder.
Hice lo que me sugeriste, pero si me dejo copiar el archivo a la unidad "X". Me parece que delphi tiene un bug en este sentido. Gracias por tu apoyo amigo. Saludos!! |
#13
|
||||
|
||||
Parece ser que si... No veo ningún otro error.
Si lo que quieres copiar es un archivo XML, lo que te sugiero que hagas es lo siguente: Creas un TStrings y utilizas los métodos LoadFromFile SaveToFile
|
#14
|
||||
|
||||
Otra opción es usar Streams. TFileStream en este caso...
Ejemplo de Delphi 6:
|
#15
|
||||
|
||||
Otra opcion BlockRead - BlockWrite
Ejemplo de Delphi 6:
|
#16
|
||||
|
||||
Gracias amigo .... ya resolvi el problema.
Hice un servidor de archivos TCP, donde el servidor enviar el archivo y en la computadora cliente lo recibe y lo coloca en la ruta indicada. Gracias nuevamente Saludos! |
#17
|
|||
|
|||
me interesa eso
saludos edgwin y como hiciste ese servidor, postea eso me interesa estoy haciendo lo mismo.
saludos juank |
#18
|
||||
|
||||
Claro que si amigo. En un momento mas te posteo el programita que hice, solo deja lo modifico para que sea un poco mas "generico" y no te marque errores.
Saludos! |
#19
|
||||
|
||||
Que tal juank1971
Dame un correo para poderte enviar los archivos ya que el foro no me deja postearlos. Cabe mensionar que el programa servidor es un servicio, por lo que hay que compilar y construir e instalar en el sistema (inicio -> ejecutar -> C:\...\SrvDicomAgfa.exe /install). Saludos! |
#20
|
||||
|
||||
Cita:
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Última edición por rgstuamigo fecha: 23-03-2011 a las 14:07:50. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Impedir Copia de archivos de la red. | Kipow | API de Windows | 5 | 13-12-2009 02:15:01 |
respado o copia de archivos | luis vazquez | Tablas planas | 2 | 13-02-2008 20:06:00 |
Copia de archivos | malditango | API de Windows | 4 | 03-12-2007 10:25:30 |
Copia de una carpeta con archivos con delphi | jfontane | Varios | 1 | 13-10-2006 16:52:55 |
Copia de archivos por la red | gguilleng | Varios | 1 | 22-11-2003 14:34:19 |
|