![]() |
AW: TThreadPool funktioniert nicht korrekt bei meinem Test
Zitat:
Delphi-Quellcode:
und setzt dann dort die Anzahl der Worker-Threads.
TThreadPool
In Aufrufe wie
Delphi-Quellcode:
oder
TTask.Run(..)
Delphi-Quellcode:
gibst du als zusätzlichen Parameter dann einfach noch deinen selbst erstellten Threadpool an, die Tasks/Futures laufen dann in diesem Threadpool, in welchem nie mehr als X Tasks gleichzeitig ausgeführt werden.
TTask.Future(..)
PS: Rein aus Interesse- Was schwebt dir denn als maximale Anzahl der gleichzeitig laufenden Threads vor? |
AW: TThreadPool funktioniert nicht korrekt bei meinem Test
Zitat:
Manchmal ist bei 8 schon Schluss, dann gibt es einen 429 (Too Many Requests) Fehler. Ich weiß noch nicht damit umzugehen. Die Threads möchte ich ja nur für die Internetabfrage nutzen, um parallele Abfragen zu machen. LG Mathias PS: die tasks haben ja eine fortlaufene ID. Ich habe bemerkt, dass diese nicht zurückgesetzt wird, wenn ein task beendet wurde. Somit erhöht sich die id bei einem weiteren Durchlauf.
Delphi-Quellcode:
Löscht die tasks leider auch nicht.
for var task in tasks do
task._Release; |
AW: TThreadPool funktioniert nicht korrekt bei meinem Test
Ich finde, das ist ein klassischer Anwendungsfall für
![]() Über den zurückgegeben TLoopResult kannst du prüfen, ob alles abgearbeitet ist. Wenn du einen eigenen ThreadPool übergibst, kannst du mit TThreadPool.SetMaxWorkerThreads die Anzahl gleichzeitig aktiver Tasks eingrenzen. |
AW: TThreadPool funktioniert nicht korrekt bei meinem Test
Ich kann Google verstehen, acht ist schon viel. Vom Gefühl her hätte ich den Threadpool auf 4-8 begrenzt. Weiterhin muss es nicht einzig an "zu vielen gleichzeitig" liegen, es könnte genauso gut sein, dass "zu viele Einträge pro Zeit" übertragen wurden.
Die Entscheidung, ab wann der Server sagt "Junge, nimm mal den Fuß vom Gas" liegt allein beim Anbieter (Google). Du könntest in deiner Anwendung entweder die fehlgeschlagenen ISBNs in einer neuen Liste sammeln mit der man es dann noch einmal versucht oder nur die erfolgreichen aus der "To Do"-Liste entfernen. Zitat:
|
AW: TThreadPool funktioniert nicht korrekt bei meinem Test
Zitat:
In System.Threading gibt es das nicht unter Delphi 10.4 |
AW: TThreadPool funktioniert nicht korrekt bei meinem Test
Zitat:
// EDIT: Es geht aber auch ohne...
Delphi-Quellcode:
var LoopResult := TParallel.For(1, 10,
procedure(i: Integer; State: TParallel.TLoopState) begin if i > 5 then State.Break; end); if LoopResult.Completed then ShowMessage('Durchgelaufen') else begin var BreakIndex: string := LoopResult.LowestBreakIteration; ShowMessage('Abgebrochen bei: ' + BreakIndex); end; |
AW: TThreadPool funktioniert nicht korrekt bei meinem Test
Hallo an euch alle.
Im Moment ist mir das einfach zu schwer, korrekt umzusetzen. Ich werde mir das für später aufheben und erst einmal zurück zur Einzelabfrage gehen, will heißen: Item für Item aus der ListBox. Damit umgehe ich auch "Too many Requests". Vielen lieben Dank für eure Hilfe! :-) LG Mathias |
AW: TThreadPool funktioniert nicht korrekt bei meinem Test
vielleicht auch mal eine ganz abwägige Idee?
mehrere ISBNs in einer Anfrage zusammenfassen und mit nur einem Aufruf abfragen. :stupid: |
AW: TThreadPool funktioniert nicht korrekt bei meinem Test
Zitat:
Wer behauptet, Programme zu parallelisieren sei einfach hat es ganz sicher selbst noch nicht verstanden. |
AW: TThreadPool funktioniert nicht korrekt bei meinem Test
Zitat:
Wenn man konsequent Funktionalität kapselt, so dass diese möglichst keine Abhängigkeiten hat, hat man es später einfacher damit. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:52 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz