Текущий архив: 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.022 c
