AppTitle "bildvorschau"
Graphics 10,10,0,2
cl$=Replace(CommandLine(),Chr(34),"")
bild=LoadImage(cl)
xx=ImageWidth(bild)
yy=ImageHeight(bild)
EndGraphics
Graphics xx,yy,0,2
bild=LoadImage(cl)
DrawBlock bild,0,0
WaitKey()
End

AppTitle "Bildvorschau"
cl$=Replace(CommandLine(),Chr(34),"")
xx=GetImageSize(cl$,0) 
yy=GetImageSize(cl$,1) 
Graphics xx,yy,0,2
bild=LoadImage(cl)
DrawBlock bild,0,0
WaitKey()
End

#Funktion von Hectic
Function GetImageSize(FImage$,FAxis%) 
   FImage=Lower$(FImage) 
   Local IFile% 
   Local ISize% 
   Local IFileX%=-1 
   Local IFileY%=-1 
   Local ICode%=$C0 
   Local ICheck%=0 
   Local ICount% 
    
   If FileType(FImage)=1 Then 
      Select Right$(FImage,4) 
             
         Case ".bmp" 
            IFile=ReadFile(FImage) 
            SeekFile IFile,18 
            IFileX=ReadInt(IFile) 
            IFileY=ReadInt(IFile) 
            CloseFile IFile 
            ICheck=1 
             
         Case ".pcx" 
            IFile=ReadFile(FImage) 
            SeekFile IFile,8 
            IFileX=ReadShort(IFile)+1 
            IFileY=ReadShort(IFile)+1 
            CloseFile IFile 
            ICheck=1 
             
         Case ".tga" 
            IFile=ReadFile(FImage) 
            SeekFile IFile,12 
            IFileX=ReadShort(IFile) 
            IFileY=ReadShort(IFile) 
            CloseFile IFile 
            ICheck=1 
             
         Case ".png" 
            IFile=ReadFile(FImage) 
            SeekFile IFile,16 
            IFileX=(ReadByte(IFile)*$1000000)+(ReadByte(IFile)*$10000)+(ReadByte(IFile)*$100)+(ReadByte(IFile)*$1) 
            IFileY=(ReadByte(IFile)*$1000000)+(ReadByte(IFile)*$10000)+(ReadByte(IFile)*$100)+(ReadByte(IFile)*$1) 
            CloseFile IFile 
            ICheck=1 
             
         Case ".jpg" 
            IFile=ReadFile(FImage) 
            ISize=FileSize(FImage)-10 
            If ISize>65532 Then ISize=65532 
            SeekFile IFile,0 
            For ICount=0 To ISize 
               If ReadByte(IFile)=$FF Then 
                  If ReadByte(IFile)=$C2 Then ICode=$C2 
               End If 
            Next 
            SeekFile IFile,0 
            For ICount=0 To ISize 
               If ReadByte(IFile)=$FF Then 
                  If ReadByte(IFile)=ICode Then 
                     ReadByte(IFile) 
                     ReadByte(IFile) 
                     ReadByte(IFile) 
                     IFileY=(ReadByte(IFile)*$100)+(ReadByte(IFile)*$1) 
                     IFileX=(ReadByte(IFile)*$100)+(ReadByte(IFile)*$1) 
                  End If 
               End If 
            Next 
            CloseFile IFile 
            ICheck=1 
      End Select 
       
      ;Werteausgabe 
      If ICheck=1 Then 
         If FAxis=0 Then Return IFileX 
         If FAxis=1 Then Return IFileY 
      End If 
   End If 
    
   ;Fehlerausgabe 
   Return -1 
End Function