Image-Array wie behandeln?

drschef · 16. Februar 2015, 19:28

Zwischen dem primären Aufbau des Array und des List... für Images dürfte kein großer Unterschied sein. Beide werden vermutlich über eine Tabelle von Adressverweisen realisiert. Diese Adressverweise zeigen auf die eigentlichen Objekte. Wie sollte es auch anders sein. Der Unterschied beginnt bei den Erweiterungen. Möglicherweise erstreckt er sich auch auf die Behandlung von Löschungen.

Es scheint kein Speicherproblem zu sein, ein Array in folgendem Sinne zu intialisieren:

Dim IMG(5000) as Image

Damit lassen sich auch große Verzeichnisse bedienen und die oben erwähnte Tabelle von Adressen hat im 32-Bit-Adressraum eine Größe von 20.000 Byte. Man könnte also problemlos auch noch größer dimensionieren und dieses Array für unterschiedliche Inhalte und Mengen immer wieder verwenden. Das Problem liegt bei den Images selbst. Da kann nicht einfach ein Image auf den Platz des anderen geschoben werden. Jedes Image braucht einen separaten Speicherbereich. Deshalb muss bei nicht mehr benötigten Array-Images zwingend eine Freigabe stattfinden und wenn man sich nicht auf das System verlassen will und auch nicht weiß, wie das System damit umgeht, dann eben explizit.

Mich hätte eher die Frage interessiert, ob die Freigabe gleich in Verbindung mit bestimmten Befehlen passiert , wie etwa

Redim IMG(ANZ-1) oder
IMG.clear(...) oder
IMG(i) = Nothing oder
IMG(i) = IMGNeu

auf die es aber scheinbar keine sichere Antwort gibt. Hinweis: Ich rede stets von unabhängigen Images, die Ergebnis einer Function sind.

jvbsl · 16. Februar 2015, 19:47

Wie gesagt Intern hat eine List(Of ) ein Array, der Unterschied besteht hauptsächlch darin, wann dieses vergrößert/verkleinert wird. Arrays zu verwenden ergibt nur noch Sinn, wenn man genau weiß, welche Größe es haben wird und diese sich nicht ändert.

Die Erstellung eines solch großen Arrays ist natürlich möglich, da dieses erstmal leer ist und noch gar keine Instanzen enthält.
Der Weg einfach ein riesen Array zu erzeugen(hoffen das es groß genug ist) ist der Weg, den man mit C ging(selbst dort hat man bereits arten von Listen implementiert) und in VB6 eben mit Redim. Aber warum selbst noch einmal machen, wenn es das bereits gibt. Relativ Speicher und Geschwindigkeitseffizient.

Redim lassen wir einfach mal ganz außen vor, bitte einfach nicht mehr verwenden.
IMG.Clear(), wenn du eine List(Of) hast, wird die Referenzen auf die Images überschreiben, sobald du dort wieder Dinge reinschiebst. Wenn nun keine Referenz mehr auf die alten Images vorhanden ist wird sich der GC irgendwann darum kümmern, wann das ist kann man nicht vorhersehen.
IMG(i) = Nothing damit entfernst du ebenfalls die Referenz, wann das Objekt aber gelöscht wird ist wieder dem GC überlassen
IMG(i) = IMGNeu und hier wiederum ebenso.

Also wenn du explizit weißt, wann eine Instanz nicht mehr gebraucht wird, kannst du diese einfach mit IMG(i).Dispose entfernen, dann brauchst du dir keine Sorgen darum zu machen, dass der GC dies sonst wann macht/die Thumbnails solange nicht Zugreifbar sind...

Aber für die Allgemeine Frage: Ja die Instanzen werden irgendwann gelöscht, es ist kein MemoryLeak vorhanden.

drschef · 17. Februar 2015, 10:04

Es hat sich folgende Herangehensweise auf der Basis von Array ergeben:

VB.NET-Quellcode

Public IMG(5000) As Image
GC.Collect 'Bei Verzeichniswechsel
If Not IMG(i) Is Nothing Then 'Befüllung
IMG(i).Dispose()
IMG(i) = Nothing
End If
IMG(i) = GetThumb(IMGFls(i).FullName)

Das Array wird immer bis zur Anzahl der Images befüllt. Kein Redim erforderlich. Ich denke, das wars. Demnächst zur Umgewöhnung mit List of. Wird kein großer Unterschied.

Danke an alle.

RodFromGermany · 17. Februar 2015, 10:34

drschef schrieb:

Umgewöhnung mit List of

kannst Du schlagartig machen, da die Zugriffe mit denen vom Array gleich sind.

drschef schrieb:

VB.NET-Quellcode

If Not IMG(i) Is Nothing Then 'Befüllung

machst Du

VB.NET-Quellcode

If IMG(i) IsNot Nothing Then 'Befüllung

Schamash · 17. Februar 2015, 10:37

@RodFromGermany nur interessehalber, warum?
Ich sehe nur einen Unterschied und das ist ein Leerzeichen das ich mir spare zu tippen.

Gibt es "im Hintergrund" noch andere Schwerwiegendere Unterschiede?

ErfinderDesRades · 17. Februar 2015, 10:39

IsNot ist leichter aufzufassen.

Schamash · 17. Februar 2015, 10:47

ErfinderDesRades schrieb:

ist leichter aufzufassen.

Joah, sonst gibt es keinen Hintegrund?

ErfinderDesRades · 17. Februar 2015, 10:52

nö.

aber das ist auch genug. Also so in einfachen Bedingungen merkt man das noch nicht so deutlich, aber bei komplexeren logischen Verknüpfungen ist man dankbar für alles, was einen Ausdruck vereinfacht.

RodFromGermany · 17. Februar 2015, 10:56

Schamash schrieb:

Hintegrund

Den IsNot-Operator hat sich Microsoft patentieren lassen.

~blaze~ · 17. Februar 2015, 12:32

GC.Collect solltest du übrigens nicht aufrufen.

Das diente nur dazu, die Freigabe von Ressourcen zu erzwingen. Ich würde für dein Problem auch eine List(Of Image) verwenden, übrigens.

Als Hintergrundinfo: Array.Resize kann statt Redim Preserve verwendet werden, eine Neuinstanzierung für Redim.

Viele Grüße
~blaze~

ErfinderDesRades · 17. Februar 2015, 12:54

Und wenn du eine ganze Methode posten könntest, mit Anfang und Ende - dann könnte man auch ganz praktische Verbesserungsvorschläge machen.
So, mit diesem Sammelsurium von Code-Zeilen - da kann man nur so allgemeine (und kaum verständliche) Hinweise geben.

drschef · 17. Februar 2015, 17:59

Ich habe von den Hinweisen einiges verwerten können und auch wieder einen Motivationsschub bekommen. Das heißt, ich kann eigentlich das Ergebnis beiseite legen.

Und wenn du eine ganze Methode posten könntest

Danke für das Hilfsangebot. Leider gibt es keine in sich abgegrenzte Methode. Ich habe mir die sehr komplexe Quelle daraufhin angesehen, was man herauslösen könnte. Aber es dürfte sehr mühselig werden, aus den 2000 Zeilen etwas zu separieren, wenn es nicht klar ist, wonach. Die Image-Geschichte dient dazu, gedruckte Fotoarchive bis hin zu Einzeldruck von Fotos mit einer großen Zahl von Steuer-Parametern zu erstellen. Da spielt die mehrseitige Drucksteuerung hinein, der Hintergrundprozeß für die Aufbereitung der Images, eine Menge Registry-Handling und die ganze GDI+-Geschichte für die stark parametrisierte Layout-Gestaltung. Ein Download der Lösung findet sich hier unter der Bezeichnung 'DruckFotoArchiv'.

jvbsl · 17. Februar 2015, 18:24

da sollte man sich womöglich eine neue Architektur überlegen

Denn große Projekte haben meist nicht viele Zeilen, sondern viel mehr viele Dateien(zumindest bei Hochsprachen).

ErfinderDesRades · 17. Februar 2015, 19:54

drschef schrieb:

Leider gibt es keine in sich abgegrenzte Methode.

Na, dann fang mal an damit - du lieber Himmel!

Schreib eine Methode BeiVerzeichniswechsel(), und mach dir Gedanken, wie du ihr ein Bild-Array und das Verzeichnis übergibst.

Vlt. auch Grundlagen: Fachbegriffe hilfreich, was genau eine Methode ist, der man was übergibt.

drschef · 18. Februar 2015, 12:51

da sollte man sich womöglich eine neue Architektur überlegen

Na, dann fang mal an damit - du lieber Himmel!

Sorry, ich wollte ausdrücken, dass da viele Dinge ineinandergreifen. Natürlich gibt es eine Architektur und eine Strukturierung. Natürlich gibt es Funktionen und Event-Prozeduren, z.B. die folgende. Dazu ein paar Bilder von der Oberfläche 2 für Bildübersicht und 2 für Fotodruck.

VB.NET-Quellcode

Public Sub PageGraphic()
Dim HColl, WColl As Integer 'Höhe/Breite Kollektion in Pixel
Dim SColl, ZColl As Integer 'Anzahl Zeilen/Spalten Kollektion
Dim z, s, l As Integer 'Indizes für Zeile, Spalte und laufendes Bild
Dim px, py As Integer 'Zielrechteck für Fingerabdruck
Dim zx, zy As Integer 'Eckpunkte der Zelle für die Markierung
Dim ax, ay As Integer 'Versatz für Druckgrafik
Dim bx, by As Integer 'Versatz für Zellmatrix im Druckbereich
Dim wdh As Integer = 200 'Vergebliche Versuche
Dim fname As String = "" 'Dateiname für einzelne Fotodatei
Dim fn As String = "" 'Dateiname für einzelne Fotodatei ohne Endung
Dim pagefile As String = "" 'Dateiname für Seitenausgabe als jpg
Dim G As Graphics = Nothing 'Hauptgrafik
'Seitenstatus
ASN += 1
If ASNMax < ASN Then
ASNMax = ASN
vorwärts = True
Else
vorwärts = False
End If
'Globale Einstellungen
WriteProt("Druckseite " & ASN & "/" & ZSeiten.Text & " wird aufgebaut", , "B")
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
WZellePX = CInt(BreitePx.Text) + 2 * CInt(RandPx.Text)
HZellePX = CInt(HöhePx.Text) + 2 * CInt(RandPx.Text)
WZelleMM = CDbl(WZellePX / dpmm)
HZelleMM = CDbl(HZellePX / dpmm)
WPic = CInt(BreitePx.Text)
HPic = CInt(HöhePx.Text)
SColl = CInt(ZSpalten.Text)
ZColl = CInt(Math.Ceiling(CDbl(ANZ) / CDbl(SColl)))
WColl = CInt(dpmm * CDbl(Druckbreite.Text)) 'Abmessungen der Kollektion
HColl = CInt(dpmm * CDbl(Druckhöhe.Text))
AnzProS = CInt(ZSpalten.Text) * CInt(ZProS.Text)
BNR = AnzProS * (ASN - 1)
PenSM = New Pen(FarbeSM, StärkeSM) 'Für Schnittmarken
NW = BNR + 1 : NWO = 0
WorkerSleep = False
Try
If Not Drucken Then
'Bei Vorschau Druckgrafik + Seitenrand
CollImage = New Bitmap(WColl + CInt(MarginsLeft * dpmm) + CInt(MarginsRight * dpmm), HColl + CInt(MarginsTop * dpmm) + CInt(MarginsBottom * dpmm))
ax = CInt(MarginsLeft * dpmm)
ay = CInt(MarginsTop * dpmm)
Else
'Bei Druck wird Seitenrand autopmatisch erzeugt
CollImage = New Bitmap(WColl, HColl) 'Reine Druckgrafik
ax = 0
ay = 0
End If
'Verschiebung mittig innerhalb Druckbereich
bx = CInt(0.5 * dpmm * (CDbl(Druckbreite.Text) - CDbl(Grafikbreite.Text)))
by = CInt(0.5 * (dpmm * CDbl(Druckhöhe.Text) - CDbl(ZProS.Text) * HZellePX))
G = Graphics.FromImage(CollImage)
G.PageUnit = GraphicsUnit.Pixel
Catch err As Exception
Kom = "Grafikfehler bei Positionierung" & vbCrLf & err.Message
WriteProt(Kom, , "R")
End Try
Try
'Hintergrund-Rechteck Seite
Dim rectpg As New Rectangle(0, 0, CollImage.Width, CollImage.Height)
G.FillRectangle(Brushes.White, rectpg)
'Rechteck Druckbereich
Dim rectdb As Rectangle = New Rectangle(ax, ay, WColl, HColl)
If Simulieren = "J" Then
Dim BrushHS As New SolidBrush(FarbeHS)
G.FillRectangle(BrushHS, rectdb)
Else
Dim BrushHG As New SolidBrush(FarbeHG)
G.FillRectangle(BrushHG, rectdb)
End If
'Schwarzer Rand außer beim Druck
If Not Drucken Then
Dim p As Pen = New Pen(Brushes.Black, 5)
G.DrawRectangle(p, rectdb)
End If
Catch err As Exception
Kom = "Grafikfehler bei Erzeugung des Hintergrunds" & vbCrLf & err.Message
WriteProt(Kom, , "R")
End Try
'Reduziertes Zielrechteck, alles in Pixel
z = 1 : s = 0 : l = BNR
For i = 1 To AnzProS
s += 1
If s > SColl Then
s = 1
z += 1
End If
l += 1
If Simulieren = "J" And l <= ANZ Then 'Simulation
Try
If l <= ANZ Then
px = CInt(ax + bx + WZellePX * (s - 1) + RandPx.Value)
py = CInt(ay + by + HZellePX * (z - 1) + RandPx.Value)
Dim BrushSB As New SolidBrush(FarbeSB)
Dim rred As New Rectangle(px, py, WPic, HPic)
G.FillRectangle(BrushSB, rred)
End If
Catch err As Exception
Kom = "Grafikfehler bei simuliertem Bild z/s " & z & " / " & s & vbCrLf & err.Message
WriteProt(Kom, , "R")
End Try
End If
If Schnittmarken = "J" And l <= ANZ Then 'Schnittmarken zeichnen
Try
If l <= ANZ Then
'LO => Rechts + Unten
zx = CInt(ax + bx + WZellePX * (s - 1))
zy = CInt(ay + by + HZellePX * (z - 1))
G.DrawLine(PenSM, zx, zy, zx + LM, zy)
G.DrawLine(PenSM, zx, zy, zx, zy + LM)
'RO => Links + Unten
zx = CInt(CDbl(ax) + CDbl(bx) + CDbl(s) * WZellePX)
zy = CInt(CDbl(ay) + CDbl(by) + CDbl(z - 1) * HZellePX)
G.DrawLine(PenSM, zx, zy, zx - LM, zy)
G.DrawLine(PenSM, zx, zy, zx, zy + LM)
'LU => Rechts + Oben
zx = CInt(CDbl(ax) + CDbl(bx) + CDbl(s - 1) * WZellePX)
zy = CInt(CDbl(ay) + CDbl(by) + CDbl(z) * HZellePX)
G.DrawLine(PenSM, zx, zy, zx + LM, zy)
G.DrawLine(PenSM, zx, zy, zx, zy - LM)
'RU => Links + Oben
zx = CInt(CDbl(ax) + CDbl(bx) + CDbl(s) * WZellePX)
zy = CInt(CDbl(ay) + CDbl(by) + CDbl(z) * HZellePX)
G.DrawLine(PenSM, zx, zy, zx - LM, zy)
G.DrawLine(PenSM, zx, zy, zx, zy - LM)
End If
Catch err As Exception
Kom = "Grafikfehler bei Schnittmarken z/s " & z & " / " & s & vbCrLf & err.Message
WriteProt(Kom, , "R")
End Try
End If
If ZellenNumerieren = "J" Then 'Laufende Nummern einschreiben
Try
'Zur größengerechten Positionierung
Dim txtFont As New Font("Arial", 48)
Dim tSize As SizeF = G.MeasureString(l.ToString, txtFont)
Dim txtw As Double = tSize.Width
Dim txth As Double = tSize.Height
'Numerierung schreiben
Dim xs As Single = CSng(ax + bx + WZellePX * (s - 1) + 0.5 * (WZellePX - txtw))
Dim ys As Single = CSng(ay + by + HZellePX * (z - 1) + 0.5 * (HZellePX - txth))
Dim txtPoint As New PointF(xs, ys)
Dim txtBrush As New SolidBrush(FarbeTX)
G.DrawString(CStr(l), txtFont, txtBrush, txtPoint)
Catch err As Exception
Kom = "Grafikfehler bei Nummern schreiben z/s " & z & " / " & s & vbCrLf & err.Message
WriteProt(Kom, , "R")
End Try
End If
If NameSchreiben = "J" And l <= ANZ Then 'Bildname eintragen
Try
Dim tg As Integer = 16
If NameGröße = "K" Then tg = 16
If NameGröße = "M" Then tg = 20
If NameGröße = "G" Then tg = 24
Dim txtFont As New Font("Arial", tg)
fname = IMGFls(l - 1).ToString
fn = System.IO.Path.GetFileNameWithoutExtension(fname)
Dim tSize As SizeF = G.MeasureString(fn, txtFont)
Dim txtw As Double = tSize.Width
Dim txth As Double = tSize.Height
Dim q As Double = CInt(BreitePx.Text) / txtw
If q < 1 Then
Dim zei As Integer = CInt(q * fn.Length) - 3
fn = "..." & fn.Substring(fn.Length - zei)
txtw = q * txtw
End If
Dim xs As Single = CInt(CDbl(ax) + CDbl(bx) + CDbl(s - 0.5) * WZellePX - 0.5 * txtw)
Dim ys As Single = CInt(CDbl(ay) + CDbl(by) + CDbl(z) * HZellePX - 0.5 * txth)
Dim txtPoint As New PointF(xs, ys)
Dim txtBrush As New SolidBrush(Color.Black)
G.DrawString(fn, txtFont, txtBrush, txtPoint)
Catch err As Exception
Kom = "Grafikfehler bei Text zu Bild " & fn & vbCrLf & err.Message
WriteProt(Kom, , "R")
End Try
End If
If Simulieren = "N" And l <= ANZ Then 'Einzelbilder einschreiben
Try
px = CInt(ax + bx + WZellePX * (s - 0.5) - 0.5 * WPic)
py = CInt(ay + by + HZellePX * (z - 0.5) - 0.5 * HPic)
Dim pt As New Point(px, py)
Dim ng As Integer = 0
ng = 0
For n = 1 To wdh
If IMG(l - 1) Is Nothing Then
ng += 1
Threading.Thread.Sleep(25)
Else
G.DrawImage(IMG(l - 1), pt)
Exit For
End If
Application.DoEvents()
Next
If ng < wdh Then
'WriteProt("Geladen Bild / ng = " & i + 1 & " / " & ng)
Else
WriteProt("Nicht geladen Bild / ng = " & i + 1 & " / " & ng, , "R")
End If
Catch err As Exception
Kom = "Grafikfehler bei Zeichnen von Bild " & fname & vbCrLf & err.Message
WriteProt(Kom, , "R")
End Try
End If
Next
Try
If LIZLEVEL = "H" Then
If vorwärts Then
If Not Drucken And DateiAusgeben = "J" Then
Dim zk As String = Now.ToString("yy/MM/dd/HH/mm/ss")
Dim spl As String() = Split(zk, ".")
Dim zk2 As String = Join(spl, "")
pagefile = AusgabePfad & "Koll" & zk2 & ".jpg"
CollImage.Save(zfile, ImageFormat.Jpeg)
WriteProt("Gespeichert als " & pagefile, , "G")
End If
End If
End If
G.Dispose()
Catch err As Exception
Kom = "Fehler bei der Ausgabe der Seitengrafik." & vbCrLf & _
"Überprüfen Sie Ihre Rechte für das Ausgabeverzeichnis" & CRLF & _
"der Seitengrafik und korrigieren Sie es gegebenenfalls."
WriteProt(Kom, 1, "R")
MessageBox.Show(Kom, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Me.Cursor = System.Windows.Forms.Cursors.Default
End Sub

nafets · 18. Februar 2015, 13:04

Ich bin gerade erst dazu gestoßen (jetzt ists wahrscheinlich schon zu spät), möchte aber noch die ImageList vorschlagen: Die ist hierfür geschaffen worden und nimmt dir eigentlich die ganze Arbeit ab: Du füllst deine Bilder in die ImageList (anstatt eines Arrays oder einer List) und disposed sie dann, wenn du die Bilder nicht mehr benötigst. Dabei werden auch alle Bilder mit-disposed.
Außerdem ist sie gut in WinForms integriert, die Nutzung ist also noch einfacher.

ErfinderDesRades · 18. Februar 2015, 13:07

Jo - miese Architektur. Vollkommen unklar ist, welche Aufgabe die Methode PageGraphic() hat. Was ist deren Aufgabe?

Und wo ist die Methode BeiVerzeichniswechsel(). Die unklare Aufgabe der Methode PageGraphic() kann ja nicht der Grund dafür sein, dasses keine Methode BeiVerzeichniswechsel() gibt,deren Aufgaben hoffentlich klar umrissen sein wird.

drschef · 18. Februar 2015, 17:58

Jo - miese Architektur

Schade, dann habe ich 40 Jahre in der Programmierung nur Mist gebaut. Du hast 10 % von dem Programm gesehen. Es ist nicht Aufgabe des Forums, eine ganze Programmstruktur zu hinterfragen, nachdem ich eine Frage zu einem Array gestellt hatte. Ich werde mich mal aus dem Thema auskoppeln.

Amro · 18. Februar 2015, 18:52

drschef schrieb:

40 Jahre in der Programmierung

Ich finde das sieht man

RodFromGermany · 18. Februar 2015, 18:59

drschef schrieb:

Es ist nicht Aufgabe des Forums, eine ganze Programmstruktur zu hinterfragen

Warum nicht?
Stell Deine Fragen so, dass daneben kein Raum bleibt für solche Ausschweifungen.

Image-Array wie behandeln?

VB.NET-Quellcode

drschef schrieb:

drschef schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

Schamash schrieb:

drschef schrieb:

VB.NET-Quellcode

drschef schrieb:

drschef schrieb:

Tags

Ähnliche Themen

10 Benutzer haben hier geschrieben