Hi,
Danke für die Tipps. Inzwischen habe ich nahezu alle umgesetzt. Der Source sieht jetzt so aus:
Delphi-Quellcode:
TMyThread = class(TThread)
private
fIdHTTP: TIdHTTP;
i : integer;
web : string;
protected
procedure GetResult;
procedure execute; override;
public
end;
...
procedure tmythread.GetResult;
begin
web := UTF8ToWideString(web);
form1.ListView1.Items[i].SubItems.strings[4] := web;
end;
procedure TMyThread.Execute;
begin
i := x;
fIdHTTP := TIdHTTP.Create(nil);
web := fIdHTTP.get(form1.ListView1.Items[i].SubItems.Strings[4]);
Synchronize(GetResult);
end;
X und Web sind global definiert und dienen zur Übergabe.
Bei mehr als 10 Threads parallel kommt jetzt die Fehlermeldung "Socket Error #10060 Connection timed out".
Das hört sich jetzt nicht mehr nach einer
Access-Violation an.
Weiss jemand Rat?
Gruß, Andreas