XBROWSE <binary> problem

[avista]

Hi all,
I have xbrowse created with data received from the SQL SELECT statement.
In some cases in some columns in some row i get field data (field info) <binary>
Probably in some row of that column there is some binary characters.

My question is how to define that that column is only a sample text column.

Best regards,

[ukoenig]

Same Question, but couldn't find out the reason for it :

viewtopic.php?f=3&t=24050&p=129498&hilit=xbrowse+binary#p129498

Best Regards
Uwe

[Rick Lipkin]

avista

If you want to design a custom xBrowse .. you can define your standard columns and then insert your Binary Column at a specific column ( in this case column 5 ) and the Code Block allows you to Return any value you like to view in column 5.

Rick Lipkin

Code: Select all  Expand view

 ADD oCol TO oLbx AT 5 DATA {|x| x := _ChkComp(oRsRepair:Fields("cc"):Value) };
                   HEADER "Instructions" size 165
...
...

//-------------------
Static Func _ChkComp( cComplaint )

Local cName

cName := cComplaint

Return(cName)


 

[avista]

Hi Rick
And thanks for reply
I dont know the field names or sizes or types ... received from the SQL SELECT statement...
But that is not problem ...
Problem is that sometimes user put TAB key not SPACE ... and in XBROWSE that is BINARY valye.
See this sample.

Code: Select all  Expand view

#include "FiveWin.ch"
#include "xbrowse.ch"

function Main()

   local oDlg, oBrw

   DEFINE DIALOG oDlg SIZE 300, 200

   @ 0, 0 XBROWSE oBrw OF oDlg ;
          ARRAY { "Tom Jones", "Tom"+chr(32)+"Jones", "Tom"+chr(14)+"Jones" } ;
          AUTOCOLS

   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTER

return nil
 

In this case the row 3 have <binary> value.

Some help or sugestions ?

Best regards,

[nageswaragunupudi]

If the value of a column is displayable text, it displays the text ( either in a single row or if space of the cell permits in multiple rows even ).

If the value contains non-printable characters, obviously it can not display it as text.

Still xbrowse makes an effort to examine if it is a valid image buffer. If it is a valid image buffer it displays the image.

Still after all efforts there are unprintable characters, it indicates that the value contains <binary> data. So that the programmer knows that his table contains some binary data and can provide an appropriate conversion function to display the data in a printable form.

[avista]

Hi Rao
Thanks for reply
It is not problem to create conversion function
For example

Code: Select all  Expand view

function Conversion(uData)

   local cReturn := ""
   local i       := 0

   for i = 1 to len(uData)
       if asc(substr(uData,i,1)) < 32
          cReturn := cReturn + "?"
        else
          cReturn := cReturn + substr(uData,i,1)
       endif
   next

return cReturn

But where and how to use that function in XBROWSE

Best regards,

[reinaldocrespo]

Avista;

Use Rick's suggestion. Simply replace your function into the code block for all columns.


Reinaldo.

[nageswaragunupudi]

Like our friends suggested above, we need to provide our codeblock.
Several ways of doing it.
Example 1
If we are browsing fwh\samples\customer.dbf and we expect some control chars in the NOTES field
Method-1
@ 0,0 XBROWSE oBrw OF oWnd ;
COLUMNS "First", "Last", "City", "Notes" ;
< .... other clauses >
....
oBrw:Notes:bStrData := { || MyConvert( Eval( oBrw:Notes:bEditValue ) ) }

Method-2

@ 0,0 XBROWSE oBrw OF oWnd ALIAS "CUSTOMER" ;
COLUMNS "First", "Last", "City", { || MyConvert( FIELD->NOTES ) } ;
< .... other clauses >

Array Example:
Assuming we expect 3rd column to contain control chars
@ 0,0 XBROWSE oBrw ARRAY aData ;
COLUMNS 1, 2, { || MyConvert( oBrw:aRow[ 3 ] ) } ;
HEADERS ......<continue with other clauses )

OOPS example:
WITH OBJECT oBrw:AddCol
:bEditValue := { || MyConvert( FIELD->NOTES ) }
END

[avista]

Hi Rao,
Thanks verry much for reply.

One more Question please,
How to detect non-printable characters ? (control chars like you said) .
Less than 32 or ? (probably no ...CRLF chr(13)+chr(10) is not binary ... ?)
Which ASCII codes to control ? Is it good to replace them with "?" or ?
Or need i analize blocks ?

Thanks again for helping,
Best regards.

[Rick Lipkin]

Avista

A quick question .. what is the field name of the binary column ? Generally Binary designates a 'file' of some sort stored in that field which is in hex .. it could be a document, picture, .pdf file ...

I don't think you will be able to determine what is in the binary field without some knowledge of the table.

Rick Lipkin

[nageswaragunupudi]

Hi Rao,
Thanks verry much for reply.

One more Question please,
How to detect non-printable characters ? (control chars like you said) .
Less than 32 or ? (probably no ...CRLF chr(13)+chr(10) is not binary ... ?)
Which ASCII codes to control ? Is it good to replace them with "?" or ?
Or need i analize blocks ?

Thanks again for helping,
Best regards.

Please try using FiveWin function IsBinaryData( <cVar> ) --> .t. or .f.

[avista]

Hi
And thanks to all for reply

This funciion is working good BUT

Code: Select all  Expand view

FUNCTION MyBinaryConversion( cData )

local cVrati := ""
local cChar  := ""
local nAsc   := 0
local i      := 0

IF !IsBinaryData( cData )
   return cData
ENDIF

FOR i = 1 TO LEN( cData )
    cChar := SUBSTR( cData, i, 1 )
    nAsc  := ASC( cChar )

    IF nAsc <  32 .AND. ;
       nAsc <>  9 .AND. nAsc<> 10 .AND. nAsc<> 13 .AND. nAsc<> 26
       cVrati := cVrati + CHR( 127 )
     ELSE
       cVrati := cVrati + cChar
    ENDIF
NEXT

RETURN cVrati
 

BUT I HAVE OTHER PROBLEM

The database i use (.DBF) is created by SQL SELECT statement and i dont know the fieldnames ... (columns names)
I have try this code:

Code: Select all  Expand view

FOR i := 1 TO Fcount()
    IF !Empty( oCol := oBrw:oCol( oBrw:oCol(i):cHeader ) )
       IF FieldType( i ) == "M" .OR. ;
          FieldType( i ) == "C"
          oCol:bStrData := { || MyBinaryConversion( EVAL(oCol:bEditValue) ) }
       ENDIF
    ENDIF
NEXT
 

But in XBROWSE i have the same data in all columns (data from the last column)
Probably becouse at the end of FOR,NEXT ciclusulse 'i' have value of Fcount() and EVAL(oCol:bEditValue) return value of last column for all columns.
I cant use the stagement like this:
oBrw:Notes:bStrData := { || MyBinaryConversion( Eval( oBrw:Notes:bEditValue ) ) }
becouse like i said i dont know the column names.

I have try this:

Code: Select all  Expand view

FOR i := 1 TO Fcount()
    IF !Empty( oCol := oBrw:oCol( oBrw:oCol(i):cHeader ) )
       IF FieldType( i ) == "M" .OR. ;
          FieldType( i ) == "C"
          cField := oBrw:oCol(i):cHeader
          oBrw:oCol(cField):bStrData := { || MyBinaryConversion(EVAL(oBrw:oCol(cField):bEditValue)) }
       ENDIF
    ENDIF
NEXT
 

BUT THE SAME RESULTS all columns have the same value of the last column

I have no more solutions so
Please help

BEST best regards,

[avista]

Hi,
I still need help ...
Regards,

[avista]

?

[avista]

Everyone on vacation ?


Regards.