FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como copiar un archivo en Delphi?
Hola amigos, me gustaria que alguien me dijera como le hago para copiar un archivo indicandole por codigo desde delphi, por ahi lei la ayuda y dice que existe COPYFILE(), pero menciona que se aprovecha esta propiedad de windows y no pone sintaxis y bueno si alguien conoce la sintaxis o conoce otro metodo para copiar un archivo, se lo agradecere mucho que me lo haga saber.
Gracias. Saludos desde Mexico. |
#2
|
||||
|
||||
La diferencia en el trato al ser una WinApi, es que sus parámertos en lugar de strings son PChar, puedes utilizarla con sus parametros como constante, y el compilador los cambiará si que te des cuenta:
Código:
CopyFile('C:\COMMAND.COM', 'A:\COMMAND.COM', True); Código:
procedure Copiar(AOrigen, ADestino: string); begin CopyFile(PChar(AOrigen), PChar(ADestino), True); end; Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
||||
|
||||
Otra forma de hacerlo es usando streams:
Código:
procedure CopyFile(const Source, Dest: String); var FromStream, ToStream: TFileStream; begin FromStream := TFileStream.Create(Source, fmOpenRead); try ToStream := TFileStream.Create(Dest, fmCreate); try ToStream.CopyFrom(FromStream, 0); finally ToStream.Free; end; finally FromStream.Free; end; end; // Saludos |
#4
|
|||
|
|||
Gracias amigos, por su ayuda, me ha sido muy util
|
|
|
|