![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() 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
|
![]() |
|
|
![]() |
|