Can not SaveAs modified image

[madi1270]

Hi...

I'm trying to save the modified image to the same file name. GdpictureImaging.getStat() return me 7 (win32error), which I believed cause by trying to save image on the same image that my application currently working on. The SaveAs* function works just fine when I save to different file name. I need to replace current image that I'm working on with the new one (after did some image manipulation). Any work around? Maybe I did it a wrong way...

My sample code:

Code: Select all

//Initially display image from file
oGdPictureViewer.displayfromfile('C:\my_image\test.gif')
ll_imageID = oGdPictureViewer.GetNativeImage
oGdPictureImaging.SetNativeImage(ll_imageID)

//-------------------------
Did some image manipulation - add text, shape etc ........
//-------------------------

//Save the changes
oGdPictureImaging.SaveAsGIF('C:\my_image\test.gif')


Here SaveAsGIF failed and when I check GdpictureImaging.getStat(), it return me 7 (win32error).

I try doing these:

Code: Select all

//Save the changes
ll_cloneid = oGdPictureImaging.CreateClonedImage(ll_imageID)
oGdPictureImaging.CloseImage(ll_imageID)
oGdPictureImaging.setNativeImage(ll_cloneid)
oGdPictureImaging.SaveAsGIF('C:\my_image\test.gif')


But it still failed to save !!
Any idea??? I believed I did it a wrong way. Some one please guide me ...

Regards
MUL

[madi1270]

Hi...
FYI... I did some more testing with other file format. It seems that SaveAsGIFF, SaveAsPDFAEX & SaveAsPNG failed when I try to save to the same file name.

Other format like TIF, JPG & ICO works just fine.

Regards
MUL

[Loïc]

Hi,

Please try with CreateClonedImageI instead of CreateClonedImage.

Kind regards,

Loïc

[madi1270]

Hi..
Thank you for your quick reply...

I just did that...

My code :

Code: Select all

Private nImageID As Integer
Private sFileName As String

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        Imaging1.SetLicenseNumber("xxxxxxxxxxxxxxxxxxxxxxxxx")
        GdViewerCnt1.SetLicenseNumber("xxxxxxxxxxxxxxxxxxxxxxxxx")

        sFileName = "C:\test\pic\test1.gif"
        GdViewerCnt1.DisplayFromFile(sFileName)

        nImageID = GdViewerCnt1.GetNativeImage()
        Imaging1.SetNativeImage(nImageID)
End Sub

Private Sub ButtonSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonSave.Click
        Dim nClonedImage As Integer

        nClonedImage = Imaging1.CreateClonedImageI(nImageID)
        Imaging1.CloseNativeImage()
        Imaging1.SetNativeImage(nClonedImage)

        Imaging1.SaveAsGIF(sFileName)

        If Imaging1.GetStat() = 0 Then
            MsgBox("Done")
        Else
            MsgBox("Failed")
        End If
    End Sub


unfortunately... still failed to save.

Regards
MUL