AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi HIlfe!! Asyconesabfragen von Daten,
Thema durchsuchen
Ansicht
Themen-Optionen

HIlfe!! Asyconesabfragen von Daten,

Ein Thema von Lipton · begonnen am 17. Apr 2003
Antwort Antwort
Lipton

Registriert seit: 17. Apr 2003
2 Beiträge
 
#1

HIlfe!! Asyconesabfragen von Daten,

  Alt 17. Apr 2003, 23:19
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!!!!!
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz