[Lazarus-es] ejecutar un CopyFile

[Nestor Echeverría]

Hola Héctor, buen día.

Aquí abajo te pego una parte de código mostrando como yo copiaba un 
archivo (esto era una aplicación de control de llamadas en una central 
telefónica).

Como verás, usaba FileUtil y luego la función  CopyFile ( En 
_edit1.text_ tenía el destino de la copia y el nombre del archivo era 
fijo: _ctrltel.ctl_).

Espero sirva de algo.

Saludos.

uses
   Classes, SysUtils,FileUtil, LResources, Forms, Controls, Graphics, 
Dialogs,
   Buttons, StdCtrls, ComCtrls, SdpoSerial;



procedure TForm1.Button1Click(Sender: TObject);
var a:boolean;
begin
   SdpoSerial1.Active:=false;
   CloseFile(Flog);
   a:=CopyFile('ctrltel.ctl',Edit1.text);
   if a then showmessage('Exportado satisfactoriamente')
    else showmessage ('Error en la exportación');
    SdpoSerial1.Active:=true;
    Append( Flog )

end;




El 11/07/2017 a las 7:20, hfiandor via Lazarus-es escribió:
>
> Estimados colegas:
>
> En una aplicación necesito copiar un fichero .db
>
> Tengo en el uses el FileUtil, el LazFileUtils y el LazUtils.
>
> Hago lo siguiente:
>
> try
>
> sour:=camino_BD+'\Clasificadores.db';
>
>     sour:=#39 + sour + #39;  //para ponerle single quote
>
> dest:=camino_BD+'\Copia_Clasificadores.db';
>
>     dest:=#39 + dest + #39;
>
> mensa('sour: '+sour);
>
> mensa('dest: '+dest);
>
>     copyfile(sour,dest);
>
> except
>
>   On E:Exception do
>
>   begin
>
> ShowMessage(E.Message);
>
>   end;
>
> end;
>
> Hasta aquí, el programa no da error, aunque no copia el fichero.
>
> Consulté el WikiLeaks y trato de hacerlo como se indica.
>
> Si me pueden dar alguna ayuda, voy a aprender y agradecerlo mucho.
>
> Saludos
>
> Ing. Héctor F. Fiandor Rosario
>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus-ide.org
> https://lists.lazarus-ide.org/listinfo/lazarus-es

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20170711/f543a282/attachment.html>