Image1.Picture.LoadFromFile('d:/sss.jpg')为什么报未知图片文件扩展名(.jpg)(15分)

L

lilacky

Unregistered / Unconfirmed
GUEST, unregistred user!
Image1.Picture.LoadFromFile('d:/sss.jpg')为什么报未知图片文件扩展名(.jpg)
 
uses
Jpeg;
即可
 
呵呵,好不容易会一题还来晚了。
 
Jpeg加了吗
 
Use Jpeg;
var mjpg:TJpeg;
begin
mjpg := TJpeg.Create;
...
mjpg...
{...}
end;
Wish you well done!
 
我碰到过
解决了!

//解决的办法现在忘了。
 
加入头文件Jpeg,uses Jpeg;
 
Image不能在程序中不能直接加载JPG文件,要使用TJpeg专一下!
 
unit UPasserdata;

interface

uses
Windows, Messages,*jpeg*, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, ExtCtrls, StdCtrls, DBCtrls, Grids, DBGrids, Buttons, Mask, Db,
DBTables;

type
TFrmPasserdata = class(TForm)
看*号之间的是什么啊!把JPEG加进去就好了。
呵呵~~~~以前我也被骗过的呵呵~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
EWUYONG 说的有道理。
 
先设计期装载一.jpg文件,以后就可以不管了
也就是在use 了一把吧?
 
procedure Tfrm_sfxm.popmnuitm_imageClick(Sender: TObject);
var
jpg:tjpegimage;
extname,fname:string;
begin
tblxmxgwj.Insert;
if OpenPictureDialog1.Execute then
begin
ext:=extractfileext(fname);
fname:=OpenPictureDialog1.FileName;
extname:=uppercase(extractfileext(fname));
if extname='.BMP' then DBImage1.Picture.LoadFromFile(fname);
if (extname='.JPG') or (extname='.JPEG') then
begin
jpg:=Tjpegimage.Create;
try
jpg.LoadFromfile(fname);
DBImage1.Picture.Graphic.Assign(jpg);
finally
jpg.Free;
end;
end;
end;
end;
 
也可以用流来转换
 
在uses中加入JPEG即可显示!
 
大家都是同一个答案,不用这么抢分吧!唉!
 
uses jpeg
绝对正确
 
[:(]大家都说了
 
接受答案了.
 
顶部