Code: Select all
Public Function getThumbGDViewer(ByVal filename As String) As Integer
Dim imgSource As Image
Dim intThumbWidth, intThumbHeight, thumbNumber As Int32
Dim ObjGDpicture As New GdPictureImaging
Dim puthThumb As String
Try
fi = New FileInfo(filename)
Catch ex As Exception
Return 1
Exit Function
End Try
puthThumb = fi.DirectoryName & "\" & "thumb" & fi.Name
Dim nImageID, nThumbnailID As Int64
If Not File.Exists(nazivfajla) Then
nThumbnailID = ObjGDpicture.CreateGdPictureImageFromFile(filename)
thumbNumber = ObjGDpicture.CreateThumbnail(nThumbnailID, 100, 100)
If nThumbnailID <> 0 Then
ObjGDpicture.SaveAsBMP(thumbNumber, puthThumb)
End If
Else
nThumbnailID = ObjGDpicture.CreateGdPictureImageFromFile(filename)
thumbNumber = ObjGDpicture.CreateThumbnail(nThumbnailID, 100, 100)
If nThumbnailID <> 0 Then
ObjGDpicture.SaveAsBMP(thumbNumber, puthThumb)
End If
End If
Return 0
End Function
What i am doing wrong? Thanks!Server was unable to process request. ---> Unable to load DLL 'GdPicture.NET.image.gdimgplug.dll': The specified module could not be found. (Exception from HRESULT: 0x8007007E)