Author Topic: DLLC status (Read 15568 times)

jack · « **Reply #30 on:** May 10, 2020, 05:07:48 AM »

Quote from: John on May 10, 2020, 03:48:26 AM

Jack,

Are you using the latest version of FreeImage?

yes, version 3.18 and O2H 0.2.9 2020-04-21T14:29:11
I suspect that there's a way to write the program so that it will compile on either 32 or 64-bit, perhaps Arnold or Aurel could help with that

JRS · « **Reply #31 on:** May 10, 2020, 05:37:33 AM »

I thought calling _FreeImage_Initialise@4 might help but no joy.

Code: C

#if defined(__MINGW32__) && defined(_WINDOWS_H)
#define _WINDOWS_       // prevent a bug in MinGW32
#endif // __MINGW32__
 

My guess at this point is FreeImage can no longer be called via FFI due to structures or defines not preset.

I tried version 3.13 (2009) and it still doesn't work. Not sure what changed in O2?

JRS · « **Reply #32 on:** May 10, 2020, 07:09:29 AM »

I gave DYC (what DLLC replaced) a try and it returns a string pointer to the FreeImage version return string.

This eliminates FreeImage, ScriptBasic and O2 native. (based on Jack's positive results with O2)

Looks like a bug in DLLC using the latest O2 build.

Code: Script BASIC

DECLARE SUB DLL ALIAS "dyc" LIB "dyc"
 
PRINT DLL("mc,p,freeimage.dll,_FreeImage_GetVersion@0,P",0),"\n"

C:\ScriptBASIC\examples>sbc testfi.sb 270788360 C:\ScriptBASIC\examples>

Here is the DLLC code that is failing with FreeImage.dll.

Code: OxygenBasic

  function dllproc (sys pSt, ppModuleInternal, pParameters, pReturnValue) as sys
  ==============================================================================
  '
  sys oa
  string ms
  '
  if pParameters=0
    exit function
  end if
  '
  CountParams pParameters,c
  '
  if c<2
    exit function
  elseif c>=3
    pm=GetParamPtr pparameters,3 'DIRECT CALL ADDRESS
    oa=GetLongParam pst,pm
  end if
  '
  e++
  ll[e].metatype=2 'metatype PROCEDURE CALLS=2
  '
  pm=GetParamPtr pparameters,2
  s=GetStringParam pst,pm
  '
  readentityspec 'encode and store the prototype
  '
  pm=GetParamPtr pparameters,1
  a=GetLongParam pst,pm
  if a=0
    errors+= "library not found for " ll[e].name cr
    errn++
    e--
    exit function
  end if
  '
  if oa
    ll[e].library=0
    ll[e].handle=oa 'specify call address
    a=e
  else
    ll[e].library=a
    if a then
      ll[e].handle=GetProcAddress ll[a].handle, ll[e].name
      a=e
    end if
  end if
  if ll[e].handle=0
    errors+="procedure not located: " ll[e].name cr
    e--
    errn++
    a=0
  end if
  *pReturnValue=ReturnLong(pst,a)
  '
  end function
 

Charles Pegge · « **Reply #33 on:** May 10, 2020, 11:27:56 AM »

Hi John,

It was the mangled names

I've fixed this in dllc: sbutil.inc getword(). ascii 64 '@'

Also, If the dll is located in the exepath, the system should find it without a full path name.

JRS · « **Reply #34 on:** May 10, 2020, 12:29:20 PM »

Thank you Charles!

Glad this is behind us.

FYI: I had to declare a few for variables in the examples. It seems O2 is more picky about type definitions. At least in functions.

Works great by just replacing my extension module with your compiled dllc.dll that came in the zip.

Can't be happier. An open ended easy to use scripting engine with a kickass JIT BASIC compiler seamlessly embedded.

JRS · « **Reply #35 on:** May 11, 2020, 07:19:23 AM »

My next goal is to use DLLC to create virtual callback functions for both IUP and the COM/OLE automation based WSO GUI toolkit.

Any suggestions or examples are welcome.

JRS · « **Reply #36 on:** May 11, 2020, 09:02:04 AM »

In theory, I would like to define standard callback functions based on the event and keep an array of controls that subscribe to them. The callback would lookup the control ID in the array and do a SB function call in the case of IUP or return the C function callback address for the WSO GUI toolkit.

The current VB6 OCX form callbacks work in this way with ScriptBasic. I would like to provide the same strategy for IUP and WSO.

JRS · « **Reply #37 on:** May 12, 2020, 06:41:54 AM »

The ScriptBasic VB6 OCX form example I did is a good example of solving the callback delemia. Before the form is shown, ScriptBasic via its COM extension assigns values to a collection which the OCX uses to call the right ScriptBasic function/ sub.

JRS · « **Reply #38 on:** July 19, 2020, 09:10:18 AM »

Charles,

DLLC is working great with my current IUP based project. The only request I have is can we change the callback to SB functions to uses the hook call rather than having to start a thread just to get the execution object's pointer?

JRS · « **Reply #39 on:** July 22, 2020, 10:29:20 AM »

Thanks Charles for your response (email) about DLLC unable to make IUP calls in a callback. Once the IUP message loop starts, the only way to change the form is in a callback with IupSetAttribute.

When I have time I will give DLLC and IUP another try not running as a thread and depending on the MAIN function for IUP interaction. I think my idea of using a DLLC virtual function as a callback and using ScriptBasic's hook call to make the callback to SB could be the solution.

I'm still on the fence if a dynamic FFI interface will work with IUP and the required dependencies.

Charles Pegge · « **Reply #40 on:** July 22, 2020, 01:25:52 PM »

I remember we tried to access the hook function, but it was set to null.

JRS · « **Reply #41 on:** July 22, 2020, 01:52:15 PM »

The hook function doesn't require a execution object pointer and assumes the current instance. Dave Zimmer used it in his COM extension module. I'm using it for my VB6 OCX form project as well.

Code: C

  besHOOK_CALLSCRIBAFUNCTION(EntryPoint,
    pArg->Value.aValue,
    1,
    &FunctionResult);
 
  retVal = FunctionResult->Value.lValue;
  besRELEASE(pArg);
  besRELEASE(FunctionResult);
 

Here is a LINK to my OCX form example.

JRS · « **Reply #42 on:** July 25, 2020, 06:46:40 PM »

Charles,

Here is a bare bones examples of a VB6 ActiveX DLL form calling back to ScriptBasic functions.

Code: Script BASIC

IMPORT COM.sbi
 
FUNCTION ML_Selected_Click
  PRINT "Selected Button Clicked\n"
  ML_Selected_Click = TRUE
END FUNCTION  
 
 
FUNCTION ML_Auto_Click
  PRINT "Auto Button Clicked\n"
  ML_Auto_Click = TRUE
END FUNCTION
 
 
FUNCTION ML_Cancel_Click
  PRINT "Cancel Button Clicked\n"
  ML_Cancel_Click = TRUE
END FUNCTION
 
 
FUNCTION ML_Setup_Click
  PRINT "Setup Button Clicked\n"
  ML_Setup_Click = TRUE
END FUNCTION
 
 
FUNCTION ML_Exit_Click
  PRINT "Exit Button Clicked\n"
  ML_Exit_Click = TRUE
END FUNCTION
 
 
obj = COM::CREATE(:SET, "MASLink.OCXForm")
 
oCollection = COM::CBN(obj, "CallBackHandlers", :GET)
COM::CBN oCollection, "Add", :CALL, ADDRESS(ML_Selected_Click()), "MLForm.ML_Selected_Click"
COM::CBN oCollection, "Add", :CALL, ADDRESS(ML_Auto_Click()), "MLForm.ML_Auto_Click"
COM::CBN oCollection, "Add", :CALL, ADDRESS(ML_Cancel_Click()), "MLForm.ML_Cancel_Click"
COM::CBN oCollection, "Add", :CALL, ADDRESS(ML_Setup_Click()), "MLForm.ML_Setup_Click"
COM::CBN oCollection, "Add", :CALL, ADDRESS(ML_Exit_Click()), "MLForm.ML_Exit_Click"
 
COM::CBN obj, "ShowOCXForm"
 
COM::RELEASE obj
 

VB Form Code

Code: Visual Basic

Private Declare Function ext_SBCallBack Lib "COM.dll" Alias "SBCallBack" (ByVal EntryPoint As Long, ByVal arg As Long) As Long
Private Declare Function ext_SBCallBackEx Lib "COM.dll" Alias "SBCallBackEx" (ByVal EntryPoint As Long, ByRef v As Variant) As Variant
 
Private m_owner As OCXForm
Private Type ControlPositionType
    Left As Single
    Top As Single
    Width As Single
    Height As Single
    FontSize As Single
End Type
 
Private m_ControlPositions() As ControlPositionType
Private m_FormWid As Single
Private m_FormHgt As Single
 
 
Function ShowMLform(owner As OCXForm) As Long
    On Error Resume Next
    Set m_owner = owner
    Me.Show 1
    Set m_owner = Nothing
    ShowMLform = 0
    Unload Me
End Function
 
Private Function TriggerCallBack(nodeID As Long, argValue As Long) As Long
    TriggerCallBack = ext_SBCallBack(nodeID, argValue)
End Function
 
Private Function TriggerCallBackEx(nodeID As Long, v() As Variant)
    TriggerCallBackEx = ext_SBCallBackEx(nodeID, v)
End Function
 
Private Sub Form_Load()
  
  TableGrid.Row = 0
  TableGrid.FormatString = "^Live Tables|^Last Update|^Update Freq|^Duration|^Temp Table|^Map Function"
   
  TableGrid.ColWidth(0) = 3000
  TableGrid.ColWidth(1) = 1700
  TableGrid.ColWidth(2) = 1200
  TableGrid.ColWidth(3) = 1200
  TableGrid.ColWidth(4) = 3200
  TableGrid.ColWidth(5) = 3200
  
End Sub
 
Private Sub ML_Selected_Click()
    Dim nodeID As Long
    Dim arg As Long
    Dim rtnVal As Long
    
    nodeID = m_owner.CallBackHandlers("MLForm.ML_Selected_Click")
    arg = False
    rtnVal = TriggerCallBack(nodeID, arg)
End Sub
 
Private Sub ML_Auto_Click()
    Dim nodeID As Long
    Dim arg As Long
    Dim rtnVal As Long
    
    nodeID = m_owner.CallBackHandlers("MLForm.ML_Auto_Click")
    arg = False
    rtnVal = TriggerCallBack(nodeID, arg)
End Sub
 
Private Sub ML_Cancel_Click()
    Dim nodeID As Long
    Dim arg As Long
    Dim rtnVal As Long
    
    nodeID = m_owner.CallBackHandlers("MLForm.ML_Cancel_Click")
    arg = False
    rtnVal = TriggerCallBack(nodeID, arg)
End Sub
 
Private Sub ML_Setup_Click()
    Dim nodeID As Long
    Dim arg As Long
    Dim rtnVal As Long
    
    nodeID = m_owner.CallBackHandlers("MLForm.ML_Setup_Click")
    arg = False
    rtnVal = TriggerCallBack(nodeID, arg)
End Sub
 
Private Sub ML_Exit_Click()
    Dim nodeID As Long
    Dim arg As Long
    Dim rtnVal As Long
    
    nodeID = m_owner.CallBackHandlers("MLForm.ML_Exit_Click")
    arg = False
    rtnVal = TriggerCallBack(nodeID, arg)
End Sub
 

VB Class Code

Code: Visual Basic

Public CallBackHandlers As New Collection
 
Public Function ShowOCXForm() As Long
    ShowOCXForm = MLform.ShowMLform(Me)
End Function
 

Output
C:\Matt\maslink>sbc maslink.sb Selected Button Clicked Auto Button Clicked Cancel Button Clicked Setup Button Clicked Exit Button Clicked C:\Matt\maslink>

JRS · « **Reply #43 on:** July 31, 2020, 04:04:57 PM »

Charles,

Can you post an example of creating a virtual callback function with DLLC that an IUP button callback would expect? Once I understand O2 virtual callback functions I can also use it with the WSO GUI OCX library.

Can I assume that I can use the existing O2 code that generates an IUP callback then calls a ScriptBasic function repurposed to run in the same instance?

John

Charles Pegge · « **Reply #44 on:** August 03, 2020, 07:22:10 AM »

Hi John,

Unfortunatately, I have found that calling an sb function from a callback seems to destabilise the main sb program, even if the sb function does nothing.

Oxygen Basic

News:

Author Topic: DLLC status (Read 15568 times)

jack

Re: DLLC status

JRS

Re: DLLC status

JRS

Re: DLLC status

Charles Pegge

Re: DLLC status

JRS

Re: DLLC status

JRS

Re: DLLC status

JRS

Re: DLLC status

JRS

Re: DLLC status

JRS

Re: DLLC status

JRS

Re: DLLC status

Charles Pegge

Re: DLLC status

JRS

Re: DLLC status

JRS

Re: DLLC status

JRS

Re: DLLC status

Charles Pegge

Re: DLLC status