Copiar un archivo a una tablet, conectada con USB

[islu]

Desde el símbolo de sistema no puedo. He buscado en panel de control, Dispositivos e impresoras, y alli me parece, pero no consigo ver ninguna opción que me permita encontrar otra manera de acceder a él.

He buscado también en el registro de windows, y nada..., si que encuentro refrencias a él, pero como un "device" por usb

GRACIAS POR EL INTERÉS

[[nlsgarcia]]

islu,

Revisa este link : http://delphi.cjcsoft.net/viewthread.php?tid=46036

En el aparecen los siguientes 5 métodos para copiar un archivo:

Código Delphi [-]
// Método-1:
Procedure FileCopy( Const sourcefilename, targetfilename: String );
Var
  S, T: TFileStream;
Begin
  S := TFileStream.Create( sourcefilename, fmOpenRead );
  try
    T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate );
    try
      T.CopyFrom(S, S.Size ) ;
    finally
      T.Free;
    end;
  finally
    S.Free;
  end;
End;

Código Delphi [-]
// Método-2:
procedure FileCopy(const FromFile, ToFile: string);
var
  FromF, ToF: file;
  NumRead, NumWritten: Word;
  Buf: array[1..2048] of Char;
begin
  AssignFile(FromF, FromFile);
  Reset(FromF, 1);        { Record size = 1 }
  AssignFile(ToF, ToFile);    { Open output file }
  Rewrite(ToF, 1);        { Record size = 1 }
  repeat
    BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToF, Buf, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten < NumRead);
  System.CloseFile(FromF);
  System.CloseFile(ToF);
end;

Código Delphi [-]
// Método-3:
procedure CopyFile(FromFileName, ToFileName: string);
var
  FromFile, ToFile: File;
begin
  AssignFile(FromFile, FromFileName); { Assign FromFile to FromFileName }
  AssignFile(ToFile, ToFileName);     { Assign ToFile to ToFileName }
  Reset(FromFile);                    { Open file for input }
  try
    Rewrite(ToFile);                  { Create file for output }
    try

      { copy the file an if a negative value is returned raise an exception }
      if LZCopy(TFileRec(FromFile).Handle, TFileRec(ToFile).Handle)         raise Exception.Create('Error using LZCopy')
    finally
      CloseFile(ToFile);  { Close ToFile }
    end;
  finally
    CloseFile(FromFile);  { Close FromFile }
  end;
end;

Código Delphi [-]
// Método-4:
procedure CopyFile(FromFileName, ToFileName: string);
var
  shellinfo: TSHFileOpStructA;
  Files:String;
begin
  Files:=FromFileName+#0+#0;
  with shellinfo do
  begin
    Wnd:=Self.handle;
    wFunc:=FO_COPY;
    pFrom:=PChar(Files);
    pTo:=PChar(ToFileName);
    fFlags:=FOF_NOCONFIRMATION or FOF_SILENT;
  end;
  SHFileOperation(shellinfo);
end;

Código Delphi [-]
// Método-5:
copyfile(PChar(FromFileName),PChar(ToFileName),False);

Espero sea útil

Nelson.

[islu]

Muchas gracias Nelson, lamento decirte que no me han válido. En todos los casos el poblema es el destino. El problema parece ser que la dirección que me muestra Windows en la barra del explorador, "la traduce" o algo por el estilo.

MUCHAS GRACIAS, sigo buscando, a ver si a alguien se le ocurre algo...

[[nlsgarcia]]

islu,

Empezado por islu

Cuando navego por el dispositivo con el explorador, en la barra de direcciones me muestra "Equipo\GT-N8000\Phone\DCIM", si yo copio esa ruta en otro explorador, me lo abre sin problemas

Empezado por islu

El problema parece ser que la dirección que me muestra Windows en la barra del explorador, "la traduce" o algo por el estilo

Prueba la siguiente idea:

Código Delphi [-]
ShellExecute(0, nil, 'cmd.exe', '/C Subst i: "Equipo\GT-N8000\Phone\DCIM"', nil, SW_HIDE);

Subst es un comando de consola que permite asignar una letra de unidad a una ruta y hacerla disponible en el explorador de Windows, en el supuesto de que funcione puedes remover la unidad de la siguiente forma:

Código Delphi [-]
ShellExecute(0, nil, 'cmd.exe', '/C Subst i: /d', nil, SW_HIDE);

Otra opción es revisar en el Tablet si tiene alguna opción de configuración que afecte la forma como se mapea a Windows.

Espero sea útil

Nelson.