程序很简单!显示图象,莫名的出错!!急啊!大家看看!! (5分)

  • 主题发起人 主题发起人 infernor
  • 开始时间 开始时间
I

infernor

Unregistered / Unconfirmed
GUEST, unregistred user!
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Image1: TImage;
SpeedButton1: TSpeedButton;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('emp-photo/sanper46.bmp');
end;



procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
OpenDialog1.Execute;
end;

end.


////////////////////////////////////////////////

当按下TForm1.Button1 时,image1显示图象,再按下TForm1.SpeedButton1 时打开一文件,
再次按下TForm1.Button1 时出错:can not open emp-photo/sanper46.bmp,为什么???如何解决???

 
image1.Picture.LoadFromFile('emp-photo/sanper46.bmp');
///??????????????????????????????????????????

这个路径应该有问题
因为你使用的是相对路径
首先在程序例如在'c:/demo/a.exe'
则你的图象就在'c:/demo/emp-photo/sanper46.bmp'
在你调用openfiledialog后相对路径改变了当然文件不存在了

象你这中情况还是用绝对路径比较合适
 
首先在程序例如在'c:/demo/a.exe'
则你的图象就在'c:/demo/emp-photo/sanper46.bmp'
在你调用openfiledialog后相对路径改变了当然文件不存在了
--------------------------------
相對路徑永遠是 "c:/demo/"
 
你把要显示的图片文件与项目文件放在一起再试试呢?
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
769
SUNSTONE的Delphi笔记
S
I
回复
0
查看
636
import
I
I
回复
0
查看
544
import
I
后退
顶部