Code: Select all
#Define unicode
#Pragma Once
#include Once "windows.bi"
#include Once "win/commctrl.bi"
#include once "glib.bi"
' =============================================================
Const As Byte idTVItemIcon_Default = 7
Const As COLORREF cCOLOUR_DefaultBlack = &H000000
' =============================================================
Type tagInitData
path1 As WString * 1024 = ""
path2 As WString * 1024 = ""
alert As Boolean = TRUE
max As Integer = 0
End Type
' =============================================================
Type tagReturnData
iID As ULong = 0
name As WString * 256 = ""
path As WString * 1024 = ""
alert As Boolean = TRUE
TimeString As ZString * 256 = ""
TimeEPOCH As LongInt = 0
TimeGDateTime As GDateTime Ptr
max As Integer = 0
stats As ZString * 64 = ""
TV_itemHandle As HTREEITEM = 0
TV_itemIcon As Byte = idTVItemIcon_Default
Color As COLORREF = cCOLOUR_DefaultBlack
End Type
' =============================================================
Dim Shared As tagReturnData aDataGlobal()
' =============================================================
Extern "Windows-MS"
' =============================================================
' =============================================================
Public Function Init(tInitData As tagInitData, ByRef iCount As Integer, ByRef tReturnData As tagReturnData Ptr) As Integer Export
' ------------------------------------------------------------
'
' ...
'
' ------------------------------------------------------------
iCount = UBound(aDataGlobal)
tReturnData = New tagReturnData[iCount]
Print " -------> iCount = ";iCount
For i As Integer = 1 To iCount
Print " --> iID = ";i
' .........................................................
tReturnData[i-1].iID = aDataGlobal(i).iID
tReturnData[i-1].name = aDataGlobal(i).name
tReturnData[i-1].path = aDataGlobal(i).path
tReturnData[i-1].alert = aDataGlobal(i).alert
tReturnData[i-1].TimeString = aDataGlobal(i).TimeString
tReturnData[i-1].TimeEPOCH = aDataGlobal(i).TimeEPOCH
tReturnData[i-1].TimeGDateTime = aDataGlobal(i).TimeGDateTime
tReturnData[i-1].max = aDataGlobal(i).max
tReturnData[i-1].stats = aDataGlobal(i).stats
tReturnData[i-1].TV_itemHandle = aDataGlobal(i).TV_itemHandle
tReturnData[i-1].TV_itemIcon = aDataGlobal(i).TV_itemIcon
tReturnData[i-1].Color = aDataGlobal(i).Color
' .........................................................
'Print "tReturnData[i-1].name = ";tReturnData[i-1].name
Next i
' ------------------------------------------------------------
Return 0
End Function
' =============================================================
End Extern
' =============================================================
If i uncomment "Print "tReturnData[i-1].name = ";tReturnData[i-1].name" - it wont print anything and after it "Print " --> iID = ";i" also wont work.
it seems something wrong, but cannot find it...