AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Fortschirttsanzeige

Ein Thema von Tommy1988 · begonnen am 5. Mai 2008 · letzter Beitrag vom 7. Mai 2008
Antwort Antwort
Seite 1 von 2  1 2      
Tommy1988
(Gast)

n/a Beiträge
 
#1

Fortschirttsanzeige

  Alt 5. Mai 2008, 15:45
Bonjour, an alle..

kurz und knapp:

über eine Funktion die in ETWA der hier nahe kommt (Click)
hole ich mir den HTML-Text eines HTML-Dokuments.

Meine Frage:
wie ist es möglich, diesen Prozess (das Abfragen des HTML-Textes) in einer Prozessbar zu visualisieren?

Dieses Thema ist völlig neu für mich.

Gruß
Micha
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.149 Beiträge
 
Delphi 12 Athens
 
#2

Re: Fortschirttsanzeige

  Alt 5. Mai 2008, 15:50
Am Einfachsten wohl so?
[ delphi]{ProgressBar}.Max := dwcodeLen{siehe HttpQueryInfo};[ /delphi]

und in der Schleife zum Runterladen
[delphi ]{ProgressBar}.Position := Length(resStr);[ /delphi]

ok, geht doch nicht ... dwcodeLen ist ja garnicht die Größe der HTML-Daten

tja, wie Klaus01 schon sagte ... du mußt erstmal die Größe rausbekommen
und leider sendet bei dynamischen Daten fast kein Server diese Größe ... z.B. wird bei PHP der "HTML"-Text wärend der Arbeit ausgegeben und nicht erst gesammelt und dann erst samt Größe gesendet.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.755 Beiträge
 
Delphi 10.4 Sydney
 
#3

Re: Fortschirttsanzeige

  Alt 5. Mai 2008, 15:53
Hallo,

das dürfte etwas schwierig sein, wenn Du die Größe der
HTML Datei nicht kennst.
Falls Du sie kennen solltest, wäre
hier ein guter Platz einen Counter zu implementieren.

Delphi-Quellcode:
while (InternetReadfile(hfile,
       @databuffer,
       dwNumber,
       DwRead)) do
  begin
    if dwRead =0 then
      break;
      databuffer[dwread]:=#0;
      Str := pchar(@databuffer);
      resStr := resStr + Str;
    end;

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
Tommy1988
(Gast)

n/a Beiträge
 
#4

Re: Fortschirttsanzeige

  Alt 5. Mai 2008, 16:36
Mh, ok ich habe es jezt etwas anders gelöst. (Das mit den "leider sendet bei dynamischen Daten fast kein Server)... => stimmt.. deswegen meine bescheidene kleine Lösung:

Delphi-Quellcode:
function gf(const fn: String): Integer;
var srcr: TSearchRec;
begin
 Result := -1;
 if FindFirst(fn, faAnyFile and not faDirectory, srcr) = 0 then
 try
   Result := srcr.Size;
 finally SysUtils.FindClose(srcr) end;
end;
Danach:
Delphi-Quellcode:
 
m.Text := ghtm({URL});
m.Lines.SaveToFile('C:\tmp.htm');
pb.Max := gf('C:\tmp.htm'); // Nur zum Testen ein absoluter Pfad ..
So.. Aber das mit dem Counter habe ich noch nicht so ganz kapiert?
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.149 Beiträge
 
Delphi 12 Athens
 
#5

Re: Fortschirttsanzeige

  Alt 5. Mai 2008, 16:43
du holst dir per FindFirst die größer einer HTML-Datei von einem Server?

wenn ja, dann lad sie doch lieber gleich runter, denn diese wird vermutlich auch erstmal die Dateirunterladen, um an die Größe zu kommen (falls es überhaupt einen korrekten Wert dafür zurückliefert) und danach lädst du dann die Datei nochmal runter, um an deren Daten zu kommen.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Tommy1988
(Gast)

n/a Beiträge
 
#6

Re: Fortschirttsanzeige

  Alt 5. Mai 2008, 16:44
Mhh.. ne ich glaube du verstehst mich nicht.

Genau das mache ich doch. Ich lade die Datei temporär herunter und lese die Größe der heruntergeladenen Datei (derren Wert bis auf 2 KB genau ist) aus.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.149 Beiträge
 
Delphi 12 Athens
 
#7

Re: Fortschirttsanzeige

  Alt 5. Mai 2008, 16:48
ja und dann kann ist du sie doch auch gleich direkt runterladen?

* FindFist wegen Dateigröße (läd vermutlich aber die Datei schon runter)
* Dateirunterladen (mit Glück ist diese schon im InternetFileCache)

dann reicht doch nur:
* Dateirunterladen

und dann hast du die Dateigröße Bytegenau.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Nuclear-Ping
(Gast)

n/a Beiträge
 
#8

Re: Fortschirttsanzeige

  Alt 5. Mai 2008, 16:53
Du solltest dir überlegen, eine "Marquee"-Progressbar zu benutzen, die einfach nur Aktivität anzeigt oder du "fakest" einen Fortschritt, so wie es zB der IE macht (je voller der Balken wird, umso langsamer füllt er sich).

Denn wenn du die Datei 1x temp. runterlädst, nur um deren Größe für eine Forschrittsanzeige zu ermitteln, damit du anzeigen kannst, wie lange es dauert, bis du sie (nochmals) runtergladen hast, ist das doch ziemlich Sinnfrei, oder?
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.149 Beiträge
 
Delphi 12 Athens
 
#9

Re: Fortschirttsanzeige

  Alt 5. Mai 2008, 16:56
genau das meinte ich ... endlich mal einer, der meine wirren Gedanken in Worte fassen kann
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Tommy1988
(Gast)

n/a Beiträge
 
#10

Re: Fortschirttsanzeige

  Alt 5. Mai 2008, 16:57
Ne kA mein Kopf macht dicht..
ich hab grad zuviel andere Arbeit zu tun, .. von Daher melde ich mich erstmal nichtmehr jetzt ..
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


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 00:09 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