Copiar archivo a un servidor CopyFile

[[escafandra]]

Quizás te interese esto.

Saludos.

[mRoman]

Gracias escafandra.....la verdad si esta interesante y talvez sin tanto problema....
A TODOS GRACIAS POR AYUDARME....

Les comento que ya esta funcionando, la verdad desconozco como es que pasó, pero considero que en el momento que estaba haciendo la prueba estaba en mi laptop conectado a internet de manera inalambrica y la IP que les puse en mi código era precisamente la IP de la red inalambrica....

Lo que hice fué conectar en RED otra laptop (LAN) y les asigne IP`s a ambas para esta RED y funciono !.....

Para lo anterior solo faltó asignarle derechos a la carpeta compartida del servidor, dando click derecho y en propiedades dentro de la pestaña de "Compartir", seleccioné la casilla que dice "Permitir que los usuarios de la red cambien mis archivos". Anteriormente no le habia seleccionado esto y pues no copiaba nada.

Acerca del error que mandaba, despues de postear, sigue consultando mas hilos en "San Google" y me encontre con una instruccion GetLastError, el cual lo capture y me dio un número, el 52, lo consulte en una tabla de errores del CopyFile y decia, obviamente en inglés, algo de que habia un nombre duplicado en la RED o algo asi y que no podia copiar... asi que fue entonces donde conecte la otra laptop a mi laptop para crear una RED LAN....y ahi fué donde ya funciono.

En estos momento ya tengo un EJECUTABLE en producción corriendo en los equipos de la oficina y funciona correctamente. Desde cualquier maquina cliente se pueden cargar los archivos y el sistema los copia a una carpeta compartida en el servidor.....

El problema fué de direcciones IP, ademas de compartir la carpeta, configurarla para que los usuarios de la red permitan realizar cambios a mis archivos de esa carpeta.

Les agradezco mucho su interes y su tiempo para con mi problema, pero al parecer ya esta resuelto.

El problema

[mRoman]

este es el còdigo final para cualquier otro amigo forero que este en las mismas circuntancias.

Código Delphi [-]
 if cArchivoAsociado<>'' then
                begin
//                    CopyFile(PChar(cArchivoAsociado),Pchar('c:\FORMATOS\'+ExtractFileName(oDlgFile.FileName)),false);
                    if CopyFile( PChar(cArchivoAsociado),Pchar('\\'+ipServer+'\FORMATOS'+'\'+dsVentas.FieldByName('LECHER').AsString+  '_'+dsVentas.FieldByName('DIA').AsString+dsVentas.FieldByName('MES').AsString+dsVentas.FieldByName('  ANIO').AsString+ExtractFileExt(oDlgFile.FileName) ),FALSE) then
                    begin
                            cArchivoAsociado:='\\'+ipServer+'\FORMATOS'+'\'+dsVentas.FieldByName('LECHER').AsString+'_'+dsVentas  .FieldByName('DIA').AsString+dsVentas.FieldByName('MES').AsString+dsVentas.FieldByName('ANIO').AsStr  ing+ExtractFileExt(oDlgFile.FileName);
                            ShowMessage('El archivo se copió correctamente')
                    end else begin
                           ShowMessage(Variant(GetLastError));
                    end;

                end;

[Lilauth]

Gracias Miguel Román por colgar el código final. Me caba de resolver medio problema

[mRoman]

Empezado por Lilauth

Gracias Miguel Román por colgar el código final. Me caba de resolver medio problema

Que tal Lilauth....no tienes porque....para eso estamos en este foro. No dejes de consultar y de postear de vez en cuando con soluciones para los demas.

Que estes bien....

Bye.