Форум: "Система";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Вниз

Работа со сканером   Найти похожие ветки 

← →
Ильнур   (2002-06-10 14:50) [0]

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

---

← →
Producer   (2002-06-10 14:57) [1]

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

---

← →
Burmistroff   (2002-06-10 15:06) [2]

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

---

← →
Burmistroff   (2002-06-10 15:12) [3]

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

...
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;


---

← →
Ильнур   (2002-06-10 15:47) [4]

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

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.006 c