Unfortunately I have however a problem with the function DisplayFromMetaFile() from gdViewer. If I load alternating different Metafiles with DisplayFromMetaFile(), after approximately 30 repetitions, the GdPictureStatus "1 GenericError" or "2 InvalidParameter" is returned.
In the attachment is a sample VB6 program.
Excuse for my bad English.
Thank you for your support
- Code: Select all
Private Sub Command1_Click()
Static tNum As Integer
Dim tGdPictureStatus As Long
If tNum = 0 Then
tNum = 1
tGdPictureStatus = GdViewer1.DisplayFromMetaFile(App.Path & "\542654140D.wmf")
Else
tNum = 0
tGdPictureStatus = GdViewer1.DisplayFromMetaFile(App.Path & "\542723140D.wmf")
End If
If tGdPictureStatus > 0 Then
MsgBox "error: " & tGdPictureStatus
End If
End Sub
