[R] Aide à la compréhension de fonctions ...

[PandiPanda]

Bonjour,
je vous sollicite pour divers petits problème que je rencontre, à savoir la compréhension de certaine fonction récuperer sur le forum anglais. Certes cela fonctionne bien, mais je voudrai tout de même comprendre pour savoir réellement ce que j'utilise

► Afficher le texteles fonctions, elles permettent de faire du Screen => Binary

Code : Tout sélectionner

#include <GDIPlus.au3>
#include <Memory.au3>
#include <ScreenCapture.au3>
Opt("MustDeclareVars", 1)

Func _ScreenToBin($iLeft="",$iTop="",$iRight=-1,$iBottom=-1,$fCursor=True)
    Local $hBmp,$hBitmap,$sEncoderCLSID,$tEncoderCLSID,$pEncoderCLSID,$pStream, _
    $hMem,$iSize,$pMem,$tData,$xData
    $hBmp = _ScreenCapture_Capture("",$iLeft,$iTop,$iRight,$iBottom,$fCursor)
    $hBitmap = _GDIPlus_BitmapCreateFromHBITMAP($hBmp)
    _WinAPI_DeleteObject($hBmp)
    $sEncoderCLSID = _GDIPlus_EncodersGetCLSID("jpg")
    $tEncoderCLSID = _WinAPI_GUIDFromString($sEncoderCLSID)
    $pEncoderCLSID = DllStructGetPtr($tEncoderCLSID)
    $pStream = _WinAPI_CreateStreamOnHGlobal(0)
    _GDIPlus_ImageSaveToStream($hBitmap, $pStream, $pEncoderCLSID)
    _GDIPlus_BitmapDispose($hBitmap)
    $hMem = _WinAPI_GetHGlobalFromStream($pStream)
    $iSize = _MemGlobalSize($hMem)
    $pMem = _MemGlobalLock($hMem)
    $tData = DllStructCreate("byte[" & $iSize & "]", $pMem)
    $xData = DllStructGetData($tData, 1) ;JPG file in binary format
    _MemGlobalFree($hMem)
    Return $xData
EndFunc
_GDIPlus_Startup()
Local $T0=TimerInit()
Local $testBin=_ScreenToBin()
MsgBox(0,'',TimerDiff($T0))
$T0=TimerInit()
FileWrite(@ScriptDir&"\test.jpg",$testBin)
MsgBox(0,'',TimerDiff($T0))
_GDIPlus_Shutdown()

Func _GDIPlus_ImageSaveToStream($hImage, $pStream, $pEncoder, $pParams = 0)
    Local $aResult = DllCall([color=#FF0000]$ghGDIPDll[/color], "uint", "GdipSaveImageToStream", "ptr", $hImage, "ptr", $pStream, "ptr", $pEncoder, "ptr", $pParams)

    If @error Then Return SetError(1, 0, 0)
    [color=#FF0000]Return SetError($aResult[0] <> 0, 0, $aResult[0] = 0)[/color]
EndFunc

Func _WinAPI_CreateStreamOnHGlobal($hGlobal, $fDeleteOnRelease = 1)
    Local $aResult = DllCall("ole32.dll", "uint", "CreateStreamOnHGlobal", "ptr", $hGlobal, "bool", $fDeleteOnRelease, "ptr*", 0)

    If @error Or $aResult[0] Then Return SetError(1, 0, 0)
    Return $aResult[3]
EndFunc

Func _WinAPI_GetHGlobalFromStream($pStream)
    Local $aResult = DllCall("ole32.dll", "uint", "GetHGlobalFromStream", "ptr", $pStream, "ptr*", 0)

    If @error Or $aResult[0] Then Return SetError(1, 0, 0)
    Return $aResult[2]
EndFunc

j'aurai besoin d'aide de compréhension pour ce qui est en rouge,
Merciii ^^

[mikell]

pour la première : dans l'include GDIplus.au3, il y a

Code : Tout sélectionner

_GDIPlus_Startup()
....
$ghGDIPDll = DllOpen("GDIPlus.dll")

Pour la 2ème je vois pas, le Return est censé renvoyer une valeur mais si on commente la ligne ça ne semble rien changer au déroulement du script

Code : Tout sélectionner

 ;   Return SetError($aResult[0] <> 0, 0, $aResult[0] = 0)

Return SetError($aResult[0] <> 0, 0, $aResult[0] = 0) renvoie "true" donc on mettrait "Return True" ce serait pareil ?

[PandiPanda]

Merci de plonger dans mon problème
mais je pense que Return SetError($aResult[0] <> 0, 0, $aResult[0] = 0)
met un "boolean,0,boolean" mais je voit pas comment on pourrait l'utiliser dans une variable ...

[mikell]

Je le verrais assez comme ça

SetError($aResult[0] <> 0, 0, $aResult[0] = 0) : booléen, met @error=1 si $aResult[0]<>0, sinon @error=0

Return SetError($aResult[0] <> 0, 0, $aResult[0] = 0) : renvoie la valeur booléenne de l'expression $aResult[0]=0 (vrai ou faux)

Cela dit l'intérêt de cette ligne est peut-être d'économiser des lignes de code, genre
If $aResult[0] = 0 Then
Return true
Else
SetError(1, 0)
Return false
EndIf

La confirmation d'un spécialiste serait la bienvenue...

[Tlem]

D'après ce code de test :

Code : Tout sélectionner

$Ret = Test(0)
MsgBox(0, "Test avec 0", "Error = " & @error & @CRLF & "Extented = " & @extended & @CRLF & "Return = " & $Ret)

$Ret = Test(1)
MsgBox(0, "Test avec 1", "Error = " & @error & @CRLF & "Extented = " & @extended & @CRLF & "Return = " & $Ret)

$Ret = Test(0x230)
MsgBox(0, "Test avec 0x230", "Error = " & @error & @CRLF & "Extented = " & @extended & @CRLF & "Return = " & $Ret)


Func Test($iVal)
    Local $aResult[1] = [$iVal]
    Return SetError($aResult[0] <> 0, 0, $aResult[0] = 0)
EndFunc

Nous avons donc $aResult[0] <> 0 qui retourne une valeur booléenne (1 ou 0) en fonction de la valeur de $aResult[0].
Idem pour $aResult[0] = 0, mais cette foi-ci la valeur booléenne est True ou False !

[PandiPanda]

oulah déchiffrer tout ca, c'est tout un art '^^

Donc si j'ai bien compris ...

le @error sera mis à 1 si c'est des valeurs differentes de 0
et retourne "True" seulement à 0

me trompe?

Autre question, voyez vous une utilité à ceci? gain de place, autre ? ^^

[mikell]

Sauf erreur de ma part et au vu de ses commentaires Tlem aurait pu mettre "l'analyse de mikell est correcte"
L'aide dit : SetError(entier, entier, paramètre) donc c'est logique qu'on ait "1" et "true"

► Afficher le texte

Code : Tout sélectionner

$Ret = Test(0)
MsgBox(0, "Test avec 0", "Error = " & @error & @CRLF & "Extented = " & @extended & @CRLF & "Return = " & $Ret)

$Ret = Test(1)
MsgBox(0, "Test avec 1", "Error = " & @error & @CRLF & "Extented = " & @extended & @CRLF & "Return = " & $Ret)

$Ret = Test(0x230)
MsgBox(0, "Test avec 0x230", "Error = " & @error & @CRLF & "Extented = " & @extended & @CRLF & "Return = " & $Ret)


Func Test($iVal)
    Local $aResult[1] = [$iVal]
    Return SetError($aResult[0] <> 0, 0, [b]Number[/b]($aResult[0] = 0))
EndFunc
 

voyez vous une utilité à ceci? gain de place, autre ? ^^

Heu t'as pas lu mon post ?
Apparemment sur 1 seule ligne, en fonction de l'analyse d'une expression on définit @error, et en fonction de la valeur de cette expression on renvoie une valeur booléenne ^^

[PandiPanda]

Si Si j'ai bien lu, j'ai juste zappé xD
Piiiiiiiis c'et vraiment du costaud ... je me voit mal utilisé ca

[mikell]

Bah c'est vrai, mais si tu veux avoir l'air d'un bon programmeur bien trapu, faut t'y mettre, fieu !

[Tlem]

Tlem aurait pu mettre "l'analyse de mikell est correcte"

Bien que je ne soit pas forcément un 'spécialiste', j'ai (de part mon message) confirmé le votre puisque vous le demandiez :

La confirmation d'un spécialiste serait la bienvenue...