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:
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!!!!!