gpt4 book ai didi

delphi - 如何在不将扫描图像保存到磁盘的情况下将扫描图像从 WIA ImageFile 传输到 TBitmap?

转载 作者:行者123 更新时间:2023-12-03 15:58:19 25 4
gpt4 key购买 nike

我正在使用此代码从 WIA 获取扫描图像:

const
wiaFormatJPEG = '{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}';
wiaFormatPNG = '{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}';
var
CommonDialog: ICommonDialog;
AImage: IImageFile;
i: Integer;
begin
CommonDialog := CreateOleObject('WIA.CommonDialog') as ICommonDialog;

for i := 1 to Scanner.Properties.Count do
begin
if (Scanner.Properties[i].Name = 'Horizontal Resolution') or
(Scanner.Properties[i].Name = 'Vertical Resolution') then
Scanner.Properties[i].Set_Value(72)
else if Scanner.Properties[i].Name = 'Horizontal Extent' then
Scanner.Properties[i].Set_Value(Round(8.27 * 72))
else if Scanner.Properties[i].Name = 'Vertical Extent' then
Scanner.Properties[i].Set_Value(Round(11.00 * 72));
end;
AImage := IUnknown(CommonDialog.ShowTransfer(Scanner, wiaFormatPNG, True)) as IImageFile;
//Save the image
AImage.SaveFile('D:\1.' + AImage.FileExtension);
imgImage.Picture.LoadFromFile('D:\1.' + AImage.FileExtension);
DeleteFile('D:\1.' + AImage.FileExtension);
end;

Scanner 使用以下代码初始化:

Scanner := DevMgr.DeviceInfos[Integer(cbWIASource.Items.Objects[cbWIASource.ItemIndex])].Connect.Items[1];

并且 DevMgrcbWIASource 使用此代码进行初始化:

DevMgr := CreateOleObject('WIA.DeviceManager') as IDeviceManager;
for i := 1 to DevMgr.DeviceInfos.Count do
for j := 1 to DevMgr.DeviceInfos[i].Properties.Count do
if DevMgr.DeviceInfos[i].Properties[j].Name = 'Name' then
begin
cbWIASource.Items.AddObject(DevMgr.DeviceInfos[i].Properties[j].Get_Value, TObject(i));
Break;
end;

我想知道是否有一种方法可以在不先将扫描文档保存到磁盘的情况下复制它。我在 MSDN 上读到我可以访问 ImageFileARGBData 成员来访问像素数据,但是有没有一种简单的方法可以从 FileData 复制整个图像> 到 TBitmap?例如,我可以使用 TMemoryStream 吗?


作为更新,我找到了this example在 MSDN 上。我对 VB 一无所知,但我猜 Picture 对象是 HBITMAP 的包装器。那么,得出 ImageFile.Picture 属性是我需要的结论是否合乎逻辑?

最佳答案

IImageFile 有一个属性 FileData,通过 IVector.BinaryData 提供对二进制图像数据的访问。

关于delphi - 如何在不将扫描图像保存到磁盘的情况下将扫描图像从 WIA ImageFile 传输到 TBitmap?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13108742/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com