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

[Herly]

Есть код получения изображения со сканера:

begin
TWAIN_LogFile(1);
TWAIN_SetHideUI(false);
if TWAIN_OpenDefaultSource() then
begin
TWAIN_SetXferCount(1);
if not TWAIN_SetAutoScan(false) then
Application.MessageBox('SetAutoScan (FALSE) failed - scanner cannot single-scan?', 'TWAIN Alert', MB_OK);
{ If you don't have a Window handle, pass 0: }
hdib := TWAIN_Acquire(self.Handle);
if hdib<>0 then
begin
{ <your image processing here> }
DIB_Free(hdib)
end
end;
if TWAIN_LastErrorCode()<>0 then
begin
TWAIN_ReportLastError('Unable to scan.')
end;
end;

Подскажите что нужно дописать чтобы картинка загрузилась в TImage.

Либо что можно добавить вот в такой код, чтобы картинка грузилась в Image и удалялась с диска:

begin
TWAIN_LogFile(1);
TWAIN_SetHideUI(false);
TWAIN_SetFileAppendFlag(false);
TWAIN_SetJpegQuality(75);
if TWAIN_OpenDefaultSource() then
begin
TWAIN_SetXferCount(1);
if not TWAIN_SetAutoScan(false) then
Application.MessageBox('SetAutoScan (FALSE) failed - scanner cannot single-scan?', 'TWAIN Alert', MB_OK);
{ If you don't have a Window handle, pass 0: }
TWAIN_AcquireToFilename(self.Handle , 'c:\image.bmp')
end;
if TWAIN_LastErrorCode()<>0 then
TWAIN_ReportLastError('Unable to scan.')
end;

Во втором коде я пробовал добавить:

Form1.Image1.Picture.LoadFromFile(' c:\image.bmp');

А как тогда удалить файл с картинкой?

[raxp]

для работы с MultiTWAIN интерфейсом обычно использую следующую конструкцию...

var dat: hBitMap;
     rbmp: tbitmap;
...

try
   rbmp.Palette :=TWAIN_CreateDibPalette(dat);
   rbmp.Width := Width;
   rbmp.Height := Height;
   TWAIN_DrawDibToDC(rbmp.Canvas.Handle,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:=rbmp;

не забываем также очищать

TWAIN_FreeNative(dat)

[Herly]

Я использую EZtwain, там выдавался самой прогой код приведённый выше(2 коада).
а ваш вариант выдаёт ошибку.

[raxp]

просто для справки... MultiTWAIN это дельфи-хэдеры EZtwain интерфейса либы EZTWAIN.DLL

...а ваш вариант выдаёт ошибку.

...наверно потому, что вы просто неправильно его используете... неплохо-бы озвучивать что за ошибку выдает.

[Herly]

А MultiTwain, его надо как-то ставить или запускать?(поясните плиз что такое хедеры) Можно на него ссылочку если это прога.
А ошибка вот такая: Project Project1.exe raised exception class EAccessViolation with message 'Asses violation at adress 00442106 in module 'Project1.exe'. Read of adress 00000000'.

[raxp]

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

 //Создаем битовую матрицу
 rbmp:=TBitMap.Create;

потом выбираем источник...

 TWAIN_SelectImageSource(Handle);

и собственно передаем запрос на получение-сканирование...

var
 dat: hBitMap;
 PInfo: PBitMapInfoHeader;
 Height,Width:integer;
begin
 //Получаем указатель на графические данные
 dat:=TWAIN_AcquireNative(Handle,0);
 if dat <> 0 then begin
  //Получаем указатель на область памяти содержащей DIB
  //данные и блокируем область памяти
  PInfo:=GlobalLock(dat);

  //Анализируем полученные данные
  try
  Height:=296;////PInfo.biHeight;
  Width:=210;//PInfo.biWidth;
  except end;

  //Разблокируем память
  GlobalUnlock(dat);
  //Передаем в битовую матрицу графические данные
  //И устанавливаем перехват ошибок
  try
   rbmp.Palette :=TWAIN_CreateDibPalette(dat);
   rbmp.Width := Width;
   rbmp.Height := Height;
   TWAIN_DrawDibToDC(rbmp.Canvas.Handle,0,0,Width,Height,dat,0,0);
  except end;

   //Отображаем графические данные // с image- уже можем делать, что угодно
   Image1.Picture.Graphic:= rbmp;  //Image1.Picture.Assign(rbmp); //Image1.Canvas.draw(10,10,rbmp);
  
   //Освобождаем память занятую графическими данными
   TWAIN_FreeNative(dat);
 end;
 form1.SetFocus
end;

модуль MultiTwain прилагаю...

[Herly]

А что с этм модулем делать-то?

[raxp]

uses MultiTWAIN;

[Herly]

а то что в txt нужно добавить в новую формачку?

[raxp]

...это переименовать в pas.