Problem when canceling OpenPictureDialog

Dev Shed Forums Sponsor:

October 28th, 2012, 01:52 PM

havsys

Registered User

Join Date: Jul 2012

Posts: 12

Time spent in forums: 3 h 40 m 3 sec
Reputation Power: 0

Problem when canceling OpenPictureDialog

Hello,

I have this problem.
When I open "OpenPictureDialog" and click Cancel Button i get this message UNKNOWN PICTURE FILE EXTENSION (.)

October 28th, 2012, 11:34 PM

majlumbo

Contributing User

Join Date: Jun 2008

Posts: 257

Time spent in forums: 3 Days 9 m 16 sec
Reputation Power: 6

Without posting the code that causes the error, at best we can only guess as to what is happening.

Given that, my guess is that you are not "Executing" the dialog correctly.

Code:

if OpenPictureDialog.Execute then
begin
   //the file selected will be in
   //OpenPictureDialgo.FileName
   //only do the "loadfromfile" if the dialog is executed
   //otherwise the user clicked cancel
end;

October 29th, 2012, 12:53 AM

havsys

Registered User

Join Date: Jul 2012

Posts: 12

Time spent in forums: 3 h 40 m 3 sec
Reputation Power: 0

Quote:

Originally Posted by majlumbo

Without posting the code that causes the error, at best we can only guess as to what is happening.

Given that, my guess is that you are not "Executing" the dialog correctly.

Code:

if OpenPictureDialog.Execute then
begin
   //the file selected will be in
   //OpenPictureDialgo.FileName
   //only do the "loadfromfile" if the dialog is executed
   //otherwise the user clicked cancel
end;

Sorry about code.
here it is

Quote:

procedure TFMain.ChooseClick(Sender: TObject);
var
sDir : string;
begin
DBImage1.Height:= 200;
dbImage1.Width:= 175;
OpenPictureDialog1.Filter:= '*.bmp|*.bmp|*.jpg|*.jpg';
OpenPictureDialog1.Execute;
sDir := OpenPictureDialog1.FileName;
DBImage1.Picture.LoadFromFile(sDir);
end;

October 29th, 2012, 08:04 AM

majlumbo

Contributing User

Join Date: Jun 2008

Posts: 257

Time spent in forums: 3 Days 9 m 16 sec
Reputation Power: 6

You need to test to see if the user actually executed the dialog box (hits the ok button, vs. the cancel button.

Code:

procedure TFMain.ChooseClick(Sender: TObject);
var
  sDir : string;
begin
  DBImage1.Height:= 200;
  dbImage1.Width:= 175;
  OpenPictureDialog1.Filter:= '*.bmp|*.bmp|*.jpg|*.jpg';
  if OpenPictureDialog1.Execute then
  begin
    sDir := OpenPictureDialog1.FileName;
    DBImage1.Picture.LoadFromFile(sDir);
  end;
end;

October 29th, 2012, 02:46 PM

havsys

Registered User

Join Date: Jul 2012

Posts: 12

Time spent in forums: 3 h 40 m 3 sec
Reputation Power: 0

Thank you.

It's Working.

Problem when canceling OpenPictureDialog

Developer Shed Advertisers and Affiliates