使用ImageEnIO控件，如何用内存传递图片(50分)

jlugjb · 2006-03-09

　　有个例子，是将图片保存到文件中
　　想直接把图片保存到自己的TBitmap型变量中，怎么做

jlugjb · 2006-03-09

自己顶

teams · 2006-03-10

从 ImageEnIO1 到 Image1

代码:

procedure TForm1.Button1Click(Sender: TObject);
var
  ex: string;
begin
   if OpenImageEnDialog1.Execute then
   begin

     ImageEnIO1.LoadFromFile(OpenImageEnDialog1.Filename);
     if not imageenio1.IEBitmap.IsEmpty then
       image1.Picture.Assign(ImageEnIO1.IEBitmap.VclBitmap);

     ex := Lowercase(ExtractFileExt(OpenImageEnDialog1.Filename));
     if ( ex = '.bmp' ) then
        ImageEnIO1.DoPreviews ( [ ppBMP ] );
     if (ex = '.gif') then
       ImageEnIO1.DoPreviews([ ppGIF ]);
     if (ex = '.jpg') or (ex = '.jpeg') then
       ImageEnIO1.DoPreviews([ ppJPEG ]);
   end;
end;

注意OpenImageEnDialog1能打开的，TImage构件不一定能显示出来，
这与图片分辨率DPI、色彩等信息有关

jlugjb · 2006-03-10

对不起，我没有说明白，是用ImageEnIO控制扫描仪
怎么样让扫描出来的图片通过内存传递到程序

teams · 2006-03-10

>怎么样让扫描出来的图片通过内存传递到程序
将扫描的图片直接显示在TImageEnView不行吗？
ImageEnIO1.AttachedImageEn:=ImageEnView1;

jlugjb · 2006-03-12

闲来无事，自己顶一顶

jlugjb · 2006-03-12

来一次，顶一次

jlugjb · 2006-03-13

来一次，顶一次

WUSUBAR · 2006-03-13

我读取照片的时候总是显示 JPEG ERROR #53
为什么呢?谢谢大家

jlugjb · 2006-03-13

那个大哥回答一下我的问题啊

jlugjb · 2006-03-17

加了个imageview控件就正常了，总觉得不是最好的方法。

jlugjb · 2006-05-19

没解决，结帖！

使用ImageEnIO控件，如何用内存传递图片(50分)

jlugjb

Unregistered / Unconfirmed

jlugjb

Unregistered / Unconfirmed

teams

Unregistered / Unconfirmed

jlugjb

Unregistered / Unconfirmed

teams

Unregistered / Unconfirmed

jlugjb

Unregistered / Unconfirmed

jlugjb

Unregistered / Unconfirmed

jlugjb

Unregistered / Unconfirmed

WUSUBAR

Unregistered / Unconfirmed

jlugjb

Unregistered / Unconfirmed

jlugjb

Unregistered / Unconfirmed

jlugjb

Unregistered / Unconfirmed

Similar threads