Hi,
ich schreibe gerade ein Programm, dass mehrere Verbindungen zu einem Webserver herstellen soll. Für die Verbindung benutze ich die Indy Komponenten (idHTTP).
Nun weiß ich aber nicht, wie viele Verbindungen gleichzeitig möglich sein sollen. Daher möchte ich die Komponenten in einem dynamischen Array verwalten:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| var
testhttp: array of TIDHTTP;
...
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
SetLength(testhttp, 3);
for i := 0 to 2 do
begin
testhttp[i] := tidhttp.Create(self);
end;
end; |
Nun habe ich aber das Problem, dass ich die OnWork und andere Methoden der idHTTP Komponenten benutzen möchte, und dabei jeweils wissen muss, welchen Index das aktuelle idHTTP hat.
Ich bräuchte also in etwa eine solche Methode:
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure httpWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer; index: integer);
begin
end; |
Wobei index dann den Index des Objekts angibt, welches die Methode ausgerufen hat.
Komme dabei leider nicht weiter, meine Versuche die Methode wie folgt zuzuweisen, scheiterten bisher:
Delphi-Quelltext
1:
| testhttp[0].OnWork := httpWork(); |
Ich hoffe, Ihr könnt mir helfen
.
Grüße
Passi
