Dim oTab() As Long

[maniootek]

Is it possible to create object which act like array with LONG data type values?

I am working with COM object where some method require this type of data to pass.

Here is example from helpfile of the app providing COM object (not sure what language is it)

Sub DodajFZz()
 
  Dim oSubGT As InsERT.Subiekt
 
  Dim oDok As Insert.SuDokument
  Dim oTab() As Long
 
  ReDim oTab(2)
  oTab(0) = 3
  oTab(1) = 4
  oTab(2) = 5
 
  Set oSubGT = UruchomSubiekta()
 
  Set oDok = oSubGT.SuDokumentyManager.DodajFZz
  oDok.MiejsceWystawienia = "Wrocław"
  oDok.NumerOryginalny = "FZz 24/GT/2011"
  oDok.NaPodstawieWielu oTab
  oDok.Wystawil = "Szef"
  oDok.Zapisz
  oDok.Zamknij
 
End Sub

As you can see there is "Dim oTab() AS Long". Now, how to create something like this in Autoit?

I tried to make simple array in Autoit and pass to the method but it does not work.

Local $aTab[] = [3,4,5]
$oDok.NaPodstawieWielu($aTab) ;does not work

Other methods working fine.

Any idea?

[mLipok]

 

 

 

1

3 minutes ago, maniootek said:

I tried to make simple array in Autoit and pass to the method but it does not work.

Local $aTab[] = [3,4,5]
$oDok.NaPodstawieWielu($aTab) ;does not work

 

What your's COM Error Handler function said to you ?

 

[maniootek]

Error handler says "Group member not found" or something like that (it's translated from my language)

[mLipok]

"Nie znaleziono członka grupy" >>> "Group member not found"

But I do not know what this mean in your case....

 

EDIT:
are you sure the line #74 is exactly this specific one ?

 

Edited September 4, 2019 by mLipok

[maniootek]

Just now, mLipok said:

"Nie znaleziono członka grupy" >>> "Group member not found"

But I do not know what this mean in your case....

me either...🤔

I think the problem is with data type. It must be object of 32-bit LONG elements which probably is not supported by AutoIt.

Some other forum member had same problem but with PHP. Same code written in VBA worked but with PHP not. Same method and same problem with array. 

[maniootek]

7 minutes ago, mLipok said:

are you sure the line #74 is exactly this specific one ?

yes ofc

[maniootek]

When I change the way I try to pass the array to method from 

$oDok.NaPodstawieWielu = $aTab

to

$oDok.NaPodstawieWielu($aTab)

then I get error "Type mismatch"

[mLipok]

What documentation for this object says about "NaPodstawieWielu"  ?

[maniootek]

1 minute ago, mLipok said:

What documentation for this object says about "NaPodstawieWielu"  ?

There you go...

[mLipok]

Are you sure that this code is valid for your case ?

 

 

 

1

3 hours ago, maniootek said:

I tried to make simple array in Autoit and pass to the method but it does not work.

Local $aTab[] = [3,4,5]
$oDok.NaPodstawieWielu($aTab) ;does not work

 

In other words, is this 3,4,5, are valid ID === invoices for this ID exist in the databases ?
Did you try with single ID ?
 

 

 

 

 

2

1 hour ago, maniootek said:

I think the problem is with data type. It must be object of 32-bit LONG elements which probably is not supported by AutoIt.

Quite possible but this is out of my knowledge.

 

 

 

 

2

1 hour ago, maniootek said:

Some other forum member had same problem but with PHP. Same code written in VBA worked but with PHP not. Same method and same problem with array.

Could you post a link to this discussion?

 

[maniootek]

1 hour ago, mLipok said:

Are you sure that this code is valid for your case ?

Yes I am sure that all IDs in the array are correct and exists in database as the entries that the function require.

2 hours ago, mLipok said:

Could you post a link to this discussion?

http://www.forumsubiekta.pl/dodatki-zestawienia/problem-z-tworzeniem-faktury-zbiorczej-z-poziomu-php

[maniootek]

Maybe DllStructCreate could help to create array with 32-bit long elements in AutoIt? Anyone can give advice?

[Danyfirex]

Hello, I think dll structure will not help. anyway You can do this.

 Local $t=DllStructCreate("long[10]")

btw, where can I get that software for do some testing? does it provide a free version? Or probably you can share the TypeLib definition or You can check by yourself with some COM Inspect tool like COMView or COM Object Viewer to be sure about the data type required.

 

Saludos

[maniootek]

On 3/10/2020 at 1:39 PM, Danyfirex said:

Local $t=DllStructCreate("long[10]")

how can i test it in my script? I am not familiar with any dll

On 3/10/2020 at 1:39 PM, Danyfirex said:

Or probably you can share the TypeLib definition

I used TLBViewer.au3 found in AutoIt forum and this is result of this method:

  165. property NaPodstawieWielu
STDCALL FUNC PUREVIRTUAL;
         HRESULT NaPodstawieWielu(
            [in] int* psaVal
         );

does it says anything to you?

I wil also attach dll file for reference

GTA64.dll (file deleted to free up some attachment upload limit)

 

Edited September 29, 2022 by maniootek

[Danyfirex]

Dll example would be

Local $t=DllStructCreate("long[3]")
DllStructSetData($t,1,3)
DllStructSetData($t,1,4)
DllStructSetData($t,1,5)

$oDok.NaPodstawieWielu($t)
Or
$oDok.NaPodstawieWielu(DllStructGetPtr($t))

But I'm almost sure it will not work.

 

The only way I can see that It could probably work is using ObjCreateInterface to call the interface directly but it will require set the String describing v-table so It would be complex if you don't have some knowledge about it.

 

Saludos

 

[Danyfirex]

Dll example would be

Local $t=DllStructCreate("long[3]")
DllStructSetData($t,1,3)
DllStructSetData($t,1,4)
DllStructSetData($t,1,5)

$oDok.NaPodstawieWielu($t)
Or
$oDok.NaPodstawieWielu(DllStructGetPtr($t))

But I'm almost sure it will not work.

 

The only way I can see that It could probably work is using ObjCreateInterface to call the interface directly but it will require set the String describing v-table so It would be complex if you don't have some knowledge about it.

 

Saludos

 

[maniootek]

7 minutes ago, Danyfirex said:

Dll example would be

Local $t=DllStructCreate("long[3]")
DllStructSetData($t,1,3)
DllStructSetData($t,1,4)
DllStructSetData($t,1,5)

$oDok.NaPodstawieWielu($t)
Or
$oDok.NaPodstawieWielu(DllStructGetPtr($t))

But I'm almost sure it will not work.

I tried this way:

Local $t=DllStructCreate("long[3]")
DllStructSetData($t,1,3)
DllStructSetData($t,2,4)
DllStructSetData($t,3,5)
$oDok.NaPodstawieWielu($t)

but I got new COM error message "Interface not registered" on $oDok.NaPodstawieWielu($t) line

8 minutes ago, Danyfirex said:

The only way I can see that It could probably work is using ObjCreateInterface to call the interface directly but it will require set the String describing v-table so It would be complex if you don't have some knowledge about it.

Would you help me with that?

[maniootek]

27 minutes ago, Danyfirex said:

Local $t=DllStructCreate("long[3]")
DllStructSetData($t,1,3)
DllStructSetData($t,1,4)
DllStructSetData($t,1,5)

anyway, this example is wrong I guess? you set data to index 1 three times, am I right?

[Danyfirex]

yes I wrote it wrong. You're right.

Probably I  can help you. I'll send a PM.

 

Saludos

 

[Danyfirex]

yes I wrote it wrong. You're right.

Probably I  can help you. I'll send a PM.

 

Saludos