请求报错原因，

raorao · 发表于 2009-9-22 10:39:41

var
  vTemp :string;
  lStream: TFileStream;

if OpenPicDlg.Execute then
  begin
lStream := TFileStream.Create(OpenPicDlg.FileName, SysUtils.fmOpenRead);
vTemp := OpenPicDlg.FileName;
vJpeg := TJpegImage.Create;
      vJpeg.LoadFromFile(vTemp);

这句报错，而且是有时报有时不报怎么回事?
lStream := TFileStream.Create(OpenPicDlg.FileName, SysUtils.fmOpenRead);

shangxy · 发表于 2009-9-22 11:09:56

把函数的完整代码贴出来看看

raorao · 发表于 2009-9-22 12:06:36

TFileStream.Create(OpenPicDlg.FileName, SysUtils.fmOpenRead); 这个是平台的函数

atiger · 发表于 2009-9-22 12:11:28

楼主，根据1楼的提示，找到这个文件，看看是否能打开呢

raorao · 发表于 2009-9-22 12:23:26

有时能打开有时不能

shangxy · 发表于 2009-9-22 13:37:54

lStream.Free了么？

raorao · 发表于 2009-9-22 14:49:24

我自己换了种方法弄出来了。

shangxy · 发表于 2009-9-22 14:55:44

怎么弄的啊？共享一下啊？

		自动登录	找回密码
密码			立即注册