Image aus Datei extrahieren

VinceA

Hallo zusammen,

Ist es möglich mit autoit, Image aus einer fc2map Datei zu extrahieren ?

Ich kann die Datei hier nicht hochladen wegen ungültiger Dateiendung. ( .fc2map )

Die Map wurde mit dem Far Cry 2 Map Editor erstellt.

**alpines**

Du kannst die Datei aber zippen und wenn sie klein genug ist kannst du sie anschließend auch hochladen.

Du musst schauen wie das Format aufgebaut ist, wenn die Entwickler da keine Dokumentation angegeben haben ist das sehr schwierig Bilder zu extrahieren

VinceA

Danke für den Hinweis, konnte die Dateien so hochladen.

Ich habe mich vielleicht nicht richtig ausgedrückt, ich habe hier ein kleines Programm das zeigt in einer PictureBox von jeder Map die angeklickt wird ein Vorschaubild.
Zum Testen hab ich den FC2Maporganizer und eine Far Cry 2 Map hochgeladen. Das Programm ist in C# geschrieben. Hab den den Code mit Telerik JustDecompile und ILSpy angeschaut, leider versteh ich noch nicht viel C#, bin blutiger Anfänger, deshalb wollte ich wissen ob sowas auch mit Autoit machbar ist.

veronesi

Also in VB.NET sieht die gewünschte Funktion so aus:

Spoiler anzeigen

Code

Public Class MapOrganizer
    Dim MapFile As String = "C:\Temp\Graue Bastion_GiTM Djamboo.fc2map"
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        PicBox1.Image = ReadImage(MapFile)
    End Sub


    Private Function ReadImage(ByVal sFile As String) As Image
        Dim MyPicture As Image = Nothing
        Dim Offset As Integer = 0


        Using FileStream As FileStream = File.OpenRead(sFile)
            FileStream.Seek(28, SeekOrigin.Begin) 'Set pointer to initial position
            Offset = ReadInt32(FileStream) 'Creator
            FileStream.Seek(Offset, SeekOrigin.Current)
            FileStream.Seek(8, SeekOrigin.Current)
            Offset = ReadInt32(FileStream) 'Author
            FileStream.Seek(Offset, SeekOrigin.Current)
            Offset = ReadInt32(FileStream) 'Name
            FileStream.Seek(Offset, SeekOrigin.Current)
            FileStream.Seek(80, SeekOrigin.Current)
            ReadInt32(FileStream) 'MapSize
            FileStream.Seek(4, SeekOrigin.Current)
            ReadInt32(FileStream) 'GameMode


            Dim num As Integer = ReadInt32(FileStream)
            Dim num2 As Integer = ReadInt32(FileStream)
            Dim num3 As Integer = ReadInt32(FileStream)
            Dim num4 As Integer = ReadInt32(FileStream)
            Dim num5 As Integer = CInt(num * num2 * num3 * num4 / 8)
            If num5 > 0 Then
                Dim array As Byte() = New Byte(num5 - 1) {}
                FileStream.Read(array, 0, num5)
                Dim bitmap As Bitmap = New Bitmap(num, num2)
                Dim bitmapData As Imaging.BitmapData = bitmap.LockBits(New Rectangle(0, 0, bitmap.Width, bitmap.Height), Imaging.ImageLockMode.WriteOnly, Imaging.PixelFormat.Format32bppArgb)
                Marshal.Copy(array, 0, bitmapData.Scan0, num5)
                bitmap.UnlockBits(bitmapData)
                MyPicture = bitmap
            End If
        End Using


        Return MyPicture
    End Function


    Private Function ReadInt32(ByVal Stream As FileStream) As Integer
        Dim array As Byte() = New Byte(4 - 1) {}
        Stream.Read(array, 0, 4)
        Return BitConverter.ToInt32(array, 0)
    End Function
End Class

Alles anzeigen

Jetzt muss nur noch jemand diese Funktionen in AutoIt umsetzen!

Und der Beweis, dass es funktioniert ist gleich hier.
Ich habe die EXE aus VB.NET gleich hochgeladen.
Einfach starten - wenn ihr möchtet - und Load Map drücken. Danach wird die Karte dargestellt.

Ich habe die Exe selbst erstellt und weiss, dass sie keinen Virus enthält. Aber im Zweifel lieber einmal mehr prüfen, als einmal weniger.
Es ist der gleiche Code wie oben im Spoiler, ausser, dass ich beim Button Klick nun den Dateinamen abfrage.

Gruss Veronesi

**Andy**

schnell mal getippert...ist ja "nur" eine simple Bitmap, die in der Datei steckt. Lediglich zum Bestimmen der Parameter mussten einige Bytes gezählt werden. Hexeditor FTW!

Spoiler anzeigen

[autoit]

#include <WinAPI.au3>
#include <StructureConstants.au3>
#include <APIGdiConstants.au3>
#include <WindowsConstants.au3>