Foros Club Delphi - Como copiar un archivo en Delphi?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Como copiar un archivo en Delphi? (https://www.clubdelphi.com/foros/showthread.php?t=4481)

Ricsato

16-10-2003 23:52:10

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.

delphi.com.ar

17-10-2003 00:03:52

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);

o como variable del tipo string haciendo un cast a PChar

Código:

procedure Copiar(AOrigen, ADestino: string);

begin

  CopyFile(PChar(AOrigen), PChar(ADestino), True);

end;

Existen infinidades de formas de hacer esto, solo te nombré las mas comunes.

Saludos!

roman

17-10-2003 00:24:18

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;

Según la ayuda de Delphi (de donde surgió el ejemplo) este método serviría también para Kylix.

// Saludos

Ricsato

29-10-2003 21:04:48

Gracias amigos, por su ayuda, me ha sido muy util

La franja horaria es GMT +2. Ahora son las 21:35:40.