Prozedure mit Arry das Eeigniss OnRequestdone überprüfen?

[Lipton]

Erstamal danke das du meinen Hilfe ruf war genommen hast!Ich verzweifle schon! Ich möchte von einem server die die Head Daten abfragen, und dann auf ihre grösse überprüfen. Um das ganze zu beschluenigen da ich viele Header daten habe, habe ich mehrere HTTPclients erzeugt und diese mit einem Array benannt und lasse sie nun die headerdat anfrage asyc( also ohne das das system blockiert wird ) abfragen. Jetzt frage ich mich wie ich die Headdaten ausdlesen kann, und woher ich weis das sie da sind. Für hilf ebin ich absolut dankbar! Auch wenn s nur ne adresse ist wo ich weiter suchen könnte! Mfg Lipton

bsp:

Delphi-Quellcode:

procedure BitBtn1Click(Sender: TObject); 

procedure HttpCli1296RequestDone(Sender: TObject; RqType: THttpRequest; 
Error: Word) 



var 

httpcli :array[1..6] of Thttpcli; 
Rqdone :array[1..6] of Boolean; 

implementation 

{$R *.dfm} 

procedure TForm1.Start(Sender: TObject); 
// für schleifen variablen 
var 
httpclinr :integer; 
begin 

for Httpclinr:=1 to 6 do Rqdone[httpclinr]:= False; 

for httpclinr:=1 to 6 do begin 
httpcli[httpclinr]:= thttpcli.create(self); 
end; 
//********************************************************* 

for Httpclinr:=1 to 6 do begin 

httpcli[httpclinr].url:=url, die sich ständig verändert, 
httpcli[httpclinr].HeadASync; 

end; 
//************************************************************ 

while not Rqdone[6]=true do begin 
sleep(0); 
Application.ProcessMessages; 
// hiermüsste das blled ding die untre prozedure berücksichtigen macht er aber net! mit [] startet er gar nicht und ohne liest er die Prozedure nicht aus! 
end; 


********************************************************************* 
procedure TForm1.HttpCli[1296]RequestDone(Sender: TObject; RqType: THttpRequest; 
Error: Word); 

var i:integer;// ich habe hier httpclinr nochmal defeniert als i weil 
wenn man sie nach ganz oben schreibt sie nicht als schleife verwendet werden kann 
begin 

for i{httpclinr}:=1 to 6 do Rqdone[{httpclinr}i]:=true; 
// hier soll der Computer nachschauen während er wartet ob Die headre dat downgeloadet ist. 
Dazu setzt er hier den Wahrheitswert Rqdone[httpclinr] nach true; 
end; 

end.

Vielen dank!!!!! :angle: :angle: :angle:

[edit=Daniel B]Delphi-Tags ergänzt. MfG Daniel B.[/edit]