Visual Basic Forum for Visual Basic Programmers VB

[The2Saint]

Hello. I’m new to programming and freeimage and I’m having a problem that requires some skill and experience to solve. I’m trying to load a PNG from a Visual Basic 6 string into a FreeImage “memory file” and then save it. (I’ve been trying to follow the C++ example in the FreeImage manual).

The problem is that it outputs a 0 kB .ICO file. Dib also equals 0 after LoadFromMemory. How shall I modify/rewrite the code?

Here’s my code:

Private Sub Command1_Click()
Dim MyPNG As String 'It doesn't really have to be
'string if it doesn't work with strings.
'any data type will do.
MyPNG = LoadPNG(App.Path & "\PngFile.Png")
Dim dib As Long
Dim bOK As Long
' Load a png image
Dim MemHandlePNG As Long
MemHandlePNG = FreeImage_OpenMemory(StrPtr(MyPNG), Len(MyPNG))
dib = FreeImage_LoadFromMemory(fif_png, MemHandlePNG)

' Save this image as ICO
bOK = FreeImage_Save(fif_ico, dib, App.Path & "\IcoFile.ICO", 0)

' Unload the dib
FreeImage_Unload (dib)
FreeImage_CloseMemory (MemHandlePNG)
End Sub

Function LoadPNG(Path As String) As String
' This function will of course look different in the real app
' The PNGs will be Base64encoded
' I'm putting this simpler version here for demonstration
Open Path For Binary As 1
LoadPNG = Input(LOF(1), #1)
Close 1
End Function

[DoobieKeebler]

I haven't worked with FreeImage yet. But I see they have a forum there. Your best bet would be to post on their forum. There's got to be a couple people there who have done something similar.