Resources UDF

[Logman]

Zedna, your UDF is really useful. One question... How to get the file version of the included file? I would like to compare the version of SQLite3.dll files (compare the file distributed with application and a dll installed on the client PC).

[Zedna]

Zedna, your UDF is really useful. One question... How to get the file version of the included file? I would like to compare the version of SQLite3.dll files (compare the file distributed with application and a dll installed on the client PC).

I don't know how to do this but fileversion of your resource DLL file is known at compile time so you can check it manually (or by some helper script) before compile time and store this information (as string) in global variable and later at runtime just compare DLL version installed on client PC against this stored global version string.

[Logman]

It is a pity, but I understand. I wanted to avoid the manual definition of a constant in the script. I prefer the way 'Copy & Play' - all fully automated.

[Yashied]

#Include <WinAPIEx.au3>

$hDll = _WinAPI_GetModuleHandle('sqlite3.dll')
If Not $hDll Then
    $hDll = _WinAPI_LoadLibrary('sqlite3.dll')
EndIf
$sPath = _WinAPI_GetModuleFileNameEx(_WinAPI_GetCurrentProcess(), $hDll)
$sVer = FileGetVersion($sPath)

ConsoleWrite($sVer & @CR)

[Logman]

Zedna, I'm sorry, but I have another question about _ResourceSaveToFile function. I'm trying to install a file to a folder with administrator privileges only. Compiled file running as administrator will install fine, but without an administrator nothing happens. The function below returns always the same result.

Func installResourceFile($sDestFile, $sResName, $sResType=10, $ResLang=0, $CreatePath=1, $DLL = -1)
    ; get filesize first
    _ResourceGet($sResName, $sResType, $ResLang, $DLL)
    If @error Then Return -1
    Local $filesize = @extended
    If $filesize = 0 Then Return -2
    Local $result = _ResourceSaveToFile($sDestFile,$sResName,$sResType,$ResLang,$CreatePath,$DLL)
MsgBox(0, '$result', $result) ; <<-- ??
    If @error Then
MsgBox(0, 'Error', 'Some error')    ; <<-- ??
        Return -1
    EndIf
    While 1
        If FileExists($sDestFile) And FileGetSize($sDestFile) = $filesize Then ExitLoop
        Sleep(100)
    WEnd
    Return 1
EndFunc ; ==>> installResourceFile

I do not want to run the application as admin and I'll have to check the user right of each folder before installing each file. Is there the possibility to return different values ​​for successful and unsuccessful _ResourceSaveToFile?

#Include <WinAPIEx.au3>

$hDll = _WinAPI_GetModuleHandle('sqlite3.dll')
If Not $hDll Then
    $hDll = _WinAPI_LoadLibrary('sqlite3.dll')
EndIf
$sPath = _WinAPI_GetModuleFileNameEx(_WinAPI_GetCurrentProcess(), $hDll)
$sVer = FileGetVersion($sPath)

ConsoleWrite($sVer & @CR)

Yashied, I meant to get a file version of DLL that is included as resource only:

Yashied, I meant to get a file version of DLL that is included as resource only:

#...
#AutoIt3Wrapper_Res_File_Add=resources\SQLite3.dll, rt_rcdata, SQL_FILE_1
#AutoIt3Wrapper_Res_File_Add=resources\SQLite3_x64.dll, rt_rcdata, SQL_FILE_2
#...

[Zedna]

Zedna, I'm sorry, but I have another question about _ResourceSaveToFile function. I'm trying to install a file to a folder with administrator privileges only. Compiled file running as administrator will install fine, but without an administrator nothing happens. The function below returns always the same result.

...
Local $result = _ResourceSaveToFile($sDestFile,$sResName,$sResType,$ResLang,$CreatePath,$DLL)
MsgBox(0, '$result', $result) ; <<-- ??
If @error Then
MsgBox(0, 'Error', 'Some error') ; <<-- ??
Return -1
EndIf
...

I do not want to run the application as admin and I'll have to check the user right of each folder before installing each file. Is there the possibility to return different values ​​for successful and unsuccessful _ResourceSaveToFile?

Try this:

...
Local $result = _ResourceSaveToFile($sDestFile,$sResName,$sResType,$ResLang,$CreatePath,$DLL)
If @error Then
  MsgBox(0, 'Error', 'Some error: ' & @error & @CRLF & 'return value: ' & $result) ; result should be 0
  Return -1
Else
  MsgBox(0, '$result', $result) ; result should be <> 0
EndIf
...

You can also use return value which is 0 at error or FileSize when all is OK.

EDIT: Your MsgBox immediatelly after calling _ResourceSaveToFile() reset @error to zero.

Edited August 3, 2012 by Zedna

[Logman]

The problem is that _ResourceSaveToFile() return no error when installing to a system folder without authorization.

...
_ResourceSaveToFile($sDestFile,$sResName,$sResType,$ResLang,$CreatePath,$DLL)
If @error Then
   Return -1
EndIF
...

So before installation I have to check with an external function if destination folder is writable.

[Zedna]

The problem is that _ResourceSaveToFile() return no error when installing to a system folder without authorization.

...
_ResourceSaveToFile($sDestFile,$sResName,$sResType,$ResLang,$CreatePath,$DLL)
If @error Then
Return -1
EndIF
...

According to simplified source of _ResourceSaveToFile():

Func _ResourceSaveToFile($FileName, $ResName, $ResType = 10, $ResLang = 0, $CreatePath = 0, $DLL = -1) ; $RT_RCDATA = 10
Local $ResStruct, $ResSize, $FileHandle

If $CreatePath Then $CreatePath = 8 ; mode 8 = Create directory structure if it doesn't exist in FileOpen()

; standard way
$ResStruct = _ResourceGetAsBytes($ResName, $ResType, $ResLang, $DLL)
If @error Then Return SetError(1, 0, 0)
$ResSize = DllStructGetSize($ResStruct)

$FileHandle = FileOpen($FileName, 2+16+$CreatePath)
If @error Then Return SetError(2, 0, 0)
FileWrite($FileHandle, DllStructGetData($ResStruct, 1))
If @error Then Return SetError(3, 0, 0)
FileClose($FileHandle)
If @error Then Return SetError(4, 0, 0)

Return $ResSize
EndFunc

it seems there is problem/bug in FileOpen() which probably don't return @error

So this problem probably is not related to resources/my UDF but directly to AutoIt.

In _ResourceSaveToFile() there are correctly checked/handled all @error states after FileOpen/FileWrite/FileClose.

Try small testing script to check if my doubt is correct:

$FileHandle = FileOpen('c:\your system path', 2+16+$CreatePath)
If @error Then ...

Also problem may be in using parameter 8 (CreatePath) in FileOpen for system directory, try it without this parameter.

[Logman]

Yes, you're right. The problem is in the FileOpen() function, which returns no error.

#include <File.au3>

Local $sTmpFile = _TempFile(@SystemDir)

$hFile = FileOpen($sTmpFile, 2 + 8 + 16)
If @error Then
    MsgBox(0, "Error handle", "An error while opening file.")    ; <<-- this message does not show
    Exit
EndIf

If $hFile = -1 Then
    MsgBox(0, "Error", "Unable to open file.")                  ; <<-- this message always appears
    Exit
EndIf

FileClose($sTmpFile)

What about change the causing line in _ResourceSaveToFile():

; ...
$FileHandle = FileOpen($FileName, 2+16+$CreatePath)
If @error Then Return SetError(2, 0, 0)
; ...

to

; ...
$FileHandle = FileOpen($FileName, 2+16+$CreatePath)
If $FileHandle = -1 Then Return SetError(2, 0, 0)
; ...

And maybe the line with FileWrite() function...

Edited August 5, 2012 by Logman

[Zedna]

What about change the causing line in _ResourceSaveToFile():

; ...
$FileHandle = FileOpen($FileName, 2+16+$CreatePath)
If @error Then Return SetError(2, 0, 0)
; ...

to

; ...
$FileHandle = FileOpen($FileName, 2+16+$CreatePath)
If $FileHandle = -1 Then Return SetError(2, 0, 0)
; ...

Yes. You are right.

Now I'm looking into AutoIt's helpfile and there is really no @error set when error occurs at FileOpen()

it just returns -1 as return value.

So my Func _ResourceSaveToFile() must be fixed this way:

Func _ResourceSaveToFile($FileName, $ResName, $ResType = 10, $ResLang = 0, $CreatePath = 0, $DLL = -1) ; $RT_RCDATA = 10
    Local $ResStruct, $ResSize, $FileHandle, $ret

    If $CreatePath Then $CreatePath = 8 ; mode 8 = Create directory structure if it doesn't exist in FileOpen()

    If $ResType = $RT_BITMAP Then
        ; workaround: for RT_BITMAP _ResourceGetAsBytes() doesn't work so use _ResourceGetAsImage()
        $hImage = _ResourceGetAsImage($ResName, $ResType)
        If @error Then Return SetError(10, 0, 0)

        ; create filepath if doesn't exist
        $FileHandle = FileOpen($FileName, 2+16+$CreatePath)
        If $FileHandle = -1 Then Return SetError(11, 0, 0)
        $ret = FileClose($FileHandle)
        If $ret = 0 Then Return SetError(12, 0, 0)

        _GDIPlus_ImageSaveToFile($hImage, $FileName)
        _GDIPlus_ImageDispose($hImage)

        $ResSize = FileGetSize($FileName)
    Else
        ; standard way
        $ResStruct = _ResourceGetAsBytes($ResName, $ResType, $ResLang, $DLL)
        If @error Then Return SetError(1, 0, 0)
        $ResSize = DllStructGetSize($ResStruct)

        $FileHandle = FileOpen($FileName, 2+16+$CreatePath)
        If $FileHandle = -1 Then Return SetError(2, 0, 0)
        $ret = FileWrite($FileHandle, DllStructGetData($ResStruct, 1))
        If $ret = 0 Then Return SetError(3, 0, 0)
        $ret = FileClose($FileHandle)
        If $ret = 0 Then Return SetError(4, 0, 0)
    EndIf

    Return $ResSize
EndFunc

Thanks for finding bug in my Resources UDF :-)

[Emiel Wieldraaijer]

@Zedna,

Are you going to update the first post ?

Thnx

Emiel

[Zedna]

Are you going to update the first post ?

Currently I have no time. Later ...

Edited August 13, 2012 by Zedna

[Zedna]

Today I discovered problem/bug in my Resources UDF (in one of my projects using it).

In application with more than one GUI I used

_ResourceSetImageToCtrl($button_xx, "BMP_XX", $RT_BITMAP)

for setting bitmap image to this button.

In compiled EXE image wasn't shown and problem was in resources.au3 in Func _SetBitmapToCtrl($CtrlId, $hBitmap)

Code

$CtrlId = _WinAPI_GetDlgCtrlID($hWnd) ; support for $CtrlId = -1

returned strange data and later

_WinAPI_GetClassName($CtrlId)

returned "IME" instead of expected "Button" ClassName.

I don't know exact reason why this problem occured but quick hack/workaround is to use

in resources.au3 in Func _SetBitmapToCtrl($CtrlId, $hBitmap)

instead of original

$CtrlId = _WinAPI_GetDlgCtrlID($hWnd) ; support for $CtrlId = -1
If @error Then Return SetError(2, 0, 0)

this fixed code

If $CtrlId = -1 Then ; workaround here <---
$CtrlId = _WinAPI_GetDlgCtrlID($hWnd) ; support for $CtrlId = -1
If @error Then Return SetError(2, 0, 0)
EndIf

So if I don't use -1 as Control Id then this problem will not occur.

[AZJIO]

_ResourceGetAsBitmap

Return _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)

_ResourcePlaySound

If $DLL <> -1 The
        _WinAPI_FreeLibrary($hInstance)
        If @error Then Return SetError(2, 0, 0)
    EndIf

Can't make the examples without compiling - _ResourceSaveToFile, _ResourceGetAsString, _ResourceGetAsStringW

Edited September 1, 2012 by AZJIO

[DOTCOMmunications]

Hi all

I tried the examples today and finally got it working after looking back in this thread.

However when i compile/build our program i use the command line to call the wrapper program so i am wondering what the difference is between using Compile (which doesnt seem to work from right click context menu) and Build (from Scite) and how that would effect my command line call to AutoIT Wrapper as i would really like to use this UDF?

[LuisMartins]

Got it to work perfectly with my JPEG, thanks.

Does this also works with embedding .DLL into the .EXE? If yes could you give me some example?

Thanks in advance!

[Melba23]

DOTCOMmunications,

Zedna has not been around for a while so I hope you do not mind me replying.

Within SciTE the 2 options work like this - assuming you are using the full SciTE4AutoIt3 install:

- Compile - brings up a dialog where you can set various compile options.

- Build - compiles using the existing AutoIt3Wrapper directives in the script.

M23

[PerfyNormal]

Hello, I've got a question regarding tray icons. There have been some examples in here regarding it but nothing only around the question.

I've searched but either not understood or found anything definitive, thus I've decided to post.

I'd like to have embedded icons in my compiled executable, that I can then call in my script to change the tray icon between

Do not want to use a temporary folder and do not use any GUI, only a tray icon.

How do I add the icons into my file for tray use and how do I call them without saving them temporary on the computer?

[guinness]

Look at this >>

You will find plenty of examples around the Forum.

[jb11]

I have been searching but was unable to find anything specific to this situation. Basically I want to add an icon file to my script and then use the icon resource in FileCreateShortcut() when I run the script. Is this possible?