ImagePro>Re: IPP5 and Visual Basic

["kevin[at]mediacy.com" <kevin[at]mediacy.com>]

For the first problem, see:

http://www.mediacy.com/tech/ipuml/2003/msg00974.html

where this is discussed. The first item (vbNullChar) is described in the
IPC32.BAS file, the second 
is an error on our part (a reserved word in VB) that will be fixed in an
upcoming patch, but can be 
corrected quickly by users. See the link above for more information. 

For the second, see:

http://support.mediacy.com/answers/showquestion.asp?faq=43&fldAuto=321
(reached by www.mediacy.com, Support, Answers Section, Auto-Pro/IpBasic,
Run-time error ''48'' 
File not found:IPC32)

for discussion on this issue. I suspect that you have your VB executable in
a different directory 
than Image-Pro. 

-- Kevin Ryan
kevin@mediacy.com



Original Message:
-----------------
From: Didier Bazin bazin@st-pee.inra.fr
Date: Tue, 23 Dec 2003 14:13:40 +0100
To: imagepro-users@lists.mediacy.com
Subject: ImagePro>IPP5 and Visual Basic


Dear all,

After upgrading IPP4.5 into IPP5.0 i tested it by running Visual Basic 
programm working correctly with previous version. It failes and i don't 
understand why (Win 2000 and VB6).

1) In IPC32.BAS
----------------------------------------------------
' Global Const vbNullChar = vbNull
Global Const vbNullChar = Chr$(0)

has to be change in
Global Const vbNullChar = "0"
----------------------------------------------------

' Underlying affine transform function for shifting images. This
' rotates, scales and then transforms the active workspace.
Declare Function IpAffine Lib "IPALGN32" (ByVal rotate!, ByVal scale!, 
ByVal dX%, ByVal dY%) As Long

"Byval scale!" is refused.
----------------------------------------------------


2) In my code : Opening IPP

Dim hIPP As Long

Sub OuvreIPP()
     Dim WinRet As Boolean
     WinRet = WinExec("C:\IpWin5\Ipwin32.exe", SW_SHOWNORMAL)
     ret = IpAppGet(GETAPPWND, 0, hIPP)
     If hIPP = 0 Then
         MsgBox "Impossible d'ouvrir IPP !"
         End
     Else
         ret = IpAppMaximize()
     End If
End Sub

IPP opens but the code fails on "ipAppGet" function. The error message is 
that it don't find IPC32.


Thanks in advance for help.

Didier Bazin.



----------------------------------------------------------
         Didier Bazin
         INRA - Station d'Hydrobiologie
         64310 St-Pée sur Nivelle (France)

         bazin@st-pee.inra.fr
         Tél: +33 (0)5-59-51-59-74
         Web site : http://www.st-pee.inra.fr
----------------------------------------------------------



--------------------------------------------------------------------
mail2web - Check your email from the web at
http://mail2web.com/ .



***********************************************************
This message was sent to you because you are subscribed to <imagepro-users@lists.mediacy.com>.
TO UNSUBSCRIBE, send an email to: <imagepro-users-off@lists.mediacy.com>
To switch to the DIGEST mode, email to <imagepro-users-digest@lists.mediacy.com>
To switch to the INDEX mode, email to <imagepro-users-index@lists.mediacy.com>
Send administrative queries to  <imagepro-users-request@lists.mediacy.com>
To SUBSCRIBE or UNSUBSCRIBE visit http://www.mediacy.com/tech/subscriber.htm
***********************************************************
This list is a forum for sharing applications, advice, and tips involving Media Cybernetics' products. It is not meant to be used as a vehicle for techncial support or for sales of third party products or services.
***********************************************************
Need an Image-Pro macro or driver? Find it at http://www.Solutions-Zone.com
Got an Image-Pro macro or driver? Add it to http://www.Solutions-Zone.com
***********************************************************