[Solved] Get stream size

[DrAhmed]

Hey

I was looking for methode to get the stream size of a picture from memory , wihtout need to write stream data to disk the then use filegetsize 

Thats what I am trying to do

expandcollapse popup

#include <gdiplus.au3>
#include <memory.au3>
#include <staticconstants.au3>

_GDIPlus_Startup()

Global $ghGDIPDLL = $__g_hGDIPDll

While 1

$data = Desk_Stream(50)
$data2 = StringSplit($data, "|")

$My_Stream_Size = $data2[0]
$My_Stream = $data2[1]

;.
;..
;... 

    Sleep(1000)
WEnd

_GDIPlus_Shutdown()



Func Desk_Stream($Q)

    Local $hHBmp = _ScreenCapture_Capture("") ;create a GDI bitmap by capturing my desktop

    Local $hBitmap = _GDIPlus_BitmapCreateFromHBITMAP($hHBmp) ;convert GDI bitmap to GDI+ bitmap

    Local $hBitmap_Scaled = _GDIPlus_ImageResize($hBitmap, @DesktopWidth / 2, @DesktopHeight / 2) ;resize image

    $sStream_Data = _GDIPlus_StreamImage2BinaryString($hBitmap_Scaled, $sQ, False, '') ;coded by UEZ 2013 build 2014-01-25; based on the code

    ;release resources otherwise memory leak
    _WinAPI_DeleteObject($hHBmp)
    _GDIPlus_ImageDispose($hBitmap)
    _GDIPlus_ImageDispose($hBitmap_Scaled)
    
    
      Local $data_size = GetStreamSize($sStream_Data)


    Return $data_size & "|" & $sStream_Data 
EndFunc   ;==>Desk_Stream



Func _GDIPlus_StreamImage2BinaryString($hBitmap, $iQuality, $bSave, $sFilename) ;coded by UEZ 2013 build 2014-01-25; based on the code by Andreik
    Local $sImgCLSID, $tGUID, $tParams, $tData
    $sFormat = "JPG"

    $sImgCLSID = _GDIPlus_EncodersGetCLSID($sFormat)
    $tGUID = _WinAPI_GUIDFromString($sImgCLSID)
    $tData = DllStructCreate("int Quality")
    DllStructSetData($tData, "Quality", $iQuality) ;quality 0-100
    Local $pData = DllStructGetPtr($tData)
    $tParams = _GDIPlus_ParamInit(1)
    _GDIPlus_ParamAdd($tParams, $GDIP_EPGQUALITY, 1, $GDIP_EPTLONG, $pData)


    Local $hStream = _WinAPI_CreateStreamOnHGlobal() ;http://msdn.microsoft.com/en-us/library/ms864401.aspx
    If @error Then Return SetError(2, 0, 0)
    _GDIPlus_ImageSaveToStream($hBitmap, $hStream, DllStructGetPtr($tGUID), DllStructGetPtr($tParams))
    If @error Then Return SetError(3, 0, 0)

    Local $hMemory = _WinAPI_GetHGlobalFromStream($hStream) ;http://msdn.microsoft.com/en-us/library/aa911736.aspx
    If @error Then Return SetError(4, 0, 0)
    Local $iMemSize = _MemGlobalSize($hMemory)
    If Not $iMemSize Then Return SetError(5, 0, 0)
    Local $pMem = _MemGlobalLock($hMemory)
    $tData = DllStructCreate("byte[" & $iMemSize & "]", $pMem)
    Local $bData = DllStructGetData($tData, 1)
    _WinAPI_ReleaseStream($hStream) ;http://msdn.microsoft.com/en-us/library/windows/desktop/ms221473(v=vs.85).aspx

    _MemGlobalFree($hMemory)

    Return $bData

EndFunc   ;==>_GDIPlus_StreamImage2BinaryString

Func GetStreamSize($data) ; ??

EndFunc

 

Edited May 5, 2016 by DrAhmed

[alien4u]

I think you have what you need inside your own code:

Local $iMemSize = _MemGlobalSize($hMemory)

So you could use $GetStreamSize = _MemGlobalSize($bData)

I'm not sure but I think it probably work.

Another way is to analyze RGB data of the image, I don't know if _GDIPlus can do that.

Interesting information here:
http://www.scantips.com/basics1d.html

Regards
Alien.

[UEZ]

4 hours ago, DrAhmed said:

Local $data_size = GetStreamSize($sStream_Data)

This should do it:

Local $data_size = GetStreamSize($sStream_Data)
MsgBox(0, "", BinaryLen($data_size) & " bytes")

 

[DrAhmed]

1 hour ago, UEZ said:

This should do it:

Local $data_size = GetStreamSize($sStream_Data)
MsgBox(0, "", BinaryLen($data_size) & " bytes")

 

Oh I missed that .. It works great , thanks man