Hallo, ich habe hier ein kleines Testprogramm und finde den Fehler nicht, warum es immer zum Absturz kommt.
Aus einer ListBox werden die Items durchlaufen und per Internetabfrage ein JSON gelesen, welches ausgewertet wird.
Ich möchte die Abfrage gerne im mehreren Threads laufen lassen. Nach der Abfrage muss unbedingt gewartet werden, bis alle Threads fertig sind, damit ich das Array verarbiten kann.
Finet bitte jemand den/die Fehler?
Delphi-Quellcode:
try
Dummy_ThreadPool.
Default.QueueWorkItem(
procedure
begin
SearchGoogleSingleISBNTask(Dummy_ItemString, MyJSONArray[Dummy_Int], Dummy_Semaphore);
end);
except
on E:
Exception do
showmessage(E.
message);
end;
end;
Dummy_Semaphore.Acquire;