Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

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

 
Ильнур   (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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-71111
Oleg_poligon
2002-08-12 18:42
2002.08.22
Добавление кода


1-71131
MikeFW
2002-08-13 10:47
2002.08.22
Работа с Excel


3-71051
RomaFilatov
2002-08-01 12:11
2002.08.22
Использование TClientDataSet


3-71027
Сергей.
2002-07-31 14:02
2002.08.22
Доступ к полям таблицы


14-71306
Hiks
2002-07-23 07:06
2002.08.22
Delphi - умирающий язык...