DllCall & datatypes

[Iczer 13]

I have some troubles understanding data types of returned by my freebasic dll values :

Function Time_GetCurrentISOWeekNumber_Orig() should return String value (two digits), but actually return "ђЖ¤"

Function Time_GetCurrentISOWeekNumber() is working as intended

Why STR value not recognized by Autoit or, it seems, have first bytes of string replaced by something (maybe BOM?)

Freebasic dll code:

Spoiler

#include once "vbcompat.bi"
#include once "string.bi"
'==========================================================================================
Extern "Windows-MS"
'==========================================================================================
Public Function Time_GetCurrentISOWeekNumber() As wString Ptr Export
    Dim As Double d = Now()
    Dim As String * 8 WeekISO = Format(DatePart("ww", d, fbMonday, fbFirstFourDays),"00")
    Return WinAPI_MultiByteToWideChar(65001, StrPtr(WeekISO))
End Function
'==========================================================================================
Public Function Time_GetCurrentISOWeekNumber_Orig() As String Export
    Dim As Double d = Now()
    Dim As String * 8 WeekISO = Format(DatePart("ww", d, fbMonday, fbFirstFourDays),"00")
    Return WeekISO
End Function
'==========================================================================================
End Extern
'==========================================================================================

 

 

Autoit code:

Spoiler

#include <Date.au3>

Global $hDLL = DllOpen($sPathTocDLL)

ConsoleWrite(Time_GetCurrentISOWeekNumber() & @CRLF)
ConsoleWrite(Time_GetCurrentISOWeekNumber_Orig() & @CRLF)
ConsoleWrite(_WeekNumberISO () & @CRLF)

;==============================================================================================================================================================================================
Func Time_GetCurrentISOWeekNumber()

    Local $aRet = DllCall($hDLL,"WSTR*","Time_GetCurrentISOWeekNumber")
    If @error Then Return SetError(1000 + @error, 1000 + @extended,False)

    Return $aRet[0]

EndFunc
;==============================================================================================================================================================================================
Func Time_GetCurrentISOWeekNumber_Orig()

    Local $aRet = DllCall($hDLL,"STR","Time_GetCurrentISOWeekNumber_Orig")
    If @error Then Return SetError(1000 + @error, 1000 + @extended,False)

    Return $aRet[0]

EndFunc
;==============================================================================================================================================================================================

 

 

 

[JohnOne 1,583]

Try

Local $aRet = DllCall($hDLL,"WSTR","Time_GetCurrentISOWeekNumber_Orig"); WSTR

 

[Iczer 13]

In this case return value is "?¤" 

[Iczer 13]

 No one?

here dll (x64) for any one interested

 

Time_GetCurrentISOWeekNumber.dll

[JohnOne 1,583]

I think that dlls that return strings do not play nice with autoit and probably any other language.

You will notice windows api functions mostly require caller to pass it a buffer to fill if you want a string from it.

I believe that is the crux of you issue.

 

[Danyfirex 457]

Hello. Try this.

Func Time_GetCurrentISOWeekNumber_Orig()
    Local $aRet = DllCall($hDLL, "ptr", "Time_GetCurrentISOWeekNumber_Orig")
    If @error Then Return SetError(1000 + @error, 1000 + @extended, False)
    Return DllStructGetData(DllStructCreate("char[2]", DllStructGetData(DllStructCreate("ptr", $aRet[0]), 1)), 1)
EndFunc   ;==>Time_GetCurrentISOWeekNumber_Orig

Saludos

[jguinch 382]

I really think Danyfirex has some magical powers... 

[Iczer 13]

Wow! Thanks! Simple string in freebasic not as simple as it sound it seems.

 

[Danyfirex 457]

8 hours ago, jguinch said:

I really think Danyfirex has some magical powers... 

Yes I have but not sure if it's magical. I destroy everything I touch (This is my gift, My curse)  lol

 

27 minutes ago, Iczer said:

Wow! Thanks! Simple string in freebasic not as simple as it sound it seems.

 

 

It it not so hard.  the unicode version you return a Pointer to string (wString Ptr Export)  for that you can use wstr as return in the dllcall.

The other one you return a string only for that you get a pointer to a pointer that points to a string lol. that's how I see it. maybe if you use something like  String Ptr Export it works. I'm not sure because I dont know freebasic. But it should be something like that I think.

 

Saludos