topic-42470

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

IsBinaryData
Posted: Mon Nov 14, 2022 12:29 AM

Dear Mr. Rao,
it seems to me that
IsBinaryData() is not working well.

I also see that it is substituted in xBrowse with c function.

What IsBinaryData() should we use in mod Harbour?

Best regards,
Otto

Code (fw): Select all Collapse

 function main
    local aTage := {}
    local aVerfuegbarkeit := {}
    local I := 0
    local aHead := { "COL", "COL","COL","COL","COL"}
    
    AADD( aTage, "Kategorie")
    FOR nIdx := 1 to 3
        AADD( aTage, str( nIdx ) )
    NEXT   
    
    ? MH_ArrayToHTML( aTage, aHead, .t. )

    
    AADD( aVerfuegbarkeit, aTage )
    AADD( aVerfuegbarkeit, aTage )
    
    AADD( aVerfuegbarkeit, aTage )
    ? len( aVerfuegbarkeit ) 
    
    FOR I := 1 to len(aVerfuegbarkeit)
        ? aVerfuegbarkeit[I,1]
    NEXT 
    
    ? MH_ArrayToHTML( aVerfuegbarkeit, aHead  , .t. )


return 
 
#include    "c:\www\htdocs\hrbSamples\MHFNGNR1.PRG" )

Code (fw): Select all Collapse

static function IsBinaryData( cData, nLen )

   local c, n, lBinary  := .f.
   
   ? "============================IsBinaryData"
   ? "VALUE : " + cData

   if nLen == nil
      nLen  := Min( 50, Len( cData ) )
   endif
   for n := 1 to nLen
      c  := SubStr( cData, n, 1 )
? c 

      ? "for/next" + c 
      if ( c < ' ' .and. !( c $ Chr( 9 ) + Chr( 10 ) + Chr( 12 ) + Chr( 13 ) + Chr(26) ) )
? str( ASC(c) )
         ? c + "exit"
         
         lBinary  := .t.
         exit
      endif
   next

   ? "============================IsBinaryData ende "      
  
return lBinary

//----------------------------------------------------------------------------//

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: IsBinaryData
Posted: Mon Nov 14, 2022 08:20 AM

Dear Otto,

good morning,

You could use this one for mod_harbour:

Code (fw): Select all Collapse

function IsBinaryData( cData )

   local char

   for each char in cData
      if char < ' ' .and. ! char $ Chr( 9 ) + Chr( 10 ) + Chr( 12 ) + Chr( 13 ) + Chr( 26 )
         return .T.
      endif 
   next

return .F.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: IsBinaryData
Posted: Mon Nov 14, 2022 10:26 AM

Dear Antonio,

thank you. Al working fine now.

Best regards,

Otto

FiveTech Support Forums

Continue the discussion