Große String-Liste out of Memory - Hilfe?

[Pogoner]

Guten Tag
Folgendes Problem: Der Code funktioniert einwandfrei, solange die Stringliste nicht zu groß wird. Das wird sie allerdings unweigerlich, daher meine Frage - wie kann ich das umgehen:

Kann sein, dass hier ein oder 2 'end' komisch sitzen, da ich eine Menge Kommentarcode grade der Übersichtlichkeit wegen gelöscht habe.
Das Programm soll eine Website auf nicht-verlinkte Unter-Seiten absuchen.
Mein Problem ist leider, dass bei 52 Zeichen und über 5 Stellen (ich glaube) der Cluster zu groß wird und ich selbst mit 8GB RAM out of Memory bekomme.
Jetzt will ich die ganzen Möglichkeiten aber eigentlich garnicht speichern, sondern es würde mir ja reichen, sie direkt mit dem Spider abzufragen - wenn ich allerdings npw nicht in Cluster oder Result abspeichere, funktioniert der Code nichtmehr... Wenn mir da jemand helfen könnte, der da mehr versteht als ich, wäre das sehr nett
Ich sitze schon seit Stunden dran und habs mit Freeandnil, Destroy/Create, Savetofile und Writeln versucht, um das zu umgehen, aber ich bekomms nicht hin
Wie kann ich diese ganzen Kombinationen erstellen lassen und direkt abgreifen, ohne dass eine riesige Stringlist entsteht?

Vielen Dank schonmal

Delphi-Quellcode:

function TForm1.bruteforce (astring: string;substr: string; startlen: integer; endlen: integer):LongInt;

var
spider: TSpider;
i,n,x,y, z : integer;
npw, Zeile: string;
Txtdatei: Textfile;

label step1;

begin

Hlplst.Clear;
Cluster.Clear;
Results.Clear;

y:= 0;

spider := TSpider.Create(Self);

urls := 'www.Testwebsite.com/' ;

For x:= 1 to length(substr) do
  begin
    Hlplst.Add(substr[x]);
  end;

step1:

        for i := 0 to hlplst.Count -1 do begin
                for n := 1 to length(astring) do begin

                npw := hlplst.Strings[i]+astring[n];

               Cluster.Add(npw);                                    
              

                if length(npw) >= startlen then
                begin                                             
                Results.Add(npw);                                 
            
        // Hier beginnt nur der Spider
                        urlk := urls + npw       ;
                        spider.Initialize(urlk);
                        spider.CrawlNext();

                  
                         Edit1.Text := Spider.LastUrl;
                         Edit2.Text := Spider.LastHtmlTitle;

                                If Edit2.Text = 'Vorhanden' then
                                begin
                                        Memo4.Lines.Add (Edit1.Text);
                                end;
                                                
          // Hier endet er


                end;
        end;
        HlpLst.Clear             ;                          
        hlplst.AddStrings(Cluster);                          
        Cluster.Clear      ;                                   
   

        if length(npw) + 1 <= endlen then goto step1;                                  
        hlplst.Clear;
     end;
        result := 0;
        Label1.Visible := False;
       
         


        end;

  end;

[Popov]

Also 8MB sollten nicht die Grenze sein. In Grunde sollte das locker bis paar GB gehen. Es kann sein, dass du einfach nicht mehr ausreichen zusammenhängenden Speicher hast.

TStrings besitzt die Eigenschaft Capacity. Normalerweise muss man sich um die nicht kümmern, die wird bei Bedarf automatisch erhöht. Man kann den Wert aber auch manuell setzten wenn man in etwa weiß wie viele Einträge kommen. Bei dir wären das die Menge length(substr) als Wert. Also vorher die Zahl ermitteln, noch 10% als Reserve dazugeben und gleich zu Beginn Capacity mit dem Wert setzten. Entweder kommt dann die Fehlermeldung an der Stelle oder es gibt keine Überraschungen mehr.

[Dalai]

Ich empfehle dringend, das Label rauszuschmeißen und stattdessen eine rekursiv arbeitende Funktion aufzubauen! Goto ist böse. Davon abgesehen wird spider nirgendwo ersichtlich freigegeben. Das Problem ist IMO keineswegs eine zu große Stringliste sondern ein falsches Konzept. Mir ist durchaus bewusst, dass Menschen Schwierigkeiten haben, rekursiv zu denken (ebenso wie exponentiell), aber der Aufwand lohnt sich.

Ergänzung: Alternativ, wenn die Rekursion unnötig oder ungeeignet ist, bietet sich vielleicht eine for- oder while-Schleife an, deren Durchlauf man mit Continue überspringen kann.

MfG Dalai

[Popov]

Diese Schleife

Delphi-Quellcode:

  step1:

  //..

  if length(npw) + 1 <= endlen then goto step1;

kann man auch so lösen

Delphi-Quellcode:

  repeat

  //..

  until (length(npw) + 1) > endlen;

Die repeat Schleife wird so lange wiederholt, bis (length(npw) + 1) > endlen ist.

Nebeinbei. U. U. kann das missverstanden werden: if length(npw) + 1 <= endlen . Hier prüft Delphi endlen evtl. nur gegen die 1 .

[Pogoner]

Danke erstmal für die Antworten

Zitat von Popov:

Also 8MB sollten nicht die Grenze sein. In Grunde sollte das locker bis paar GB gehen. Es kann sein, dass du einfach nicht mehr ausreichen zusammenhängenden Speicher hast.

Da hast du dich verlesen, ich sprach von 8GB.

Danke für den Goto-Ersatz - ich hatte noch mit Goto programmieren gelernt und bin darin verhaftet^^

Aber mein Problem bleibt. Ich muss erneut darauf hinweisen, dass es die Stringlist (Bei unter 5 Stellen ~600MB RAM Bedarf funktioniert alles einwandfrei) ist. Ich errechne mit der Funktion unten bei 5 Stellen und 52 möglichen Zeichen 380204032 Strings - allein die Savetofile Textdatei zu öffnen braucht mindestens 10 Sekunden mit Notepad. Mehr Stellen erhöhen die Potenz. Ich bräuchte eine Möglichkeit, die Kombinationen, die in Results gespeichert werden bzw in Cluster direkt abzugreifen, um das Entstehen einer so großen Stringlist zu verhindern.

Danke erneut

€dit: Das Konzept funktioniert, ich habe den Spider mit Memofeldern getestet und die Results/Cluster-Stringlisten mit Savetofile ausgelesen. Es liegt an der riesigen Menge, die er berechnet. Wenn ich die StringLists per Freeandnil freigebe, ist mein RAM wieder völlig in Ordnung.

[Sir Rufo]

Es wäre auch hilfreich deine Delphi Version zu kennen (kannst du in deinem Profil eintragen) und ob du auch eine 64bit-Anwendung erzeugst, sonst kannst du auf deine 8GB Speicher eh nicht zählen

BTW: Das macht die Verarbeitung künstlich langsamer

Delphi-Quellcode:

                         Edit1.Text := Spider.LastUrl;
                         Edit2.Text := Spider.LastHtmlTitle;

und die Controls sollten auch nicht als Zwischenspeicher misbraucht werden

[Uwe Raabe]

Zitat von Pogoner:

Ich bräuchte eine Möglichkeit, die Kombinationen, die in Results gespeichert werden bzw in Cluster direkt abzugreifen, um das Entstehen einer so großen Stringlist zu verhindern.

In dem Fall wäre es vielleicht hilfreich, wenn du den prinzipiellen Ablauf z.B. in einem Flussdiagramm verdeutlichst. Dann kann man schneller sehen, wo man den Algorithmus abändern kann um den Speicherverbrauch zu reduzieren.

[Pogoner]

Wow ihr seid ja schnell
Ich benutze Delphi 6.
Mein System ist 32bit.

Allein schon, dass die Cluster-Stringlist bei 5 Stellen knapp 600MB verbraucht, und ich bis 10 Zeichen gehen muss (exponentiell steigend) macht die 8GB irrelevant...

Gefolgt bin ich diesem Tutorial hier, bei dem die Funktion besser erklärt ist, als ich es könnte: http://www.delphipraxis.net/attachme...delphi_131.pdf

Kurz gesagt:
_____a___b___c___d
aa| aaa aab aac aad
ab| aba abb abc abd
ac| aca acb acc acd
ad| ada adb adc add

Linke Spalte ist die Hlplst, die Kombinationen ist die Cluster-Stringlist
Aber ehrlichgesagt hab ich nicht verstanden, wo ich wann meine Cluster-Werte abgreifen kann und die Cluster-Liste wieder reseten kann, ohne dass sie wieder von vorne anfängt...

Die Edit-Felder mach ich raus und frage es direkt ab - guter Hinweis.

Danke nochmals^^