2,497
社区成员
发帖
与我相关
我的任务
分享图片为什么显示不了
这在个文件夹里面我有这张图片啊,为什么却总说找不到文件呢,是不是路径有问题啊,大家帮我改改,多谢了.
procedure TForm1.Button1Click(Sender: TObject);
var
tempfile:string;
begin
tempfile:='F:\图片\新建文件夹\新建文件夹 (2)\1.jpeg';
image1.Picture.LoadFromFile(tempfile)
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
var
tempfile:string;
begin
tempfile:='F:\图片\新建文件夹\新建文件夹 (2)\1.jpeg';
image1.Picture.LoadFromFile(tempfile)
end;
end.
...全文
请发表友善的回复…
发表回复
J198728 2009-10-27
- 打赏
- 举报
多谢五楼的回答!
Q315054403 2009-10-27
- 打赏
- 举报
当路径包含空格时，要加上引号，如：
tempfile:='"F:\图片\新建文件夹\新建文件夹 (2)\1.jpeg"';
这不是Delphi的错，是OS贯例
tempfile:='"F:\图片\新建文件夹\新建文件夹 (2)\1.jpeg"';
这不是Delphi的错，是OS贯例
7年 2009-10-27
- 打赏
- 举报
换个路径看看。或者写相对路径试试。
J198728 2009-10-27
- 打赏
- 举报
楼上的师傅,我用了JPEG的,
s11ss 2009-10-26
- 打赏
- 举报
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Jpeg;
type
TForm1 = class(TForm)
...
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Jpeg;
type
TForm1 = class(TForm)
...
s11ss 2009-10-26
- 打赏
- 举报
uses Jpeg
