Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cortar y Pegar Archivos (https://www.clubdelphi.com/foros/showthread.php?t=36631)

VNNO 19-10-2006 01:51:08

Cortar y Pegar Archivos
 
Hola Todos:

Necesito de su ayuda, el inconvenientes es que necesito hacer por codigo el cortar o copiar un archivo que esta en una ubicacion determinda y pegarlo en otra, pero todo por codigo sin que el ususario se de cuenta....espero que me puedan colaborar:(

roman 19-10-2006 01:58:01

Puedes usar DeleteFile de la unidad SysUtils y CopyFile de la unidad Windows.

// Saludos

seoane 19-10-2006 02:06:51

O MoveFile, MoveFileEx de la unidad windows. :D

VNNO 19-10-2006 02:09:03

pero podrian aclararme de que manera nunca los he usado muchas gracias:confused:

seoane 19-10-2006 02:19:03

Vamos a echarle un vistazo a la ayuda. Allí se nos describen estas funciones de la siguiente manera:

Código:

BOOL CopyFile(
  LPCTSTR lpExistingFileName,
  LPCTSTR lpNewFileName,
  BOOL bFailIfExists
);

BOOL MoveFile(
  LPCTSTR lpExistingFileName,
  LPCTSTR lpNewFileName
);

BOOL MoveFileEx(
  LPCTSTR lpExistingFileName,
  LPCTSTR lpNewFileName,
  DWORD dwFlags
);

BOOL DeleteFile(
  LPCTSTR lpFileName
);

// O su version pascalizada

function DeleteFile(const FileName: string): Boolean;

Pues viéndolas así, no parece muy complicado imaginarse como funcionan. Quizá faltaría decirte que para convertir un string en un puntero (LPCTSTR en C, PChar en pascal) se debe de hacer un simple typecast y que el tipo BOOL de C se puede usar como un boolean de pascal. Por si no te queda claro hay te va un ejemplo:

Código Delphi [-]
  CopyFile(PChar('d:\1.jpg'),PChar('d:\2.jpg'),FALSE);

Las otras se usan de forma similar.

VNNO 19-10-2006 02:21:39

ok dejame voy a revisar y te cuento que tal me fue con eso, annte todo gracias si tienen alguna otr solucion les agradezco:)

VNNO 19-10-2006 15:26:56

http://www.clubdelphi.com/foros/imag...ine=1149798481 seoane muchas gracias pude hacerlo con lo q me diste gracias a todos tambien por su colaboracion:)


La franja horaria es GMT +2. Ahora son las 13:28:49.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi