.png to hexadecimal

[thomasp]

I have not had any luck with this on other groups so I am posting it here.
I created a .rtf file using MS Word that included text and graphics(.png
file) . I then viewed this file with notepad. Using VB2005 I created a
string variable that could recreate the file with values input be the user.
I can get the text with formating to work perfectly, but I have not had any
luck with the graphics. As best I can tell the graphic is saved as a
hexadecimal number. I want to build this number in code using VB, so that I
can include it in the string variable that creates the .rtf file. The below
code starts out looking like the same number produced by MS Word but soon
strays. I hope that this makes enough sense for someone to be able to help
me. I think that if I can produce some code that will give the string
representation of the hexadecimal values of a picture I will be on the
correct path.

Public Sub subReadPicture()

Dim strPic As String
Dim intLength As Int32
Dim strHex As String
Dim builder As New System.Text.StringBuilder(String.Empty)

intLength = (UBound(My.Computer.FileSystem.ReadAllBytes(strApp Path &
"Graphics\Dragon.png")))

Dim byt(intLength) As Byte

byt = My.Computer.FileSystem.ReadAllBytes(strAppPath &
"Graphics\Dragon.png")

For x As Integer = 0 To intLength

strHex = Hex(byt(x))
builder.Append(strHex)

Next

strPic = builder.ToString

End Sub

--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
------->>>>>>http://www.NewsDemon.com<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access