Threads und StringList

**IMPEGA**

Erstmal,
vielen Dank für deine Vorlage.
Leider, bin ich mit der Vorlage noch mehr überfordert. Wie gesagt, Coden ist nur ein Hobby von mir.
Ich wage mich zwar an neue Themen ran, jedoch ist mein Wissen nicht gerade professionell.
Dein Muster müsste ich wieder komplett abarbeiten, viel dazu lernen.
Bei meinem Code verstehe ich das Meiste. Ich weiß zwar nicht, wie man es wirklich korrekt umsetzen soll, verstehen den Code tue ich aber schon.
Das meiste davon habe ich mir nämlich selbst ausgedacht. (Natürlich, mit der freundlichen Unterstützung von Google, und viel Lesen)
Ich bin sehr dankbar für die Vorlage, muss aber auf dem Boden bleiben und in meinen Möglichkeiten eine Lösung suchen.
Wenn es erstmal funktioniert, kann ich versuchen mich weiter zu orientieren.
Dich einfach nur kopieren, ohne Sinn und Verstand, mag ich nicht, möchte es auch nicht.

Also, stelle ich erstmal weitere Fragen zu meinem Code.
1: Darf ich einfach zweite CriticalSection deklarieren ??
2: Wie kann ich das hier besser umsetzen (Idee mit Erklärung, oder kleiner Muster wäre super) Dec(Form1.ActiveThreads); Form1.UpdateLabelActiveThreads;
3: Die StringList erstelle ich nun im Thread, eine pro Job und lösche sie, wen fertig. Gibt es damit Ärger? oder darf ich es so machen?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TURLCheckerThread.Execute;

var

  FErgebnis : TstringList;               // --> Frage Nr. 3

  Url       : string;

  Http      : TIdHTTP;

begin

  Http := TIdHTTP.Create(nil);

    try

      while not Terminated and not FShouldStop^ do

        begin

          Url := '';

          FCS1.Acquire;                         // --> Frage Nr. 1

            try

              if FUrlList.Count > 0 then

                begin

                  Url := FUrlList[0];

                  FUrlList.Delete(0);

                end;

            finally

              FCS1.Release;                   // --> Frage Nr. 1

            end;

          if Url = '' then Break;

          Sleep(Random(2000)); {Hier kommt später meine Aufgabe}

          FErgebnis := TStringList.Create;                                       // --> Frage Nr. 3

            try

              try

    //          Http.Head(Url);

                FCS2.Acquire;                        // --> Frage Nr. 1

                  try

                    FErgebnis.Add('OK: ' + Url);    

                    FErgebnis.Add('Zweite Zeile');   

                    FErgebnis.Add('Dritte Zeile');   

                  finally

                    FCS2.Release;                   // --> Frage Nr. 1

                  end;

                UpdateStatus(FErgebnis);                                         // --> Frage Nr. 3

              except

                on E: Exception do

                  begin

                    FErgebnis.Add('FAIL: ' + Url + ' - ' + E.Message);

                    UpdateStatus(FErgebnis);

                  end;

              end;

            finally

              FreeAndNil(FErgebnis);                                             // --> Frage Nr. 3  

            end;

          TThread.Synchronize(nil, procedure

            begin

              Dec(Form1.IdleJobs);     // --> Frage Nr. 2

              Form1.UpdateLabelJobs;   // --> Frage Nr. 2

              Inc(Form1.JobsFinished);    // --> Frage Nr. 2

              Form1.UpdateLabelFinished;  // --> Frage Nr. 2 

            end);

        end;

    finally

      FreeAndNil(FErgebnis);

      FreeAndNil(Http);

      TThread.Synchronize(nil, procedure

        begin

          Dec(Form1.ActiveThreads);        // --> Frage Nr. 2

          Form1.UpdateLabelActiveThreads;  // --> Frage Nr. 2

        end);

    end;

end;

Falls ich damit kaum zum Erfolg kommen sollte, bitte auch aufklären warum, dann muss ich neuen Ansatz suchen.
Damit komme ich aber einigermaßen klar, also wäre es schon mein Favorit.
Auch wenns nicht perfekt ist.

.

Threads und StringList

AW: Threads und StringList

Forumregeln