Marina-Jo
Sep 14th, 2006, 03:41 PM
I have a problem with IJL15.DLL...
My declarations are ;
Private Declare Function ijlInit Lib "ijl15.dll" (jcprops As Any) As Long
Private Declare Function ijlFree Lib "ijl15.dll" (jcprops As Any) As Long
Private Declare Function ijlRead Lib "ijl15.dll" (jcprops As Any, ByVal ioType As Long) As Long
Private Declare Function ijlWrite Lib "ijl15.dll" (jcprops As Any, ByVal ioType As Long) As Long
Private Declare Function ijlGetLibVersion Lib "ijl15.dll" () As Long
Private Declare Function ijlGetErrorString Lib "ijl15.dll" (ByVal code As Long) As Long
I Open my DLL in the application path;
Private Sub WriteJPGLib()
On Error Resume Next
If modJPG.InstalledOK = False Then
' IJL15.DLL isn't installed. Wait! I have it in my resource file!
' I'm going to write the Intel JPG handler in the Application's path
' There's no need to put it in the system or system32 directory... it'll work here
b = -1
TargetDLL = App.Path
If Right(TargetDLL, 1) <> "\" Then TargetDLL = TargetDLL & "\"
TargetDLL = TargetDLL & "ijl15.dll"
b = FileLen(TargetDLL)
If b <= 0 Then
Dim a As Long
a = FreeFile
Open TargetDLL For Output As #a
Print #a, StrConv(LoadResData("INTEL_JPG", "CUSTOM"), vbUnicode);
Close #a
End If
End If
End Sub
But when i call the library as;
Public Function LoadJPG(ByRef cDib As cdibSection, ByVal sFile As String) As Boolean
Dim tj As JPEG_CORE_PROPERTIES_VB
Dim lR As Long
lR = ijlInit(tj)
If lR = IJL_OK Then
It gives error saying that it can not find ijlInit.dll ?? although it is exist allready in the app.path!!!!!!!
I need Help
My declarations are ;
Private Declare Function ijlInit Lib "ijl15.dll" (jcprops As Any) As Long
Private Declare Function ijlFree Lib "ijl15.dll" (jcprops As Any) As Long
Private Declare Function ijlRead Lib "ijl15.dll" (jcprops As Any, ByVal ioType As Long) As Long
Private Declare Function ijlWrite Lib "ijl15.dll" (jcprops As Any, ByVal ioType As Long) As Long
Private Declare Function ijlGetLibVersion Lib "ijl15.dll" () As Long
Private Declare Function ijlGetErrorString Lib "ijl15.dll" (ByVal code As Long) As Long
I Open my DLL in the application path;
Private Sub WriteJPGLib()
On Error Resume Next
If modJPG.InstalledOK = False Then
' IJL15.DLL isn't installed. Wait! I have it in my resource file!
' I'm going to write the Intel JPG handler in the Application's path
' There's no need to put it in the system or system32 directory... it'll work here
b = -1
TargetDLL = App.Path
If Right(TargetDLL, 1) <> "\" Then TargetDLL = TargetDLL & "\"
TargetDLL = TargetDLL & "ijl15.dll"
b = FileLen(TargetDLL)
If b <= 0 Then
Dim a As Long
a = FreeFile
Open TargetDLL For Output As #a
Print #a, StrConv(LoadResData("INTEL_JPG", "CUSTOM"), vbUnicode);
Close #a
End If
End If
End Sub
But when i call the library as;
Public Function LoadJPG(ByRef cDib As cdibSection, ByVal sFile As String) As Boolean
Dim tj As JPEG_CORE_PROPERTIES_VB
Dim lR As Long
lR = ijlInit(tj)
If lR = IJL_OK Then
It gives error saying that it can not find ijlInit.dll ?? although it is exist allready in the app.path!!!!!!!
I need Help