Parameter an TTask.Run übergeben?

[Zacherl]

Hallo zusammen,

ich versuche mich grad an der neuen Parallel API:

Delphi-Quellcode:

URL := { erzeuge dynamische URL }

        TTask.Run(procedure
        var
          HTTP: TIdHTTP;
        begin
          HTTP := TIdHTTP.Create(nil);
          try
            HTTP.Get(URL);

Der Code wird in einer Schleife ausgeführt. Jetzt habe ich das Problem, dass der Zugriff auf URL natürlich nicht synchronisiert ist.

Habe ich die Möglichkeit URL direkt als Parameter mitzugeben?

Viele Grüße
Zacherl

[Sir Rufo]

Ja, aber nicht direkt

Delphi-Quellcode:

function AsyncHttpGet( const AURL: string ): ITask;
begin
  Result := TTask.Run(
    procedure
    begin
      ...
      Http.Get( AURL );
      ...
    end );
end;

Du könntest auch noch einen Callback übergeben, der aufgerufen wird, wenn das Ergebnis da ist inkl. dem Ergebnis.

[Zacherl]

Danke sehr, damit kann ich arbeiten!

[uups]

Zitat von Sir Rufo:

Du könntest auch noch einen Callback übergeben, der aufgerufen wird, wenn das Ergebnis da ist inkl. dem Ergebnis.

Und wie geht das mit dem Callback? Meinen Sie die Run-Variante mit dem TNotifyEvent als Parameter?