Android Question Read raw bytes of a file

[Michael Müller Anywhere]

Hello,
I need to transfer pictures to a VB6 Application via winsock (encrypted before).

With the wllknown methods I get a byte() Array that is UTF8 encodet.
How can I read the raw bytes of a file (Picture) and put it in a long string to transfer it?

Thank you!

 

[DonManfred]

How can I read the raw bytes of a file

dim bytes() as Byte = File.ReadBytes(path, filename)

If you need to have a string then you need to convert the bytes to base64 or hex.

B4A - Encryption

www.b4x.com

 

[Michael Müller Anywhere]

dim bytes() as Byte = File.ReadBytes(path, filename)

If you need to have a string then you need to convert the bytes to base64 or hex.

B4A - Encryption

www.b4x.com

Thank you Don!!!
This works. For all:

Dim data() As Byte = File.ReadBytes(path, filename)
Dim Bconv As ByteConverter
datastring = Bconv.HexFromBytes(data)

file_content = Hex2Ascii(input)

Function Hex2Ascii(Hcs As String) As String
Dim l As Long
Dim a As Long

    l = Len(Hcs)
    For a = 1 To l Step 2
        Hex2Ascii = Hex2Ascii & Chr$(Val("&H" & Mid(Hcs, a, 2)))
    Next
End Function

 

[Erel]

Tip - assuming that the file is not small, this code is very inefficient:

Hex2Ascii = Hex2Ascii & Chr$(Val("&H" & Mid(Hcs, a, 2)))

Strings are immutable, which means that for every new character the whole string is copied. You should use StringBuilder.

 

[Michael Müller Anywhere]

You were right. The program froze it at more than 200,000 bytes and I had to split the string. Now it works wonderfully!