如何清除image中的图片？(50分)

T

tswhoney

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #1

我用image1.pictuer.bitmap.assign(opendialog1.fieldname)将图片付给image1,如何用程序清除图片，另外此方法只能付bmp图，如何付jpg图？

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #2

如何付jpg图？
uses jpge
如何用程序清除图片?
Image1.Picture.LoadFromFile(opendialog1.fieldname)
Image1.Picture.Bitmap.FreeImage;

 

下

下雨了

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #3

image1.Picture.Bitmap.Assign(nil) 清空

 

T

takashiki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #4

如何付jpg图
Image1.Picture.Graphic.LoadFromFile(opendialog1.fieldname);

 

T

tswhoney

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #5

to takashiki:你的方法不行，不能通过。
谁知道如何显示jpg图片？

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #6

uses jpeg;

 

T

tswhoney

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #7

那位能说详细点？

 

D

dx2527

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #8

unit Unit1;

interface

uses
Windows,JPEG,....<-----在这里加上’JPEG’,Image就能附上*.jpg了

 

T

tswhoney

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #9

可我在这里测试了Image1.Picture.Graphic.LoadFromFile(opendialog1.fieldname); 不行。

 

T

tswhoney

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #10

希望各位在回答前先测试一下。

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #11

没留意看，Image1.Picture.LoadFromFile

 

X

xjch

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #12

image1.picture:=nil;
OK!

 

X

x900

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #13

Image1.Picture.Bitmap.FreeImage; //清除图片;

uses Jpeg;
Image1.Picture.Graphic.LoadFromFile(FileName); // 加载Jpeg
不过TImage显示不了Jpeg文件的;

 

W

wyb_star

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #14

image1.pictuer.Graphic.Assign(nil);

 

快

快乐的熊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #15

最简单 image1.picture:=nil;

 

L

lgxyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #16

如何付jpg图？
uses jpge
如何用程序清除图片?
Image1.Picture.LoadFromFile(opendialog1.fieldname)
Image1.Picture.Bitmap.FreeImage;

 

D

dcsdcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #17

来自：快乐的熊, 时间：2003-8-19 13:16:00, ID：2119204
最简单 image1.picture:=nil;

 

Y

yue_shan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #18

var
PictureName,ExtName:string;
JpegImage:TJpegImage;
begin
inherited;
if OpenPictureDialog1.Execute then
begin
PictureName := OpenPictureDialog1.FileName;
ExtName := ExtractFileExt(PictureName);
if UpperCase(ExtName) = '.BMP' then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end
else if (UpperCase(ExtName)='.JPG') OR (UpperCase(ExtName)='.JEPG') then
begin
Jpegimage := TJpegImage.Create;
try
Jpegimage.LoadFromFile(OpenPictureDialog1.FileName);
Image1.Picture.Graphic.Assign(Jpegimage);
finally
jpegimage.Free;
end;
end;
end;

 

下

下雨了

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #19

To：yue_shan
你的 Image1.Picture.Graphic.Assign(Jpegimage); 这行代码运行后有错误
把它改成 Image1.Picture.Bitmap.Assign(Jpegimage); 这样就可以显示出JPG的图像了

 

T

tswhoney

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-21

• #20

我用uses jpeg,但我的delphi提示无法定位jpeg单元，是哪儿的问题？