Подскажите как добавить изображение со сканера в TImage

[Herly]

А вы немогли бы мне кодик написать сами, я незнаю как вообще обращаться к Twain. И если можно скажите что почитать чтобы понять логику программирования в этом направлении.
По коментам в проге я понял что указать источник нужно вот так

TWAIN_SelectImageSource(Handle);

А вот что дальше писать, для меня пока тёмный лес(.

[Terran]

Вот, всё как просили: Twain1.rar
Сначала указывайте нужный источник и всё. Потом можете сканировать.

[Herly]

А можно как-то убрать выборку сурса, тупо жать кнопочку и чтобы открывалось окно, которое идёт в дровах сканера любого? А если таковых нет, тогда уже виндоусовские.(и вывод длины, ширины и кол-ва пикселей мне не нужен).

[Herly]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses MultiTWAIN;

{$R *.dfm}
var MyBitMap:TBitMap;
procedure TForm1.Button1Click(Sender: TObject);
var dat:hBitMap; PInfo: PBitMapInfoHeader;
begin
MyBitMap:=TBitMap.Create;
TWAIN_SelectImageSource(Handle);
dat:=TWAIN_AcquireNative(Handle,0);
if dat <> 0 then begin
{Получаем указатель на область памяти содержащей DIB
данные и блокируем область памяти}
PInfo:=GlobalLock(dat);
{Разблокируем память}
GlobalUnlock(dat);
{Передаем в битовую матрицу графические данные}
{И устанавливаем перехват ошибок}
try
MyBitMap.Palette :=TWAIN_CreateDibPalette(dat);
MyBitMap.Width := Width;
MyBitMap.Height := Height;
TWAIN_DrawDibToDC(MyBitMap.Canvas.H andle,0,0,Width,Height,dat,0,0);
except
{Обрабатываем наиболее вероятную ошибку связанную с не хваткой ресурсов
для загрузки изображения}
on EOutOFResources do
MessageDlg('TBitMap: Нет ресурсов для загрузки изображения!',
mtError,[mbOk],0);
end;
{Отображаем графические данные}
//Canvas.Draw(10,10,MyBitMap);
Image1.Picture.Graphic:=MyBitMap;
{Освобождаем память занятую графическими данными}
TWAIN_FreeNative(dat);
end;
end;

end.

Вот, у меня получилось написать что мне нужно.
Подскажите к этому как сделать то, что я описал в посте выше.
А ещё у вас как-то идёт масштабирование и картинка получется по размеру лучше чем в моём коде. Хотелось бы чтобы картинка масштабировалась согласно размерам TImage.

[Terran]

А можно как-то убрать выборку сурса, тупо жать кнопочку и чтобы открывалось окно, которое идёт в дровах сканера любого? А если таковых нет, тогда уже виндоусовские.

Можно сделать и так, только нужно проверять наличие этих источников и потом уже делать операции с ними. Это нужно работать с компонентом, а я с ним никогда не работал. Хватаю всё на лету.)) Поищите инфу про этот компонент, там думаю будет всё написано.

(и вывод длины, ширины и кол-ва пикселей мне не нужен).

Для этого просто удалите строчки когда, которые выводят эти данные.

Хотелось бы чтобы картинка масштабировалась согласно размерам TImage.

Установите у компонента Image свойство Stretch:=True;

[Herly]

А можете хотя бы подсказать как сделать масштабирование сканированной картинки в зависимости от размера Image. А то щас получается 1-на часть изображения ложится на вторую...
Вот пример сканирования одного листика в клеточку(целикового).

[Terran]

А можете хотя бы подсказать как сделать масштабирование сканированной картинки в зависимости от размера Image.

В посте 35 я написал.

[Herly]

on EOutOFResources do
MessageDlg('TBitMap: Нет ресурсов для загрузки изображения!',
mtError,[mbOk],0);
end;
{Отображаем графические данные}
Image1.Stretch:=true;
Image1.Canvas.Draw(10,10,MyBitMap);
Image1.Picture.Graphic:=MyBitMap;
{Освобождаем память занятую графическими данными}
TWAIN_FreeNative(dat);
end;
end;

Вот что я изменил, результат не поменялся

[Terran]

А у Image свойство Image1.AutoSize:=False;? Если нет, то надо изменить на False. А если надо пропорционально, то есть свойство Image1.Proportional.

[Herly]

Сообщение от Terran

А у Image свойство Image1.AutoSize:=False;? Если нет, то надо изменить на False.

У меня стоит свойство False, на картинке приведённой в посте выше я так понял рисунок вообще выводился на холст формы...
мб можно как то с этим замутить:

Image1.Canvas.StretchDraw()

Только там на первом месте значение TRect, а я не очень понимаю что там писать.
Вот написал так:

Image1.Canvas.StretchDraw(Image1.Cl ientRect,MyBitMap);

Результат не поменялся.