Local $p = "C:\Users\BugFix\Pictures\flowers24x24.png"
Local $fh = FileOpen($p, 16) ; $FO_BINARY (16)
Local $read = BinaryToString(FileRead($fh))
FileClose($fh)

; Datei enthält mit Sicherheit Chr(0)-Werte, die würden als Stringende interpretiert werden - also umwandeln
$read = StringReplace($read, Chr(0), '[NULL]')

; Vielleicht möchtest du CR und LF auch als Zeilenumbrüche anzeigen (Edit verlangt normal CRLF):
; dazu alle bereits vorhandenen CR, LF, CRLF in ein Ersatzzeichen umwandeln und dann dieses mit CRLF ersetzen
Local $tmp = '%%µµ%%'
$read = StringReplace(StringReplace(StringReplace($read, @CRLF, $tmp), @LF, $tmp), @CR, $tmp)
$read = StringReplace($read, $tmp, @CRLF)

GUICreate('Anzeigen BinaryToString', @DesktopWidth-90, @DesktopHeight-60)
GUISetFont(14, 400, Default, 'Courier New')
GUICtrlCreateButton('', -10, -10, 1, 1)    ; catch focus
GUICtrlCreateEdit($read, 10, 10, @DesktopWidth-100, @DesktopHeight-70, BitOR(0x0800,0x0040,0x0080,0x0004,0x00100000,0x00200000))
GUICtrlSetColor(-1, 0x00D02B)
GUICtrlSetBkColor(-1, 0x001D45)
GUISetState()

Do
Until GUIGetMsg() = -3

#include <EditConstants.au3>
#include <FileConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$sSource = "rot.bmp"
$iSize = FileGetSize($sSource)
$hFile = FileOpen($sSource, $FO_BINARY)
$dData = FileRead($hFile)
FileClose($hFile)
$iLen = BinaryLen($dData)
MsgBox(0, "", "Datenlänge: " & $iLen & @CRLF & "Dateilänge: " & $iSize)
_HexView($dData)

;~ $sDest = "anzeige.bmp"
;~ $hFile = FileOpen($sDest, $FO_OVERWRITE + $FO_BINARY)
;~ FileWrite($hFile, $dData)
;~ FileClose($hFile)

Func _HexView(ByRef $dData)
    Local Const $CRYPT_STRING_HEXASCIIADDR = 0x0000000B
    Local $hGui = GUICreate('HexView', 800, 600, -1, -1, BitOR($WS_POPUPWINDOW, $WS_CAPTION))
    GUISetBkColor(0xCCCCCC)
    GUICtrlCreateLabel('Offset', 10, 10, 100, 20)
    GUICtrlSetFont(-1, 12, 400, 0, 'Courier New', 5)
    For $i = 0 To 15
        GUICtrlCreateLabel(Hex($i, 2), 90 + $i * 30 + (($i > 7) * 10), 10, 20, 20)
        GUICtrlSetFont(-1, 12, 400, 0, 'Courier New', 5)
    Next
    GUICtrlCreateLabel('ASCII Chars', 600, 10, 190, 20)
    GUICtrlSetFont(-1, 12, 400, 0, 'Courier New', 5)
    Local $idHexView = GUICtrlCreateEdit('', 5, 30, 790, 560, BitOr($WS_VSCROLL, $ES_AUTOVSCROLL, $ES_READONLY))
    GUICtrlSetFont(-1, 12, 400, 0, 'Courier New', 5)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetLimit(-1, 2 ^ 32)
    GUISetState()
    GUICtrlSetData($idHexView, _WinAPI_CryptBinaryToString($dData, $CRYPT_STRING_HEXASCIIADDR))
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    GUIDelete($hGui)
EndFunc

; Author: Kleiner (www.autoit.de)
Func _WinAPI_CryptBinaryToString($vString, $Flag)
    Local $Struc = DllStructCreate('byte[' & BinaryLen($vString) & ']')
    DllStructSetData($Struc, 1, $vString)
    Local $Call = DllCall('crypt32.dll', 'int', 'CryptBinaryToString', _
            'ptr', DllStructGetPtr($Struc), _
            'dword', DllStructGetSize($Struc), _
            'dword', $Flag, _
            'ptr', 0, _
            'dword*', 0)

    If @error Or Not $Call[0] Then Return SetError(1, 0, '')

    Local $iSize = $Call[5]
    Local $Struc_1 = DllStructCreate('char[' & $iSize & ']')

    $Call = DllCall('crypt32.dll', 'int', 'CryptBinaryToString', _
            'ptr', DllStructGetPtr($Struc), _
            'dword', DllStructGetSize($Struc), _
            'dword', $Flag, _
            'ptr', DllStructGetPtr($Struc_1), _
            'dword*', $iSize)

    If @error Or Not $Call[0] Then Return SetError(2, 0, '')

    Return SetError(0, 0, DllStructGetData($Struc_1, 1))
EndFunc   ;==>_WinAPI_CryptBinaryToString

#include <Array.au3>
#include <WinAPIFiles.au3>
#include <WinAPIHObj.au3>
#include <WinAPIInternals.au3>


Global $sFilename = @ScriptDir & '\rot1.bmp'
Global $aPixel = _ReadPixel($sFilename)
_ArrayDisplay($aPixel)

Func _ReadPixel($sFilename)
    Local $tOffset = DllStructCreate('ulong offset')
    Local $tDim = DllStructCreate('ulong width; ulong height')
    Local $tBPP = DllStructCreate('ushort bpp')
    Local $nBytes, $iPad, $iPixelCount, $iBGR, $iOffset = 1
    Local $hFile = _WinAPI_CreateFile($sFilename, 2, 2) ; Datei zum lesen oeffnen
    If Not $hFile Then Return SetError(1)
    _WinAPI_SetFilePointer($hFile, 0x0A) ; 0x0A = Offset auf die Pixeldaten
    _WinAPI_ReadFile($hFile, $tOffset, 4, $nBytes) ; 4 Bytes aus der Datei lesen
    ConsoleWrite('Offset = ' & $tOffset.offset & @CRLF) ; nur zum debuggen
    _WinAPI_SetFilePointer($hFile, 0x12) ; 0x12 = Anfang von Width und Height
    _WinAPI_ReadFile($hFile, $tDim, 8, $nBytes) ; 8 Bytes aus der Datei lesen
    ConsoleWrite('Width = ' & $tDim.width & @CRLF) ; nur zum debuggen
    ConsoleWrite('Height = ' & $tDim.height & @CRLF) ; nur zum debuggen
    _WinAPI_SetFilePointer($hFile, 0x1C) ; 0x1C = Bits per Pixel
    _WinAPI_ReadFile($hFile, $tBPP, 2, $nBytes) ; 2 Bytes aus der Datei lesen
    ConsoleWrite('BPP = ' & $tBPP.bpp & @CRLF) ; nur zum debuggen
    $iPad = Ceiling($tDim.width * 3 / 4) * 4 - $tDim.width * 3 ; das Padding pro Scanzeile ausrechnen
    $iPixelCount = ($tBPP.bpp / 8) * $tDim.width * $tDim.height + $iPad * $tDim.height ; wie viele Pixel
    Local $tPixel = DllStructCreate('byte[' & $iPixelCount & ']') ; Struktur mit den Bytes erstellen
    _WinAPI_SetFilePointer($hFile, $tOffset.offset) ; Filepointer auf den Offset der Pixeldaten setzen
    _WinAPI_ReadFile($hFile, $tPixel, $iPixelCount, $nBytes) ; alle Pixeldaten einlesen
    _WinAPI_CloseHandle($hFile) ; Datei schliessen
    Local $aOut[$tDim.width * $tDim.height], $iCount = 0 ; Ausgabe-Array
    For $iY = 0 To $tDim.height - 1 ; Zeilen-Schleife
        For $iX = 0 To $tDim.width - 1 ; Spalten-Schleife
            $iBGR = 0
            For $i = 0 To 2 ; Schleife fuer B, G, R
                $iBGR = BitOR($iBGR, BitShift(DllStructGetData($tPixel, 1, $iOffset), -(16 - $i * 8)))
                $iOffset += 1
            Next
            ConsoleWrite('0x' & Hex($iBGR, 6) & ', ') ; nur zum debuggen
            $aOut[$iCount] = '0x' & Hex($iBGR, 6)
            $iCount += 1
        Next
        $iOffset += $iPad ; nach jeder Scanzeile werden Padding-Bytes eingefuegt (0-3)
        ConsoleWrite(@CRLF) ; nur zum debuggen
    Next
    Return $aOut
EndFunc