ISISGetASCIITag example for Delphi
var
szVal: PChar;
begin
szVal:= Nil;
LeadIsis1.ISISLoadDriver ( ) ;
//get the default value
LEADISIS1.ISISGetASCIITag ( TAG_PAGESIZE, @szVal, True ) ;
ShowMessage ( 'Default: ' + szVal ) ;
if (szVal<> Nil ) then
begin
GlobalFree ( Cardinal(szVal) ) ;
szVal:= Nil;
end;
//get the current value
LEADISIS1.ISISGetASCIITag ( TAG_PAGESIZE, @szVal, False ) ;
ShowMessage ( 'Current: ' + szVal ) ;
if (szVal<> Nil ) then
begin
GlobalFree ( Cardinal(szVal) ) ;
szVal:= Nil;
end;
//set a new value
//NOTE, this would have to be a valid choice for the scanner
LEADISIS1.ISISSetASCIITag ( TAG_PAGESIZE, PChar('Scanner Maximum') );
//get the default value
LEADISIS1.ISISGetASCIITag ( TAG_PAGESIZE, @szVal, False ) ;
ShowMessage ( 'Current: ' + szVal ) ;
if (szVal<> Nil ) then
begin
GlobalFree (Cardinal(szVal) ) ;
szVal:= Nil;
end;
LEADISIS1.ISISUnloadDriver ( ) ;
end;