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
Größe von einem Bild lesen
-
- [ offen ]
-
93lucas -
15. April 2010 um 17:47 -
Geschlossen -
Erledigt
-
-
- Offizieller Beitrag
Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ScreenCapture.au3>_ScreenCapture_Capture(@MyDocumentsDir & "\GDIPlus_Image2.jpg", 0, 0, 796, 596)
[/autoit] [autoit][/autoit] [autoit]$Path = @MyDocumentsDir & "\GDIPlus_Image2.jpg" ;@ScriptFullPath ; @ScriptDir
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$ret = _FileInfoExtended($Path)
_ArrayDisplay($ret)Func _FileInfoExtended($FolderOrFile)
[/autoit]
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 -
Hallo 93lucas,
du kannst es auch mit
[autoit]_GDIPlus_ImageGetWidth
[/autoit]und
[autoit]_GDIPlus_ImageGetHeight machen, ein Beispiel findest du hier:
[/autoit][url]http://www.autoit.de/index.php?page…3405#post143405[/url
mfg (Auto)Bert