Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 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.009 c
1-71227
Дима_Еп
2002-08-11 13:46
2002.08.22
Импорт/Експорт Excel


14-71333
Geser
2002-07-25 22:06
2002.08.22
Люди, подкиньте идею для программы.


14-71338
Razpizdyi
2002-07-27 08:00
2002.08.22
MSDN - Что это за справка, и где ее искать?


1-71240
V.Turecky
2002-08-11 18:29
2002.08.22
Проверка существования строки в INI файле...


7-71407
МИФИст
2002-06-08 19:33
2002.08.22
ASCII





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский