problema con funciones delphi

[xelip]

sigo teniendo problemas con las funciones copyfile y movefile, ya revise lo que devuelve la funcion getlasterror, pero el llamado al api esta OK, este es el codigo que tengo:

var ExistFile,NewFile: String;
if opendialog1.execute then ExistFile := opendialog1.filename;
if savadialog1.execute then NewFile := savadialog1.filename;
copyfile(PChar(ExisteFile),PChar(NewFile),False);

cuando ejecuta el primer if todo sigue normal, pero cuando ejecuta el savedialog, entonces se cierra la aplicacion, antes de poder seleccionar el archivo donde voy a guardar.

agradeceria mucho que alguien me ayudara....
gracias

[Robert01]

Si ponés este código en el evento click de un botón y lo ejecutás anda perfectamente, debe haber un leve error en tu código

Código Delphi [-]
var
  fileSource, fileDest: string;
begin
  if opendialog1.Execute then fileSource := opendialog1.FileName;

  filedest:=savedialog1.FileName;

  if savedialog1.Execute then CopyFile(PChar(filesource), PChar(filedest), False);
end;

Saludos

[[egostar]]

Yo creo que es mejor así, tu idea es muy buena Roberto01

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  fileSource, fileDest: string;
begin
  if opendialog1.Execute then begin
     fileSource := opendialog1.FileName;
     if savedialog1.Execute then begin
        filedest:=savedialog1.FileName;
        CopyFile(PChar(filesource),PChar(filedest), False);
     end;
  end;
end;

Saludos

[xelip]

el problema es que tengo en el codigo de un boton:
if opendialog1.execute then existfile := opendialog1.filename;
y en el otro boton:
if savedialog1.execute then newfile := savedialog1.filename;
copyfile(PChar(existfile),PChar(newfile),False);

el problema es cuando se ejecuta savedialog1.excute, esto provoca que se abra la ventana de save dialog, pero despues de un instante de la ventana abierta, se cierra la apliacion

[[egostar]]

Empezado por xelip

el problema es cuando se ejecuta savedialog1.excute, esto provoca que se abra la ventana de save dialog, pero despues de un instante de la ventana abierta, se cierra la apliacion

Pues no falla, asi esta mi código y no se cierra la aplicación.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  fileSource, fileDest: string;

implementation

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if opendialog1.Execute then begin
     fileSource := opendialog1.FileName;
  end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  if savedialog1.Execute then begin
     filedest:=savedialog1.FileName;
     CopyFile(PChar(filesource),PChar(filedest), False);
  end;
end;

end.

Salud OS.

[xelip]

mi codigo es asi mismo, pero cuando se ejecuta el save dialog da runtime error 217, despues se cierra la apliacion