// Use Spec0012.utl // Read image to string (sTextDfFromImage function)

Use Files.nui    // Utilities for handling file related stuff

function sTextFromSeqInput global string sDevice returns string
  local integer liChannel lbSeqEof
  local string sRval sLine sChar10
  move "" to sRval
  move (character(10)) to sChar10
  get SEQ_DirectInput sDevice to liChannel
  if liChannel ge 0 begin
    repeat
      readln sLine
      move (seqeof) to lbSeqEof
      ifnot lbSeqEof move (sRval+sLine+sChar10) to sRval
    until lbSeqEof
  end
  send SEQ_CloseInput liChannel
  function_return sRval
end_function
function sTextFromDfImage global integer iImg returns string
  function_return (sTextFromSeqInput("image:"+string(iImg)))
end_function
function sTextFromFile global string sFile returns string
  function_return (sTextFromSeqInput(sFile))
end_function
function sTextFromDfField global integer iFile integer iField returns string
  // I have no idea whether this will work
  function_return (sTextFromSeqInput("dbms:"+string(iFile)+" "+string(iField)))
end_function