FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Copiar fichero por la red
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
__________________
Dave |
#2
|
||||
|
||||
Revisa la API wNetAddConnection2
Puedes conectar una unidad de Red y luego desconectarla:
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
No se si esto te servira, pero creo que si.
Estarás usando la copia misma de windows. Pruebalo. Código:
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; Código:
CopiaTodo(\\cputal\c\taltaltal,\\cpuqual\c\taltaltal);
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón). |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|