| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа со сканером [D5]

Ильнур ©   (2002-06-10 14:50:00) 

Нужна компонента или просто подскажите как в программе сканировать изображение и сохранить его в формате jpg.
При этом можно канечно вызвать тваин диалог самого сканера но это слишком долго (предварительное сканирование, сохранение.
Хотелось как в FainRidere с опцией без вызова тваин диалога.
Помогите пожалуста кто сможет!

---

Ильнур   (2002-06-10 15:47:00) [1]

Спасибо всем за ответы особенно Burmistroff!

---

Burmistroff   (2002-06-10 15:12:00) [2]

вот тогда как будет выглядеть весь процесс:

...
sca: TImgScan;
...

var
ss:TShiftState;
implementation


{$R *.dfm}

procedure TForm1.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ss:=Shift;
end;

procedure TForm1.BitBtn1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ss:=Shift;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if ssShift in ss then sca.ShowSetupBeforeScan:=true else sca.ShowSetupBeforeScan:=false;
deletefile(sca.image);
sca.StartScan;
end;


---

Burmistroff   (2002-06-10 15:06:00) [3]

В Win98 есть программа - Imaging. Так вот, она сделана н OCX компоненте, которые лежат в папке Windows/System. Их нужно просто установить через Delphi. НО - при переводе на другую машину нужно будет взять эти OCX файлы и зарегистрировать их там.

---

Producer   (2002-06-10 14:57:00) [4]

Ну попробуй, обратись к спецам из ABBYY - может поделятся.

---

Наверх