forum.clarionlife.net

Код: Выделить всё

! Start of "Local Data After Object Declarations"
! [Priority 4000]
res  CStr

 OF ?BUTTON1
      ThisWindow.Update()
      ! [Priority 5000]
      DosFileName = PATH()
      DosFileName = LONGPATH()
      DosFileName = CLIP(DosFileName)&'\out.png'  ! 
      !loc:TextIsx = ToUTF_8(loc:TextIsx)
      res.set(loc:TextIsx)
      res.toutf8
      !stop(DosFileName)
      !RUN('zint.exe -o '&DosFileName&' -b 58 -d "'&loc:TextIsx&'"',1) !vers=10
      RUN('zint.exe -o '&DosFileName&' -b 58 -d "'&res.s&'"',1)
      IF RUNCODE()
        CASE RUNCODE()
        OF 2
           MESSAGE('ZINT_WARN_INVALID_OPTION')    
        OF 5
          MESSAGE('ZINT_ERROR_TOO_LONG')  
        OF 6
          MESSAGE('ZINT_ERROR_INVALID_DATA')  
        OF 7
            MESSAGE('ZINT_ERROR_INVALID_CHECK')
        OF 8
            MESSAGE('ZINT_ERROR_INVALID_OPTION')
        OF 9
            MESSAGE('ZINT_ERROR_ENCODING_PROBLEM')
        OF 10
            MESSAGE('ZINT_ERROR_FILE_ACCESS')
        OF 11
            MESSAGE('ZINT_ERROR_MEMORY')
        .    
      .
          ?Image1{PROP:Text} = CLIP(DosFileName)
          DISPLAY :idied: