routines.pas

扫描软件

mstrparameters := 'minresolution=' + glngminresolution;//----------------------------------------------------------
else 
mstrparameters := 'minresolution:  unsupported';
end; //Main if block
call frmeventlog.generatelogevent(mstrpmetype, mstreventname, mstrparameters)




if  gblngetmaxresolutionsupported = true  then
begin
mstrparameters := 'maxresolution=' + glngmaxresolution;//----------------------------------------------------------
else 
mstrparameters := 'maxresolution:  unsupported';
end; //Main if block
call frmeventlog.generatelogevent(mstrpmetype, mstreventname, mstrparameters)




if  gblngetresolutionstepsupported = true  then
begin
if  gblnresolutionsteparray = true  then
begin
mstrparameters := 'resolutionstep=array';//----------------------------------------------------------
else 
mstrparameters := 'resolutionstep=' + glngresolutionstep;
end; //Main if block
else 
mstrparameters := 'resolutionstep:  unsupported';
end; //Main if block
call frmeventlog.generatelogevent(mstrpmetype, mstreventname, mstrparameters)




if  gblngetminbrightnesssupported = true  then
begin
mstrparameters := 'minbrightness=' + glngminbrightness;//----------------------------------------------------------
else 
mstrparameters := 'minbrightness:  unsupported';
end; //Main if block
call frmeventlog.generatelogevent(mstrpmetype, mstreventname, mstrparameters)




if  gblngetmaxbrightnesssupported = true  then
begin
mstrparameters := 'maxbrightness=' + glngmaxbrightness;//----------------------------------------------------------
else 
mstrparameters := 'maxbrightness:  unsupported';
end; //Main if block
call frmeventlog.generatelogevent(mstrpmetype, mstreventname, mstrparameters)




if  gblngetbrightnessstepsupported = true  then
begin
if  gblnbrightnesssteparray = true  then
begin
mstrparameters := 'brightnessstep=array';//----------------------------------------------------------
else 
mstrparameters := 'brightnessstep=' + glngbrightnessstep;
end; //Main if block
else 
mstrparameters := 'brightnessstep:  unsupported';
end; //Main if block
call frmeventlog.generatelogevent(mstrpmetype, mstreventname, mstrparameters)




if  gblngetautobrightnesssupported = true  then
begin
mstrparameters := 'autobrightness=' + gstrautobrightness;//----------------------------------------------------------
else 
mstrparameters := 'autobrightness:  unsupported';
end; //Main if block
call frmeventlog.generatelogevent(mstrpmetype, mstreventname, mstrparameters)




if  gblngetmincontrastsupported = true  then
begin
mstrparameters := 'mincontrast=' + glngmincontrast;//----------------------------------------------------------
else 
mstrparameters := 'mincontrast:  unsupported';
end; //Main if block
call frmeventlog.generatelogevent(mstrpmetype, mstreventname, mstrparameters)




if  gblngetmaxcontrastsupported = true  then
begin
mstrparameters := 'maxcontrast=' + glngmaxcontrast;//----------------------------------------------------------
else 
mstrparameters := 'maxcontrast:  unsupported';
end; //Main if block
call frmeventlog.generatelogevent(mstrpmetype, mstreventname, mstrparameters)




if  gblngetcontraststepsupported = true  then
begin
if  gblncontraststeparray = true  then
begin
mstrparameters := 'contraststep=array';//----------------------------------------------------------
else 
mstrparameters := 'contraststep=' + glngcontraststep;
end; //Main if block
else 
mstrparameters := 'contraststep:  unsupported';
end; //Main if block
call frmeventlog.generatelogevent(mstrpmetype, mstreventname, mstrparameters)




if  gblngetautocontrastsupported = true  then
begin
mstrparameters := 'autocontrast=' + gstrautocontrast;//----------------------------------------------------------
else 
mstrparameters := 'autocontrast:  unsupported';
end; //Main if block
call frmeventlog.generatelogevent(mstrpmetype, mstreventname, mstrparameters)




if  gblngetadfavailablesupported = true  then
begin
mstrparameters := 'adfavailable=' + gstradfavailable;//----------------------------------------------------------
else 
mstrparameters := 'adfavailable:  unsupported';
end; //Main if block
call frmeventlog.generatelogevent(mstrpmetype, mstreventname, mstrparameters)




if  gblngetmaxheightadfsupported = true  then
begin
mstrparameters := 'maxheightadf=' + gstradfavailable;//----------------------------------------------------------
else 
mstrparameters := 'maxheightadf:  unsupported';
end; //Main if block
call frmeventlog.generatelogevent(mstrpmetype, mstreventname, mstrparameters)

// left unchanged ==> exit;

scanerror:
if  frmmain.imgscan1.statuscode <> 0  then
begin
showmessage err.description + ' (imgscan error ' & _
hex(frmmain.imgscan1.statuscode) + ')', vbcritical
end; //Main if block

end;

procedure getsaveuserpreferences(strgetsave : string);
begin











if  strgetsave = 'save'  then
begin
saveting app_name, scan_pref_key, 'scan tings', gintscantings//----------------------------------------------------------
saveting app_name, scan_pref_key, 'document type', gintdocumenttypeindex
saveting app_name, scan_pref_key, 'use adf', gblnuseadf
saveting app_name, scan_pref_key, 'scan to directory', gstrscantodirectory
saveting app_name, scan_pref_key, 'color', gintcolorindex
saveting app_name, scan_pref_key, 'horizontal dpi', ginthorizontaldpi
saveting app_name, scan_pref_key, 'vertical dpi', gintverticaldpi
saveting app_name, scan_pref_key, 'paper size', gintpapersizeindex
saveting app_name, scan_pref_key, 'paper width', gdblpaperwidth
saveting app_name, scan_pref_key, 'paper height', gdblpaperheight
if  frmmain.windowstate <> vbminimized  then
begin
saveting app_name, window_pos_key, 'left', frmmain.left
saveting app_name, window_pos_key, 'top', frmmain.top
saveting app_name, window_pos_key, 'width', frmmain.width
saveting app_name, window_pos_key, 'height', frmmain.height
end; //Main if block
// left unchanged ==> exit;
end; //Main if block




if  getting(app_name, scan_pref_key, 'scan tings') = empty  then
begin
gintscantings := 1;//----------------------------------------------------------
else 
gintscantings := getting(app_name, scan_pref_key, 'scan tings');
end; //Main if block




if  getting(app_name, scan_pref_key, 'document type') = empty  then
begin
gintdocumenttypeindex := 0;//----------------------------------------------------------
else 
gintdocumenttypeindex := getting(app_name, scan_pref_key, 'document type');
end; //Main if block




if  getting(app_name, scan_pref_key, 'use adf') = empty  then
begin
gblnuseadf := true;//----------------------------------------------------------
else 
gblnuseadf := getting(app_name, scan_pref_key, 'use adf');
end; //Main if block




if  getting(app_name, scan_pref_key, 'scan to directory') = empty  then
begin
gstrscantodirectory := gstrwindowsdirectory;//----------------------------------------------------------
else 
gstrscantodirectory := getting(app_name, scan_pref_key, 'scan to directory');
end; //Main if block




if  getting(app_name, scan_pref_key, 'color') = empty  then
begin
gintcolorindex := 0;//----------------------------------------------------------
else 
gintcolorindex := getting(app_name, scan_pref_key, 'color');
end; //Main if block




if  getting(app_name, scan_pref_key, 'horizontal dpi') = empty  then
begin
ginthorizontaldpi := 200;//----------------------------------------------------------
else 
ginthorizontaldpi := getting(app_name, scan_pref_key, 'horizontal dpi');
end; //Main if block




if  getting(app_name, scan_pref_key, 'vertical dpi') = empty  then
begin
gintverticaldpi := 200;//----------------------------------------------------------
else 
gintverticaldpi := getting(app_name, scan_pref_key, 'vertical dpi');
end; //Main if block




if  getting(app_name, scan_pref_key, 'paper size') = empty  then
begin
gintpapersizeindex := 0;//----------------------------------------------------------
else 
gintpapersizeindex := getting(app_name, scan_pref_key, 'paper size');
end; //Main if block




if  getting(app_name, scan_pref_key, 'paper width') = empty  then
begin
gdblpaperwidth := 8.5;//----------------------------------------------------------
else 
gdblpaperwidth := getting(app_name, scan_pref_key, 'paper width');
end; //Main if block




if  getting(app_name, scan_pref_key, 'paper height') = empty  then
begin
gdblpaperheight := 8.5;//----------------------------------------------------------
else 
gdblpaperheight := getting(app_name, scan_pref_key, 'paper height');
end; //Main if block





if  getting(app_name, window_pos_key, 'left') = empty  then
begin
frmmain.move (screen.width - frmmain.width) / 2, _//----------------------------------------------------------
(screen.height - frmmain.height) / 2
else 
frmmain.left := getting(app_name, window_pos_key, 'left');
frmmain.top := getting(app_name, window_pos_key, 'top');
frmmain.width := getting(app_name, window_pos_key, 'width');
frmmain.height := getting(app_name, window_pos_key, 'height');
end; //Main if block

end;

procedure refreshstatusform(strlabel : string;strfile : string);
begin





frmstatus.lbltitle := strlabel;//**************************************************************
frmstatus.lblfile := strfile;
// left unchanged ==> frmstatus.refresh;

end;

function splitpath(strfullpathfilename : string;strpathorfile : variant):string;
begin







intbackslashposition : integer;
intfullpathfilenamelength : integer;
intfilenamelength : integer;
intpathnamelength : integer;

strworkingstring : string;
strfilename : string;
strpathname : string;






strworkingstring := strfullpathfilename;//----------------------------------------------------------
// left unchanged ==> do;
intbackslashposition := instr(1, strworkingstring, '\');
if  intbackslashposition > 0  then
begin
strworkingstring := mid(strworkingstring, intbackslashposition + 1);
end; //Main if block
loop until intbackslashposition = 0

strfilename := trim(strworkingstring);





intfullpathfilenamelength := len(strfullpathfilename);//----------------------------------------------------------
intfilenamelength := len(strfilename);
intpathnamelength := intfullpathfilenamelength - (intfilenamelength + 1);
strpathname := mid(strfullpathfilename, 1, intpathnamelength);





if  strpathorfile = 'path'  then
begin
splitpath := strpathname;//----------------------------------------------------------
else 
splitpath := strfilename;
end; //Main if block

end;

end.