Eine Funktion/Procedure mehrfach starten, bevor sie endet?

[gandime]

Hi,
ich möchte eine Funktion mehrfach starten bevor sie endet.
Dieses möchte ich machen um die Bearbeitung zu beschleunigen!

Die Funktion:

Delphi-Quellcode:

Function set_pw(s_psc:string):boolean;
var
  sl:tstringlist;
begin
  sl:=tstringlist.create;
  sl.Values['psc']:=s_psc;
  idhttp.post('http://...',sl);
//bla bla bla usw
end;

Naja und diese Funktion Braucht einige sekunden bis der Server geantwortet hat usw.
Jetzt habe ich mir überlegt einen array von idhttp zu erstellen, welche dann angesprochen werden wenn sie nicht benutzt werden.
Blos die Frage ist wie ich die nächste Funktion starten kann bevor die alte beendet ist?

Delphi-Quellcode:

for i:=0 to sl_psc.count-1 do
begin
  set_pw([i]);
end;

so würde es ja nicht gehen ;-)
Die Einzige Idee die mir gekommen ist ist ein Timer.
Die Funktion kann ich auch zu einer Procedure umformen, das soll nicht das Problem sein!
Welche Alternativen gibt es?


mfg
gandime

[Die Muhkuh]

Threads wäre eine Alternative.

[Panthrax]

Das hier könnte dir helfen asynchone Funktions- oder Prozeduraufrufe einfach umzusetzen:

• #652098 AsyncCalls - Asynchrone Funktionsaufrufe in Delphi Eine etwas andere Methode Threads zu verwenden.

Ich würde eine Umsetzung allein mit Threads anstreben.

[RavenIV]

Zitat:

Zitat von Die Muhkuh

Threads wäre eine Alternative.

Threads wäre die einzige Möglichkeit.
Es wird nicht anderst gehen.

[gandime]

soo habs jetzt mit dem async versucht habe aber auch schon butz nen problem... und zwar bei folgender Fehlermeldung:

Zitat:

[DCC Fehler] Unit1.pas(333): E2036 Variable erforderlich

Bei folgendem Code:

Delphi-Quellcode:

procedure TForm1.set_pw(s_psc:string;i_ht:integer);cdecl;
begin
//blabla...
end;

begin
  ac:=AsyncCall(@set_pw,[sl_temp[i_count],ii]);  //fehler
end;

was mache ich falsch?

[jbg]

Du hast "ac: IAsyncCall" nicht deklariert?

[jbg]

Zudem würde die aufrufende Methode so lange warten bis der Thread beendet ist, da ac._Release durch den Compiler aufgerufen wird und dort die ac.Sync Methode ihren Dienst verrichtet.

[gandime]

ac is deklariert hab blos vergessen das hier ins Forum zu schreiben.
was muss ich jetzt genau machen, damit es richtig funktioniert?
jbg dich habe ich nicht richtig verstanden...

edit:
Problem gelöst die Procedure darf nicht mit TForm1 deklariert sein