销售管理软件版1楼: 　　有个例子，是将图片保存到文件中
　　想直接把图片保存到自己的TBitmap型变量中，怎么做

2楼: 自己顶 如用友财务软件使用

3楼: 从 ImageEnIO1 到 Image1

[code]
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;
[/code]

注意OpenImageEnDialog1能打开的，TImage构件不一定能显示出来，

这与图片分辨率DPI、色彩等信息有关

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

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

6楼: 闲来无事，自己顶一顶

销售管理软件版7楼: 来一次，顶一次

8楼: 来一次，顶一次

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

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

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

12楼: 没解决，结帖！ 如怎样使用财务软件