07010228.txt 01-Jul-00


Novell ActiveX Controls

>
I'm trying to get access to the NDS tree of our Novell
  Server.(Netware 5)
I downloaded Novell's latest ActiveX controls and started
  using them in VO.
<
I have Novell ActiveX controls now but I can not install
  them on my computer. I have a message :
LoadLibrary( "NWSESS.OCX" ) failed.
GetLastError return 0x00000485.
when I had try to run REGSVR32 NWSESS.OCX. NWSESS.OCX is in
  the same directory where REGSVR32 was executed.
What is wrong ? How to install Novell ActiveX components ?

TIA,
Marek Powichrowski


Marek,

I just used the installation that came with the product, but
  do you have Novell and a Novell client installed on your
  machine ??  The OCX's sure are depending on them to get
  their info, and maybe they need  them just to get
  installed as well.

Jan


Jan,

Have you tried to generate code for this ActiveX?
If you have, what kind of VO source it generates for this
  method....??
>
varData = Form1.EditEntry.GetFieldValue("")
<

Jari


I generated code for it, and this is what I get (i just give
  the one function that gives me problems)
if it has to give back a single value, all works well
if it has to give back an array, then it does not work.

TIA

METHOD GetFieldValue(;
  FieldName,;  // AS STRING
  DefaultValue,;  // AS USUAL
  ForceAsArray,;  // AS USUAL
  ) CLASS NWEntry
  // Returns the value of the requested field.
  LOCAL a AS ARRAY
  LOCAL pParamDesc AS VOOLEARGDESC
  LOCAL pRetDesc IS VOOLEARGDESC

  LOCAL uRetValue AS USUAL
  a := {String2Symbol("GetFieldValue"), 16, ;
    INVOKE_METHOD, 3, 2, .T., , @pRetDesc}
  pParamDesc     := SELF:__AllocArgDescs(3)
  a[OFD_PARAMDESC]  := pParamDesc
  pParamDesc.dwIDLFlag  := 0
  pParamDesc.dwVarType  := VT_BSTR
  pParamDesc.atomArgName := #FieldName
  pParamDesc   += 1
  pParamDesc.dwIDLFlag  := 16
  pParamDesc.dwVarType  := VT_VARIANT
  pParamDesc.atomArgName := #DefaultValue
  pParamDesc   += 1
  pParamDesc.dwIDLFlag  := 16
  pParamDesc.dwVarType  := VT_VARIANT
  pParamDesc.atomArgName := #ForceAsArray
  pParamDesc   += 1
  pRetDesc.dwIDLFlag  := 0
  pRetDesc.dwVarType  := VT_VARIANT
  uRetValue := SELF:__InvokeMethod(a,;
    DWORD(_bp+16),PCount())
  MemFree(pParamDesc)
RETURN(uRetValue)