Größe von einem Bild lesen

1. offizieller Beitrag

    Hi
    Ich möchte gerne mal so ein Bildprog. machen (für mich). Das hab ich ja jetzt schon, aber ich hab ein problem da das bild dann immer so lang gezogen wird und nicht in der originalgröße angezeigt bleibt. Weiß jemand wie ich die größe vom Bild auslesen kann und dann die gui anpassen oder wie ich die gui so anpasse, das das bild ned langgezogen ist :?:

    • Offizieller Beitrag
    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <ScreenCapture.au3>

    [/autoit] [autoit][/autoit] [autoit]

    _ScreenCapture_Capture(@MyDocumentsDir & "\GDIPlus_Image2.jpg", 0, 0, 796, 596)

    [/autoit] [autoit][/autoit] [autoit]

    $Path = @MyDocumentsDir & "\GDIPlus_Image2.jpg" ;@ScriptFullPath ; @ScriptDir
    $ret = _FileInfoExtended($Path)
    _ArrayDisplay($ret)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _FileInfoExtended($FolderOrFile)
    If Not FileExists($FolderOrFile) Then Return SetError(1)
    Local $objShell = ObjCreate("Shell.Application")
    Local $arrHeaders[34], $Type = 'F'
    If StringInStr(FileGetAttrib($FolderOrFile), 'D') Then
    Local $objFolder = $objShell.Namespace($FolderOrFile)
    $Type = 'D'
    Else
    Local $objFSO = ObjCreate("Scripting.FileSystemObject")
    Local $objFile = $objFSO.GetFile($FolderOrFile)
    Local $FileName = $objFSO.GetFileName($objFile)
    Local $objFolder = $objShell.Namespace($objFSO.GetParentFolderName($objFile))
    EndIf
    Local $arRet[1][34]
    For $i = 0 To 33
    $arrHeaders[$i] = $objFolder.GetDetailsOf($objFolder.Items, $i)
    $arRet[0][$i] = $arrHeaders[$i]
    Next
    For $strFileName In $objFolder.Items
    If $Type = 'F' And $objFolder.GetDetailsOf($strFileName, 0) <> $FileName Then ContinueLoop
    ReDim $arRet[UBound($arRet) + 1][34]
    For $i = 0 To 33
    $arRet[UBound($arRet) - 1][$i] = $objFolder.GetDetailsOf($strFileName, $i)
    Next
    Next
    Return $arRet
    EndFunc ;==>_FileInfoExtended

    [/autoit]