Få et billedets højde og bredde

Jeg går ud fra, at du, hvis der skal laves thumbs, indlæser billederne i hukommelsen. Dette kan fx gøres således:

Dim b As New Bitmap("C:\billede.jpg")
'Benyt Height og Width egenskaber på Bitmap klassen:
Messagebox.Show("Størrelse: " & b.Height & " x " & b.Width)

Jeg vil prøve det i morgen, men skal jeg så på en eller anden måde ikke clear hukommelsen igen?

Jo, det er en god idé:

b.Dispose()

Har du fået det til at virke?

cmau?

Har først haft lidt tid igen nu, men kan ikke rigtig få det til at virke, det meste der har med mit billede at gøre. Jeg prøver lige i dag og så melder jeg tilbage.

Jeg har problemer.

Men det har noget at gøre med hvordan jeg laver mine billeder.

Jeg har nedenstående kode, som fint resizer et billede til 200x200
        Dim b As New Bitmap("C:\billede.jpg")
        Dim newImg As Image = New Bitmap(200, 200)
        Dim g As Graphics = Graphics.FromImage(newImg)
        g.DrawImage(b, 0, 0, 200, 200)
        newImg.Save("c:\test.jpg")

Hvis jeg så fletter det sammen med min funktion, som står her under, får jeg følgende fejl:
www.dury.dk/rod/fejl.JPG

Koden:
    Function CreateImage(ByVal image, ByVal newheight, ByVal newwidth, ByVal newname, ByVal algorithm)
        Dim finalheight As Integer
        Dim finalwidth As Integer
        sti = address & "\" & image
        Dim b As New Bitmap(sti)
        Dim newImg As Image = New Bitmap(b.Width, b.Height)
        Dim g As Graphics = Graphics.FromImage(newImg)
        My.Computer.FileSystem.CreateDirectory(DestDir.Text)
        If algorithm = "Ingen størrelsesændring" Then
            newwidth = newImg.Width
            newheight = newImg.Height
        ElseIf algorithm = "Bedste tilpasning" Then
            finalheight = newheight
            finalwidth = Math.Round((finalheight / (newImg.Height / newImg.Width)))
            If finalwidth > newwidth Then
                finalwidth = newwidth
                finalheight = Math.Round((finalwidth / (newImg.Width / newImg.Height)))
            End If
            MsgBox("Width: " & finalwidth & vbNewLine & "Height: " & finalheight)
        End If
        If Not algorithm = "Ingen størrelsesændring" Then
            g.DrawImage(b, 0, 0, newheight, newwidth)
        End If
        'If namechange.Text = "Med tal" Then
        '    newname = imagenames
        'End If
        newImg.Save(DestDir.Text & "\" & newname)
        b.Dispose()
        g.Dispose()
        newImg.Dispose()
        Return True
    End Function

Hov fandt en del fejl :D.. nu dur det. Men hvordan ville jeg kunne tjekke om den bruger dispose()=

Du kan prøve at åbne din task manager (ctrl+shift+escape), kigge på fanebladet "Processes" og indlæse et stort billede i programmet. Du vil kunne se en stigning i mængden af memory, som det optager. Når Dispose kaldes, skulle der ligeledes gerne frigives en del memory. Men .NET frameworket klarer som oftest denne oprydning på egen hånd, så jeg tror du vil opdage, at det slet ikke er nødvendigt for dig at kalde Dispose i dette tilfælde. Dog er det meget god praksis at gøre det under alle omstændigheder.

yes det virkede. Smider du svar.

Yep :)