[SOLVED] Call xd2txlib.dll failed on second time

[tmplinshi]

Code: Select all

MsgBox, % xdoc2txt("d.doc")
MsgBox, % xdoc2txt("d.doc") ; <------- fail

xdoc2txt(fileName) {
	fileText   := 0
	fileLength := DllCall("xd2txlib\ExtractText", "Str", fileName, "Int", False, "Int", &fileText)
	Return, StrGet( NumGet(fileText), fileLength )
}

xd2txlib.dll is from xdoc2txt (Homepage | Forum post).
Download: xd2txlib test.7z | xdoc2txt 2.00 ( xd2tx200.zip )

Thanks.

[Guest10]

is this due to a bug in xdoc2txt?

[tmplinshi]

Thanks. Maybe.

[HotKeyIt]

Try:

Code: Select all

MsgBox, % xdoc2txt("d.doc")
MsgBox, % xdoc2txt("d.doc") ; <------- fail

xdoc2txt(fileName) {
	fileLength := DllCall("xd2txlib\ExtractText", "Str", fileName, "Int", False, "Int*", fileText)
	Return, StrGet( fileText, fileLength )
}

[tmplinshi]

HotKeyIt, it works! Thanks a lot!
"Int*" is cool.

[tmplinshi]

I got a new problem...

Code: Select all

MsgBox, % xdoc2txt("1.xlsx", txt)

xdoc2txt(fileName) {
	fileLength := DllCall("xd2txlib\ExtractText", "Str", fileName, "Int", False, "Int*", fileText)
	; MsgBox, test ; Uncomment this line to avoid crash...
	Return, StrGet( fileText, fileLength )
}

If I didn't execute the MsgBox, script will crash. I've tried to replace the MsgBox to Sleep 5000, but still crash.

Download: https://www.dropbox.com/s/x0to0k3yr9jykpv/1.xlsx

(Tested on AHK 1.1.14.01 U32, Windows XP SP3)

[HotKeyIt]

That is surely due to unicode:

Code: Select all

MsgBox, % xdoc2txt("x:\1.xlsx")

xdoc2txt(fileName) {
    fileLength := DllCall("xd2txlib\ExtractText", "Str", fileName, "Int", False, "Int*", fileText)
    Return StrGet( fileText, fileLength / 2 )
}

[tmplinshi]

Thanks for your help, HotkeyIt! It works!