Copiar un archivo desde un computador a otro
 

Buenas, trabajo con D2009 y tengo el siguiente problema, la aplicación copiaba documentos desde un equipo (Cliente) a otro (servidor). sin problemas Esto lo efectua con las siguientes instrucciones

Código Delphi [-]
if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then
begin
OldFile := TFileStream.Create(
OldFileName, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(
NewFileName, fmCreate or fmShareDenyRead);
try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
end;

Esta funciona correctamente, el problema que tengo es que se decidio traspasar el directorio a otro servidor , de este se sabe completa la ruta (path) pero el sistema no llega ya que debe autentificarse para ingresar, el usuario y contraseña la tengo.

Tengo el path, usuario y contraseña para identificacion, la pregunta es como hago para que internamente a traves de D2009 se conecte al servidor.

Si yo por fuera llamo al path me solicita el usuario/contraseña para ingresar se las doy y el sistema nuevamente vuelve a funcionar, este acto como lo hago internamente a traves de la aplicacion

Hola Ricardo2010,

¿Cabría la posibilidad de mapear una unidad de red al directorio compartido del servidor?

Existen por aquí código para conectar una unidad de red a tu servidor, desde Delphi. Una vez conectada la unidad, podrías operar con ella, para copiar los ficheros que necesitas.

Un saludo.

Sucede que los usuarios son mas de 5000 y se conectan por distintas formas algunos por citrix otros por terminal server, por eso queria ver la posibilidad de yo invocar internamente la aplicacion de windows para conectar una unidad y pasarle los parametros de usuario y contraseña cosa que el usuario que esta en la aplicacion no se de cuenta.

Todo funcionaba correctamente hasta que se les ocurrio separa la carpeta donde quedaban los doctos por un tema de espacio.

Existe de alguna forma que el usuario cuando ingrese a la aplicacion delphi pueda internamente crear este map, claro esta que no se de cuenta. El administrador de red dio el usuario y contraseña para que siempre utilice la misma internamente , estas son distintas al usuario que se conecta a la red y tambien distinta al usuario que se conecta a la aplicacion .

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   NetResource: TNetResource;
begin
   
   NetResource.dwType := RESOURCETYPE_DISK;
   //Letra con la cual sera mapeado el recurso
   NetResource.lpLocalName := 'M:';
   //Nombre del recurso
   NetResource.lpRemoteName := '\\Servidor\Carpeta_Compartida';
   NetResource.lpProvider := '';
   WNetAddConnection2(NetResource, 'Password','Usuario', CONNECT_UPDATE_PROFILE);
end;

A ver como te va con esto...

Saludos

Y para desconectar de la unidad seria...

Código Delphi [-]
WNetCancelConnection2('M:', CONNECT_UPDATE_PROFILE, True);

Saludos...

gracias lo probare y les cuento

Probe lo que me dices cloayza y funciona perfocto.

Gracias nuevamente.

¿como sería en el caso de quere mapear una dirección ftp?
Por ejemplo asignar la unidad Z al ftp://pruebas.es

Gracias