Sign in to follow this  
Followers 0
kristo

Nees help with binary resources

5 posts in this topic

#1 ·  Posted (edited)

I'm using the resources UDF to create the following little program.

I need to include a binary datafile called pattern.dat.

This pattern file has to be processed afterwards which I want to do via resources.au3.

Since it is not possible to write the pattern.dat to disk I want to read the data directly from

the resources section.

#NoTrayIcon
 
;------ Include the resulting pattern.dat from the sensoring device
#AutoIt3Wrapper_Res_File_Add=pattern.dat, rt_rcdata, PATTERN
#include "resources.au3"
 
global $Chunk = _ResourceGetAsString("PATTERN", $RT_RCDATA)
;global $Chunk  = _ResourceGetAsBytes("PATTERN", $RT_RCDATA)
 
for $i=1 to StringLen($Chunk) step 32
 
     $evalpart=StringMid($Chunk,($i-1*32)+1,32)
 
     ;------ Send to Transfer unit via TCP
     ;ActivateTranferUnit ($evalpart)
 
     ;------ Debugging only 
     FileWriteLine(@ScriptDir & "\evalsteps_debug.txt",$evalpart)
 
next

However neither _ResourceGetAsString nor ResourceGetAsBytes seems to return

the original data stream.

So far all resources samples I found are saving the data to disk. Bit how can I get a

variable filles with the included stream similar to FileRead()?

Can anyone give me advice how to solve this.

Kristo :graduated:

Edited by kristo

Cheap, Fast, Good - Choose any two

Share this post


Link to post
Share on other sites



What is file size?

Can you see PATTERN resource in compiled EXE by Reshacker?

What @error codes returns _ResourceGetAsString()?

Post your file.

Hi Zedna!

Yes, I can see the PATTERN resource with ResHacker.exe

ErrorCode is 0, the resulting file size is 4 bytes, which explains why there's nothing for me to evaluate.

I attached one of the pattern files for you.

pattern.7z


Cheap, Fast, Good - Choose any two

Share this post


Link to post
Share on other sites

Hey Zedna,

I think I found the problem within the Resource UDF.

Seems that the 'byte' structure stops when encountering zeros.

So I added a new function: _ResourceGetAsUByte.

Func _ResourceGetAsUByte($ResName, $ResType = 10, $ResLang = 0, $DLL = -1) ; $RT_RCDATA = 10
Local $ResPointer, $ResSize, $struct
$ResPointer = _ResourceGet($ResName, $ResType, $ResLang, $DLL)
If @error Then
  SetError(1, 0, 0)
  Return ''
EndIf
$ResSize = @extended
$struct = DllStructCreate("ubyte[" & $ResSize & "]", $ResPointer)
Return DllStructGetData($struct, 1) ; returns string
EndFunc

Now it works as intended. Hope this helps improving the resources UDF :graduated:

Cheers

Kristo ;)


Cheap, Fast, Good - Choose any two

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0