routines.pas

扫描软件

if  intcounter > 0  then
begin
strworkinglegend := strworkinglegend + '; 256 colors';
else 
strworkinglegend := '256 colors';
end; //Main if block
intcounter := intcounter + 1;
end; //Main if block

if  intimagetype and 16  then
begin
if  intcounter > 0  then
begin
strworkinglegend := strworkinglegend + '; true color (24-bit)';
else 
strworkinglegend := 'true color (24-bit)';
end; //Main if block
intcounter := intcounter + 1;
end; //Main if block

if  intimagetype and 32  then
begin
if  intcounter > 0  then
begin
strworkinglegend := strworkinglegend + '; high color (16-bit)';
else 
strworkinglegend := 'high color (16-bit)';
end; //Main if block
intcounter := intcounter + 1;
end; //Main if block

getimagetypelegend := strworkinglegend;

end;

procedure getrangeofcapabilities();
begin













intindex : integer;

vntimagetypesavailable : variant;
vntimagelayout : variant;
vntmaxheight : variant;
vntmaxwidth : variant;
vntminresolution : variant;
vntmaxresolution : variant;
vntresolutionstep : variant;
vntminbrightness : variant;
vntmaxbrightness : variant;
vntbrightnessstep : variant;
vntautobrightness : variant;
vntmincontrast : variant;
vntmaxcontrast : variant;
vntcontraststep : variant;
vntautocontrast : variant;
vntadfavailable : variant;
vntmaxheightadf : variant;

// try-except block should come here!!! => on error goto scanerror




// left unchanged ==> frmmain.imgscan1.openscanner;//----------------------------------------------------------




for intindex:=0 to 6 do
begin
gblnimagetypesavailable[intindex] := false;//----------------------------------------------------------
end;//Current For/Next

vntimagetypesavailable := frmmain.imgscan1.getscancapability(1)   ;//image types available

if  vartype(vntimagetypesavailable) = vberror  then
begin
gblngetimagetypesavailablesupported := false;
gblnimagetypesavailable[6] := true;
else 
gblngetimagetypesavailablesupported := true;
gintimagetypesavailable := cint(vntimagetypesavailable);
end; //Main if block

if  gintimagetypesavailable = 0  then     ;
gblnimagetypesavailable[6] := true;//unknown
end; //Main if block

if  gintimagetypesavailable and 1  then   ;
gblnimagetypesavailable[0] := true;//black and white
end; //Main if block

if  gintimagetypesavailable and 2  then   ;
gblnimagetypesavailable[1] := true;//16 shades of gray
end; //Main if block

if  gintimagetypesavailable and 4  then   ;
gblnimagetypesavailable[2] := true;//256 shades of gray
end; //Main if block

if  gintimagetypesavailable and 8  then   ;
gblnimagetypesavailable[3] := true;//256 colors
end; //Main if block

if  gintimagetypesavailable and 16  then
begin
gblnimagetypesavailable[4] := true;//true color (24-bit)
end; //Main if block

if  gintimagetypesavailable and 32  then
begin
gblnimagetypesavailable[5] := true;//high color (16-bit)
end; //Main if block




vntmaxheight := frmmain.imgscan1.getscancapability(2);//----------------------------------------------------------
if  vartype(vntmaxheight) = vberror  then
begin
gblngetmaxheightsupported := false;
else 
gblngetmaxheightsupported := true;
gsngmaxheight := csng(vntmaxheight);
end; //Main if block




vntmaxwidth := frmmain.imgscan1.getscancapability(4);//----------------------------------------------------------
if  vartype(vntmaxwidth) = vberror  then
begin
gblngetmaxwidthsupported := false;
else 
gblngetmaxwidthsupported := true;
gsngmaxwidth := csng(vntmaxwidth);
end; //Main if block




vntminresolution := frmmain.imgscan1.getscancapability(5)     ;//min resolution
if  vartype(vntminresolution) = vberror  then
begin
gblngetminresolutionsupported := false;
else 
gblngetminresolutionsupported := true;
glngminresolution := clng(vntminresolution);
end; //Main if block




vntmaxresolution := frmmain.imgscan1.getscancapability(6)     ;//max resolution
if  vartype(vntmaxresolution) = vberror  then
begin
gblngetmaxresolutionsupported := false;
else 
gblngetmaxresolutionsupported := true;
glngmaxresolution := clng(vntmaxresolution);
end; //Main if block




vntresolutionstep := frmmain.imgscan1.getscancapability(7)    ;//resolution step
if  vartype(vntresolutionstep) = vberror  then
begin
gblngetresolutionstepsupported := false;
else 
gblngetresolutionstepsupported := true;
if  vartype(vntresolutionstep) = vbarray  then
begin
gblnresolutionsteparray := true;
gvntresolutionstep := vntresolutionstep;
else 
gblnresolutionsteparray := false;
glngresolutionstep := clng(vntresolutionstep);
end; //Main if block
end; //Main if block




vntminbrightness := frmmain.imgscan1.getscancapability(8)     ;//min brightness
if  vartype(vntminbrightness) = vberror  then
begin
gblngetminbrightnesssupported := false;
else 
gblngetminbrightnesssupported := true;
glngminbrightness := clng(vntminbrightness);
end; //Main if block




vntmaxbrightness := frmmain.imgscan1.getscancapability(9)     ;//max brightness
if  vartype(vntmaxbrightness) = vberror  then
begin
gblngetmaxbrightnesssupported := false;
else 
gblngetmaxbrightnesssupported := true;
glngmaxbrightness := clng(vntmaxbrightness);
end; //Main if block




vntbrightnessstep := frmmain.imgscan1.getscancapability(10)   ;//brightness step
if  vartype(vntbrightnessstep) = vberror  then
begin
gblngetbrightnessstepsupported := false;
else 
gblngetbrightnessstepsupported := true;
if  vartype(vntbrightnessstep) = vbarray  then
begin
gblnbrightnesssteparray := true;
gvntbrightnessstep := vntbrightnessstep;
else 
gblnbrightnesssteparray := false;
glngbrightnessstep := clng(vntbrightnessstep);
end; //Main if block
end; //Main if block




vntautobrightness := frmmain.imgscan1.getscancapability(11)   ;//auto brightness
if  vartype(vntautobrightness) = vberror  then
begin
gblngetautobrightnesssupported := false;
else 
gblngetautobrightnesssupported := true;
gstrautobrightness := cstr(vntautobrightness);
end; //Main if block




vntmincontrast := frmmain.imgscan1.getscancapability(12)      ;//min contrast
if  vartype(vntmincontrast) = vberror  then
begin
gblngetmincontrastsupported := false;
else 
gblngetmincontrastsupported := true;
glngmincontrast := clng(vntmincontrast);
end; //Main if block




vntmaxcontrast := frmmain.imgscan1.getscancapability(13)      ;//max contrast
if  vartype(vntmaxcontrast) = vberror  then
begin
gblngetmaxcontrastsupported := false;
else 
gblngetmaxcontrastsupported := true;
glngmaxcontrast := clng(vntmaxcontrast);
end; //Main if block




vntcontraststep := frmmain.imgscan1.getscancapability(14)     ;//contrast step
if  vartype(vntcontraststep) = vberror  then
begin
gblngetcontraststepsupported := false;
else 
gblngetcontraststepsupported := true;
if  vartype(vntcontraststep) = vbarray  then
begin
gblncontraststeparray := true;
gvntcontraststep := vntcontraststep;
else 
gblncontraststeparray := false;
glngcontraststep := clng(vntcontraststep);
end; //Main if block
end; //Main if block




vntautocontrast := frmmain.imgscan1.getscancapability(15)     ;//auto contrast
if  vartype(vntautocontrast) = vberror  then
begin
gblngetautocontrastsupported := false;
else 
gblngetautocontrastsupported := true;
gstrautocontrast := cstr(vntautocontrast);
end; //Main if block




vntadfavailable := frmmain.imgscan1.getscancapability(16)     ;//adf available
if  vartype(vntadfavailable) = vberror  then
begin
gblngetadfavailablesupported := false;
else 
gblngetadfavailablesupported := true;
gstradfavailable := cstr(vntadfavailable);
end; //Main if block




vntmaxheightadf := frmmain.imgscan1.getscancapability(3)      ;//max height adf
if  vartype(vntmaxheightadf) = vberror  then
begin
gblngetmaxheightadfsupported := false;
else 
gblngetmaxheightadfsupported := true;
gsngmaxheightadf := csng(vntmaxheightadf);
end; //Main if block






gblngetcapabilityrangedone := true;//----------------------------------------------------------
// left unchanged ==> frmmain.imgscan1.closescanner;








if  gblntrackimgscanevent(isegetscancapability) = true  then
begin
mstrpmetype := method_legend;//----------------------------------------------------------
mstreventname := 'imgscan_getscancapability';
else 
// left unchanged ==> exit;
end; //Main if block




if  gblngetimagetypesavailablesupported = true  then
begin
mstrparameters := 'imagetypes=' + getimagetypelegend(gintimagetypesavailable);//----------------------------------------------------------
else 
mstrparameters := 'imagetypes:  unsupported';
end; //Main if block
call frmeventlog.generatelogevent(mstrpmetype, mstreventname, mstrparameters)




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




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




if  gblngetminresolutionsupported = true  then
begin