Demo-Projekt zu TMyThreads Ping

[CReber]

Lange, wirklich lange habe ich nach einem Demo-Projekt für TMyThreads gesucht. Nach einer mehrstündigen Such- / Lese- / Verstehaktion habe ich von Luckie etwas brauchbares entdeckt.

Ich denke gerade für Anfänger ist eine Demo zum pingen von PCs sehr praktisch, da gerade dort die meisten in den Kontakt mit Threads kommen. Ich habe Luckies Demo ein wenig umgeschrieben und statt dem hochzählen ein Ping eingebaut. Ich hatte selber wenig bis gar keine Ahnung, wie man Threads verwendet, aber dafür wusste ich wie sie funktionieren.



Im Namen der Verzweifelten ;)


PS: Wie man die maximale Anzahl an Threads handelt, weiß ich aber auch noch nicht ;)

[CReber]

Nun habe ich ein Problem. Bei einer geringen Anzahl an Threads funktioniert alles problemlos aber sobald die Anzahl ein wenig zunimmt, beenden die Threads nicht richtig.

Woran kann das liegen und was kann man dagegen machen??

Delphi-Quellcode:

procedure TForm1.btnStartThreadsClick(Sender: TObject);
  var i : Integer;
begin
  // Evtl. Threads stoppen
  if length(ThreadArray) > 0 then
    for i := 0 to length(ThreadArray) - 1 do
      ThreadArray[i].Terminate;

  Listview1.Clear;
  SetLength(ThreadArray,5);
  for i := 0 to length(ThreadArray) - 1 do begin
    with Listview1.Items.Add do
      Caption := '..loading';

    // 1. Thread erstellen (Pausiert)
    // 2. ListView Index übergeben
    // 3. Priorität übergeben
    // 4. Automatische Speicherfreigabe aktivieren
    // 5. Erstellten Thread starten

    ThreadArray[i] := TMyThreads.Create(True);
    ThreadArray[i].FIndex := i;
    ThreadArray[i].FIPValue1 := 192;
    ThreadArray[i].FIPValue2 := 168;
    ThreadArray[i].FIPValue3 := 0;
    ThreadArray[i].FIPValue4 := i+1;
    ThreadArray[i].Priority := tpIdle;
    ThreadArray[i].FreeOnTerminate := True;
    ThreadArray[i].Resume;
  end;
end;

// Ich nehme mal an das hängt damit zusammen, dass man nicht gleichzeitig soviele Pings machen kann...

[CReber]

*schieb


Es ist echt wichtig für mich ! Ich möchte nur gerne wissen wie ich eine Maximal Anzahl der gleichzeitigen Threads angebe... Danke


// Tut mir leid ich hab den Fehler selber gefunden. Könnte mich treten für meine Dummheit. 260 IPs testen und eine Byte Variable verwende *dong