Buenos Dias!
Estoy haciendo algunas cosas con Delphi 7 y cuando quiero ejecutar un SaveDialog me da Access Violation:
No encuentro como solucionarlo, asi que adjunto los archivos del proyecto, que solo tiene un Formulario con un TBitBtn y lo demas va por codigo:
unitexterna2.dpr
Código Delphi
[-]program unitexterna2;
uses
Forms,
UnitMain in 'UnitMain.pas' ,
UnitAccion in 'UnitAccion.pas';
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TFormMain, FormMain);
Application.Run;
end.
UnitMain.pas
Código Delphi
[-]unit UnitMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TFormMain = class(TForm)
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
public
end;
var
FormMain: TFormMain;
implementation
Uses UnitAccion;
{$R *.dfm}
procedure TFormMain.BitBtn1Click(Sender: TObject);
Var
Accion : TClaseAccion;
begin
Accion := TClaseAccion.Create;
Accion.hacelo;
end;
end.
UnitAccion.pas
Código Delphi
[-]unit UnitAccion;
interface
Uses Dialogs;
type
TClaseAccion = class
SaveDialog1 : TSaveDialog;
procedure hacelo;
end;
implementation
procedure TClaseAccion.hacelo;
var
URL : string;
begin
URL := InputBox('Ir a URL', 'Ingrese URL completa', '');
if URL = '' then Exit;
if not SaveDialog1.Execute then Exit;
end;
end.
Al momento de llamar "SaveDialog1.Execute" salta la ecepcion, ¿Que estara pasando?
Muchas Gracias!