.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.Str ingBuilder(Stri ng.Empty)

intLength = (UBound(My.Comp uter.FileSystem .ReadAllBytes(s trAppPath &
"Graphics\Drago n.png")))

Dim byt(intLength) As Byte

byt = My.Computer.Fil eSystem.ReadAll Bytes(strAppPat h &
"Graphics\Drago n.png")

For x As Integer = 0 To intLength

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

Next

strPic = builder.ToStrin g

End Sub

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