Access violation bei dynamischen Arrays

[Bjoerk]

Bei einem 32 Bit Bild bist du bei SetLength(FBild, 2^32). Da FBild eine Anzahl aufsummiert, muß dieses auch nicht vom Typ TColor sein. Und das ShowMessage(SL.GetText) durfte ungefair so groß werden wie deine Wohnzimmerwand.

[Neutral General]

Zitat von Bjoerk:

Bei einem 32 Bit Bild bist du bei SetLength(FBild, 2^32). Da FBild eine Anzahl aufsummiert, muß dieses auch nicht vom Typ TColor sein. Und das ShowMessage(SL.GetText) durfte ungefair so groß werden wie deine Wohnzimmerwand.

Ich bin mir insgesamt noch nicht 100%ig sicher was das alles bringen soll, aber SetLength(FBild, 2^32) ist Schwachsinn. Wenn schon, dann Länge*Breite*(SizeOf(TColor) = 4)

[Blup]

Da nur 24 Bit Farbtiefe unterstützt wird, sind es nur 16 Millionen Farben.
Das verkraftet der Speicher noch.

Delphi-Quellcode:

// in den Arrays werden keine Farben gespeichert sondern Summen je Farbe
FBild1, FBild2: array of Integer;
idx: Integer;

// FBild1 initialisieren
// BGR 3 Byte x 8 = 24 Bit = 16777216 verschiedene Summen
SetLength(FBild1, 2 shl 24);
// zufälligen Inhalt des Arrays mit 0 löschen
FillChar(FBild1[0], SizeOf(FBild1[0]) * Length(FBild1), #0);

// das ganze noch mal für FBild2


// Größe des Images nicht überschreiten !
for i1 := 0 to Image1.Picture.Height - 1 do
begin
  for i2 := 0 to Image1.Picture.Width - 1 do
  begin
    // nur einmal auf Pixels zugreifen = doppelte Geschwindigkeit
    idx := Image1.Picture.Bitmap.Canvas.Pixels[i1,i2];
    FBild1[idx] := FBild1[idx] + 1;
    //
    idx := Image2.Picture.Bitmap.Canvas.Pixels[i1,i2];
    FBild2[idx] := FBild2[idx] + 1;
  end;
end;

// Stringlisten mit Summen für 16 Millionen Farben füllen ;)

Bei einer Bildauflösung von 1024 * 768 können jetzt so bis ca. 700000 Zeilen im Dialog angezeigt werden ...

[guinnes]

Zitat von Neutral General:

Ich bin mir insgesamt noch nicht 100%ig sicher was das alles bringen soll, aber SetLength(FBild, 2^32) ist Schwachsinn. Wenn schon, dann Länge*Breite*(SizeOf(TColor) = 4)

Der TE möchte die Anzahl der Farben im Bild zählen, also muß das Array für jede mögliche Farbe einen Platz haben. Also 2^32 wäre schon richtig.
Darum habe ich auch zu 2 TLists geraten

[Destroyer446]

Erstmal Danke für die Antworten!

Ich probiere gerade die Möglichkeit von Blup aus ma gucken was draus wird
// Edit: Es hat funktioniert Ich schreib die Farben aber jetzt in eine Datei sons wirds echt zu viel xD

@Neutral General: Es soll bringen die Anzahl der Farben aus 2 Bildern iwo aufzuschreiben, danach sie zu vergleichen und danach auch bei kleinen unterschieden sie zu vergleichen.

MFG

[Bjoerk]

Zitat von Neutral General:

Zitat von Bjoerk:

Bei einem 32 Bit Bild bist du bei SetLength(FBild, 2^32). Da FBild eine Anzahl aufsummiert, muß dieses auch nicht vom Typ TColor sein. Und das ShowMessage(SL.GetText) durfte ungefair so groß werden wie deine Wohnzimmerwand.

Ich bin mir insgesamt noch nicht 100%ig sicher was das alles bringen soll, aber SetLength(FBild, 2^32) ist Schwachsinn. Wenn schon, dann Länge*Breite*(SizeOf(TColor) = 4)

Gut gebrüllt, Löwe. -> Siehe Guinness

[Destroyer446]

Gehört zwar nicht zum Thema aber: Wie kann ich alle fehlenden Pfade erstellen?
Z.b. so stelle ich es mir vor:

Delphi-Quellcode:

Pfad := 'C:\Testpfad1\Testpfad2\Testpfad3\Test.txt';
ErstellePfad(Pfad);

Und dass danach Testpfad1 - 3 erstellt sind.
Wie bekomme ich das hin?
Hier meine versuchs-Funktion:

Delphi-Quellcode:

procedure ErstellePfade(Pfad: String);
var
  StringArray  : TStringDynArray; // Eigentlich nur ein Array of String
  i1, i2       : Integer;
  S1           : String;
begin
  StringArray := Explode('\', Pfad);
  For i1 := 0 to Length(StringArray) - 1 do
  begin
   If i1 > 0 then
   begin
    S1 := 'C:';
    If i1 > 1 then
    For i2 := 1 to i1-1 do
    begin
     S1 := S1 + '\' + StringArray[i2];
     ShowMessage('Zwischenpfad: ' + S1);
    end
    else
    S1 := S1 + '\';
    For i2 := 1 to Length(StringArray) - 1 do
    begin
     If not DirectoryExists(S1 + StringArray[i2]) then
      CreateDir(S1 + StringArray[i2]);
     ShowMessage('Created: '+ S1 + StringArray[i2]);
    end;
   end;
  end;
end;

Da erstellt er mir aber nur unter C:\ die ganzen Ordner...
Wie mache ich das anders?
Achso, hier noch die Explode funktion:

Delphi-Quellcode:

function Explode(const Separator, S: string; Limit: Integer = 0):
  TStringDynArray;
var
  SepLen       : Integer;
  F, P         : PChar;
  ALen, Index  : Integer;
begin
  SetLength(Result, 0);
  if (S = '') or (Limit < 0) then
    Exit;
  if Separator = '' then
  begin
    SetLength(Result, 1);
    Result[0] := S;
    Exit;
  end;
  SepLen := Length(Separator);
  ALen := Limit;
  SetLength(Result, ALen);

  Index := 0;
  P := PChar(S);
  while P^ <> #0 do
  begin
    F := P;
    P := StrPos(P, PChar(Separator));
    if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then
      P := StrEnd(F);
    if Index >= ALen then
    begin
      Inc(ALen, 5); // mehrere auf einmal um schneller arbeiten zu können
      SetLength(Result, ALen);
    end;
    SetString(Result[Index], F, P - F);
    Inc(Index);
    if P^ <> #0 then
      Inc(P, SepLen);
  end;
  if Index < ALen then
    SetLength(Result, Index); // wirkliche Länge festlegen
end;

MFG

[p80286]

versuch es doch mal mit ForceDirectories

Gruß
K-H

[Destroyer446]

Danke für die schnelle Antwort
Hast du auch eine Idee, wie ich egal wie große Bilder vergleichen kann ohne sie anzuzgeigen?
momentan mach ich das so, dass ich sie in eine TImage-Kompo lade und da vgl...
Aber dass muss doch auch anders gehn?
Jetzt sagt er mir nämlich wieder Access violation wenn die Bilder zu groß sind also nicht aufs Image passen ...

[DeddyH]

Das hat jetzt aber nichts mehr mit dem ursprünglichen Thema zu tun, mach doch besser einen neuen Thread auf.