Zitat von
Mavarik:
Du hast also eine
Unit geschrieben, die eigene Threads erzeugt?
Ja ich habe eine
Unit geschrieben. Was verstehst du unter "eigene Threads erzeugen"? Natürlich nutzt AsynCalls Threads. Denn ansonsten würde die Asynchronität nicht funktionieren.
Zitat:
Kannst Du nochmal erklären, wofür und was das bringen soll?
Wenn man z.B. zwei Dateien downloaden und verarbeiten will kann man das wie folgt lösen:
Delphi-Quellcode:
DownloadFile('http://sonstwo.de/file1.html', Stream);
Verarbeite(Stream);
DownloadFile('http://sonstwo.de/file2.html', Stream2);
Verarbeite(Stream2);
Da das Netzwerk aber nicht besonders schnell ist, verbringt man eine ganze Menge an Zeit untätig wenn der erste Download ewig dauert, wobei der zweite recht schnell ist.
Mit AsyncCalls kann man das z.B so schreiben (wobei das sicherlich nicht der Weisheit letzter Schluss ist):
Delphi-Quellcode:
procedure DownloadFileAsync(
const Url:
string; Stream: TStream);
cdecl;
begin
DownloadFile(
Url, Stream);
end;
for i := 0
to Urls.Count - 1
do
begin
// beide Downloads starten
a := AsyncCall(@DownloadFileAsync, [Urls[i], Streams[0]]);
b := AsyncCall(@DownloadFileAsync, [Urls[i], Streams[1]]);
Index := AsyncWaitSync([a, b], False);
// warten bis mindestens ein AsyncCall beendet ist
Verarbeite(Streams[
Index]);
// den ersten beendeten Download verarbeiten
AsyncWaitSync([a, b], True);
// auf den anderen Download warten
Verarbeite(Streams[(
Index + 1)
mod 2]);
end;
Syntaktische Korrektheit ist nicht gegeben
Zitat:
Was ist mit dem Sync für Ausgaben?
Wenn du das Ergebnis einer async. Funktion benötigst, dann muss man einfach IAsyncCall.Sync aufrufen und bekommt das Ergebnis (sofern vorhanden => procedures haben einen undefinierten Rückgabewert)
Zitat:
Was ist mit "Threadsave Code"?
VCL Code sollte man nicht in einer async. Funktion aufrufen. Alle Arg-Parameter von AsyncCall() werden intern kopiert, womit sie in den async. Funktionen ohne bedenken benutzt werden können. Die Ausnahme bilden hier die AsynCallEx() Funktionen, die einen veränderbaren Record (Value Type) an die async. Funktion weiterleiten.
Delphi-Quellcode:
type
TData = record
s: string;
i: Integer;
end;
procedure DoSomething(var Data: TData);
begin
Data.s := 'Hallo';
Data.i := 10;
Sleep(100); // ein wenig Zeit verplempern.
end;
var
d: TData;
a: IAsyncCall;
begin
a := AsyncCallEx(@DoSomething, d);
// irgendwas anderes machen ...
a.Sync;
ShowMessage(d.s + ': ' + IntToStr(d.i));
end;