加载图片的路径有关问题

加载图片的路径问题
procedure TForm1.FormCreate(Sender: TObject);
var
  ss:TStrings;
  s1:String;
  s2:string;
begin
      ss:=TStringList.Create;
  ss.LoadFromFile('pic.txt');
  s1:=ss.Text;
image1.Picture.LoadFromFile(s1);
end;

我想把图片的路径放在一个文本里面，为什么总是提示 unknown picture file extensino(.jpg)
[解决办法]
uses jpeg;

http://hi.baidu.com/02509/item/95ffbb10910df7001994ec0d
[解决办法]
  unknown picture file extensino(.jpg)

很明显提示 , 不得识别的文件扩展名 


 默认不支持 jpg ,所以
使用1楼的办法解决 
[解决办法]
procedure TForm1.FormCreate(Sender: TObject);
var
  ss:TStrings;
  s1:String;
  s2:string;
begin
      ss:=TStringList.Create;
  ss.LoadFromFile('pic.txt');
  s1:=ss.Text;
  if not FileExists(s1) then
  begin
    showmessage(s1 + '文件不存在!');
    exit;
  end;
try
image1.Picture.LoadFromFile(s1);
except on e : exception do
  showmessage(e.message);
end;
end;
[解决办法]
\\192.168.0.124\share\12.jpg
是远程的文件
首先得程序运行者有权访问
你的程序是桌面程序还是服务程序？
[解决办法]

引用:

uses jpeg 这个我有。

我知道了，原来是图片不存在，图片我是读取共享里面的一个文件，但是为什么我直接加上路径就可以读取到呢？
例如image1.Picture.LoadFromFile('\\192.168.0.124\share\12.jpg') 就可以读取到，但是如果把这个路径放到文本里面，然后再读取，就无法加载。

程序在找文件的时候是按照如下规则找的
1.先找和Exe相同路径的文件，如果你的12.jpg和你exe在一起，你的写法是可以加载的。
2.如果找不到，程序会到system32文件夹下去找，否则就会报告错误。

因此加载一个文件要包含这个文件的具体路径才能正确加载。
[解决办法]
我用文本都是用ini的。读取ini信息ReadString('AppTest','update','0')；具体用法网上查一下吧，没用过txt这么读取的。你这个应该就是路径的问题。你测试showmessage路径对不对。

查看更多 下一篇