Copiar fichero por la red

[davezf]

Hola,

Como puedo copiar un fichero desde un equipo a otro por la red?

Para acceder al directorio de destino necesito indicar usuario y password.

El equipo de destino tiene windows pero no puedo crear ningun programa ni instalar nada

[Neftali [Germán.Estévez]]

Revisa la API wNetAddConnection2

Puedes conectar una unidad de Red y luego desconectarla:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
   NRW: TNetResource;
 begin
   with NRW do begin
     dwType := RESOURCETYPE_ANY; lpLocalName := 'X:';
     // map to this driver letter
     lpRemoteName := 'MyServerMyDirectory';
     // Must be filled in. If an empty string is used,
     // it will use the lpRemoteName.
     lpProvider := '';
   end;
   WNetAddConnection2(NRW, 'MyPassword', 'MyUserName', CONNECT_UPDATE_PROFILE);
 end;

[Descendents]

No se si esto te servira, pero creo que si.
Estarás usando la copia misma de windows. Pruebalo.

function TForm1.CopiaTodo(Origen,Destino : String):LongInt;
   var
     F : TShFileOpStruct;
     sOrigen, sDestino : String;
   begin
    try
     Result := 0;
     sOrigen := Origen + #0;
     sDestino := Destino + #0;

     with F do
     begin
       Wnd   := Application.Handle;
       wFunc := FO_COPY;
       pFrom := @sOrigen[1];
       pTo   := @sDestino[1];
       fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION
     end;
     Result := ShFileOperation(F);
    except
      close;
    end;
 end;

luego lo llamas de la siguiente manera

CopiaTodo(\\cputal\c\taltaltal,\\cpuqual\c\taltaltal);