Problemilla, el compilador me dice Not enough actual parameters y no se porqué

[[nlsgarcia]]

pokexperto1,

...sigue sin funcionar...CopyFile...

Revisa este código:

Código Delphi [-]
 unit Unit1;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, FileCtrl;
 
 type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.dfm}
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
    openDialog : TOpenDialog;
    chosenDirectory : String;
    FromFileName, ToFileName : String;
    MsgUser : String;
 
 begin
    openDialog := TOpenDialog.Create(self);
    openDialog.InitialDir := GetCurrentDir;
    openDialog.Options := [ofFileMustExist];
    openDialog.Filter := 'Archivo a Copiar|*.*';
    openDialog.FilterIndex := 1;
    if openDialog.Execute then
    begin
       if SelectDirectory('Seleccione un Directorio de Destino de Copia', 'C:\', chosenDirectory) then
       begin
          FromFileName := openDialog.FileName;
          ToFileName := chosenDirectory + ExtractFileName(openDialog.FileName);
          if Copyfile(PChar(FromFileName),PChar(ToFileName),True) then
             MsgUser := 'Archivo Copiado'
          else
             MsgUser := 'El Archivo No Fue Copiado, Existe en el Directorio Destino';
          MessageDlg(MsgUser,mtInformation,[mbOK],0);
       end
       else
       begin
          MsgUser := 'No se Selecciono Ningún Directorio de Destino';
          MessageDlg(MsgUser,mtInformation,[mbOK],0);
       end;
    end
    else
    begin
       MsgUser := 'No se Selecciono Ningún Archivo para Copiar';
       MessageDlg(MsgUser,mtInformation,[mbOK],0);
    end;
    openDialog.Free;
 end;
 
 end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, permite copiar un archivo de un directorio cualquiera a un directorio destino por medio de la función CopyFile.

Espero sea útil

Nelson.

[pokexperto1]

Gracias pero me dice error en la linea 16: Undeclared identifier: 'SelectDirecory'

editado:Vale ya he solucionado eso pero sigue sin copiar nada...
Os dejo un link a un video para que lo veais...:https://www.youtube.com/watch?v=-CBXO8pws5g

[Casimiro Noteví]

Empezado por pokexperto1

Gracias pero me dice error en la linea 16: Undeclared identifier: 'SelectDirecory'
editado:Vale ya he solucionado eso pero sigue sin copiar nada...

Pon tu código.

[pokexperto1]

Empezado por Casimiro Notevi

Pon tu código.

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
 var  //codigo de nelson  (nlsgarcia) tal cual esta en el foro
    openDialog : TOpenDialog;
    chosenDirectory : String;
    FromFileName, ToFileName : String;
    MsgUser : String;

 begin
    openDialog := TOpenDialog.Create(self);
    openDialog.InitialDir := GetCurrentDir;
    openDialog.Options := [ofFileMustExist];
    openDialog.Filter := 'Archivo a Copiar|*.*';
    openDialog.FilterIndex := 1;
    if openDialog.Execute then
    begin
       if SelectDirectory('Seleccione un Directorio de Destino de Copia', 'C:\', chosenDirectory) then
       begin
          FromFileName := openDialog.FileName;
          ToFileName := chosenDirectory + ExtractFileName(openDialog.FileName);
          if Copyfile(PChar(FromFileName),PChar(ToFileName),True) then
             MsgUser := 'Archivo Copiado'
          else
             MsgUser := 'El Archivo No Fue Copiado, Existe en el Directorio Destino';
          MessageDlg(MsgUser,mtInformation,[mbOK],0);
       end
       else
       begin
          MsgUser := 'No se Selecciono Ningún Directorio de Destino';
          MessageDlg(MsgUser,mtInformation,[mbOK],0);
       end;
    end
    else
    begin
       MsgUser := 'No se Selecciono Ningún Archivo para Copiar';
       MessageDlg(MsgUser,mtInformation,[mbOK],0);
    end;
    openDialog.Free;
 end;

[[nlsgarcia]]

pokexperto1,

...sigue sin copiar nada...código de nelson (nlsgarcia) tal cual esta en el foro...

Revise el vídeo que colocastes en Youtube y veo que usas Delphi XE7.

Pregunto :

1- ¿Que versión de Windows utilizas?, ¿Es de 32 ó 64 bits?.

2- ¿Estas compilando en 32 ó 64 bits?

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, System.UITypes;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   openDialog : TOpenDialog;
   chosenDirectory : String;
   FromFileName, ToFileName : String;
   MsgUser : string;

begin
   openDialog := TOpenDialog.Create(self);
   openDialog.InitialDir := GetCurrentDir;
   openDialog.Options := [ofFileMustExist];
   openDialog.Filter := 'Archivo a Copiar|*.*';
   openDialog.FilterIndex := 1;
   if openDialog.Execute then
   begin
      if SelectDirectory('Seleccione un Directorio de Destino de Copia', 'C:\', chosenDirectory) then
      begin
         FromFileName := openDialog.FileName;
         ToFileName := chosenDirectory + '\' + ExtractFileName(openDialog.FileName);
         if Copyfile(PChar(FromFileName),PChar(ToFileName),True) then
            MsgUser := 'Archivo Copiado'
         else
            MsgUser := 'El Archivo No Fue Copiado, Existe en el Directorio Destino';
         MessageDlg(MsgUser,mtInformation,[mbOK],0);
      end
      else
      begin
         MsgUser := 'No se Selecciono Ningún Directorio de Destino';
         MessageDlg(MsgUser,mtInformation,[mbOK],0);
      end;
   end
   else
   begin
      MsgUser := 'No se Selecciono Ningún Archivo para Copiar';
      MessageDlg(MsgUser,mtInformation,[mbOK],0);
   end;
   openDialog.Free;
end;

end.

El código anterior en Delphi XE7 sobre Windows 10 Technical Preview x32, permite copiar un archivo de un directorio cualquiera a un directorio destino por medio de la función CopyFile.

Nota : En el código del Msg #6, faltaba incluir el carácter '\' en el String ToFileName.

Espero sea útil

Nelson.

[ociocabure]

por preguntar nomas el archivo no tendra atributos de oculto? por eso no lo ves. Trata de abrirlo desde otra parte del programa, para ver que pasa.