Autor |
Beitrag |
NOS
Beiträge: 183
Erhaltene Danke: 2
Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
|
Verfasst: Fr 23.09.16 14:12
Hallo zusammen,
ich habe, wie einige schon in dem ein und anderen Post von mir gelesen haben, einen WebsiteAnalyser in Arbeit. Ich crawle also Multithreaded die URL's und speichere die Analysedaten für jede URL in die DB. Zu aktuellen Anzeige habe ich bisher einen TVirtualStringTree genommen was auch super geklappt hat.
Nun möchte ich dem User die Möglichkeit geben hier auch eine URL zu suchen oder zu filtern. Nun stellt sich mir die Frage ob ich:
1. Ein DBGrid nehmen könnte welches sich zur Laufzeit aktualisiert
2. Den Progress während der Analyse ohne Tabelle gestalte und nur die Ergebnistabelle zum Schluss in ein DBGrid lade
3. Filterfunktionalität und Suche zum TVirtualStringTree hinzufügen
Mich würde eure Meinung interessieren und natürlich auch Infos zu Punkt 1 falls dies gehen sollte.
Threadobjekte sind selbstgecodet und als DB nutze ich Firebird embedded mit Connectionpooling.
Ich freue mich auf eure Antworten,
Grüße und Dank,
Andreas
|
|
Frühlingsrolle
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Fr 23.09.16 21:57
- Nachträglich durch die Entwickler-Ecke gelöscht -
Für diesen Beitrag haben gedankt: NOS
|
|
NOS
Beiträge: 183
Erhaltene Danke: 2
Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
|
Verfasst: Sa 24.09.16 18:34
Ok .... dann werde ich das mal so ausprobieren ... vielen Dank
|
|
NOS
Beiträge: 183
Erhaltene Danke: 2
Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
|
Verfasst: So 25.09.16 00:47
Vom Prinzip her hat es geklappt .... aber seitdem friert mein gui immer ein obwohl die abfrage im async mode ist ... gibt es da noch etwas zu beachten wenn X Threads in die db schreiben und ich gleichzeitig den progress mit ner connection anzeigen will ?
|
|
Frühlingsrolle
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: So 25.09.16 10:35
- Nachträglich durch die Entwickler-Ecke gelöscht -
|
|
NOS
Beiträge: 183
Erhaltene Danke: 2
Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
|
Verfasst: So 25.09.16 10:49
Es friert nach einer Zeit ein ... ich denke es liegt daran dass das eine Refresh noch nicht fertig ist und ich es erneut calle ... gibt es ne Möglichkeit darauf zu warten ???
Es ist so dass es zwischen 1 und 100 Threads gibt die jeweils einen Quellcode von einer URL downloaden, parsen und die ergebnisse nebst der neuen URLs in die DB schreiben. Aus der DB gelesen wird nicht ausser durch die connection / query die die liste aktualisieren soll.
Es ist auch völlig egal ob ich mit einem oder mit 10 threads analysiere
|
|
Frühlingsrolle
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: So 25.09.16 22:53
- Nachträglich durch die Entwickler-Ecke gelöscht -
|
|
NOS
Beiträge: 183
Erhaltene Danke: 2
Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
|
Verfasst: Mo 26.09.16 09:06
Moin .... also das ganze Multithreadinggebilde mit idHTTP etc. ist vollkommen ok und läuft stabil.
Wenn ich das Refreshen der Hauptansicht auskommentiere (also das .Refresh des DataSet des DBGrid) läuft auch alles problemlos, sowie vorher mit dem VirtualStringTree auch. Es muss also am Refresh der Hauptansicht liegen die ich eingebaut habe.
|
|
jaenicke
Beiträge: 19289
Erhaltene Danke: 1743
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mo 26.09.16 10:17
Der VirtualStringTree kann doch schon selbst filtern. Einfach nur durchiterieren und Filtered für die einzelnen Nodes setzen. Das geht blitzschnell, selbst bei vielen tausend Einträgen.
Für diesen Beitrag haben gedankt: NOS
|
|
NOS
Beiträge: 183
Erhaltene Danke: 2
Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
|
Verfasst: Mo 26.09.16 11:09
jaenicke hat folgendes geschrieben : | Der VirtualStringTree kann doch schon selbst filtern. Einfach nur durchiterieren und Filtered für die einzelnen Nodes setzen. Das geht blitzschnell, selbst bei vielen tausend Einträgen. |
Also ist das die bessere Variante als das mit einem DBGrid zu versuchen ?
|
|
jaenicke
Beiträge: 19289
Erhaltene Danke: 1743
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Di 27.09.16 04:49
In Anbetracht der Tatsache, dass das ja ansonsten schon so funktioniert, würde ich sagen ja.
Ob es insgesamt die beste Lösung ist, kann ich nicht so aus dem Stegreif sagen. Mit großen Datenmengen habe ich bisher nur mit einer VirtualStringTree gearbeitet.
Für diesen Beitrag haben gedankt: NOS
|
|
NOS
Beiträge: 183
Erhaltene Danke: 2
Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
|
Verfasst: Di 27.09.16 08:04
Ok ... dann lasse ich erstmal die finger davon .... habe den source mit dem dbgrid gesichert und widme mich anderen dingen
|
|
Sinspin
Beiträge: 1334
Erhaltene Danke: 118
Win 10
RIO, CE, Lazarus
|
Verfasst: Mi 28.09.16 09:10
Von wo aus wird das Refresh aufgerufen? Nicht aus den WorkerThreads, hoffe ich mal. Das musst Du via Timer auf deinem Form machen. Dann kommen die Refesh auch nacheinander und nicht gleichzeitig.
Intervall kannst Du dann ja Nutzerseitig festlegen lassen.
_________________ Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?
|
|
NOS
Beiträge: 183
Erhaltene Danke: 2
Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
|
Verfasst: Mi 28.09.16 09:42
Die Refreshes kamen vom Mainform aus nem Event den ich aus dem Distrubtorthread gecalled habe ... also nach jeder Änderung ein Call ... aber das ist wohl zu schnell hintereinander
|
|
NOS
Beiträge: 183
Erhaltene Danke: 2
Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
|
Verfasst: Mi 28.09.16 10:04
Gibt es denn keine Möglichkeit zu warten bis das erste refresh abgearbeitet wurde und dann ein neues zu machen ? Wäre doch das sinnigste bei konstant anwahsenden datenbanken und multithreading ... oder ?
|
|
Nersgatt
Beiträge: 1581
Erhaltene Danke: 279
Delphi 10 Seattle Prof.
|
Verfasst: Mi 28.09.16 10:56
NOS hat folgendes geschrieben : | Die Refreshes kamen vom Mainform aus nem Event den ich aus dem Distrubtorthread gecalled habe ... also nach jeder Änderung ein Call ... aber das ist wohl zu schnell hintereinander |
Wenn Du im Thread einen Event auslöst, dann wird der Eventhandler im Threadkontext abgearbeitet!
Lösen kannst Du das, indem Du den Eventhandler mit Synchronize aufrufst. Mit einer anonymen Methoden ist das Probemlos und schnell zu machen:
Delphi-Quelltext 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
| procedure TMeinThread.DoWeltformelGefunden; begin
if assigned(FOnWeltformelGefunden) then begin Synchronize(procedure begin FOnWeltformelGefunden; end); end;
end; |
Auf diese Art wird der Eventhandler im Kontext des Mainthreads aufgerufen. Dort kannst Du dann auch problemlos Sachen machen, die Du innerhalb des Threads nicht machen dürftest (Zugriffe auf Steuerelemente zum Beispiel).
_________________ Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)
Für diesen Beitrag haben gedankt: NOS
|
|
NOS
Beiträge: 183
Erhaltene Danke: 2
Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
|
Verfasst: Mi 28.09.16 12:50
@Nersgatt
vielleicht habe ich das falsch ausgedrückt ... also der Distributorthread verteilt die URLs zur Analyse an die URLWorkerthreads. Jedes mal wenn der Distributorsthread neue Arbeit verteilt mache ich ein PostMessage. Im Mainform wird die Message dann empfangen und hier das Refresh des FdQuery ausgeführt.
Mir geht es darum festzustellen ob das Refresh des Query schon abgearbeitet ist oder nicht. Dann so friert irgendwann alles ein weil stängi FdQuery.Refresh gecalled wird.
|
|
jaenicke
Beiträge: 19289
Erhaltene Danke: 1743
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mi 28.09.16 12:54
Wenn das Refresh im Hauptthread ausgeführt wird, kann es auch nicht parallel mehrfach ausgelöst werden. Allerdings natürlich schnell hintereinander. Deshalb würde ich dort einen Lastenausgleich einbauen.
Zum Beispiel indem du einen Timer startest und diesen erst das Refresh ausführen lässt. Kommen vor dessen Ausführung noch weitere Refreshanforderungen an, werden diese verschluckt. Das mag nicht die schönste Lösung sein, aber eine einfache.
Für diesen Beitrag haben gedankt: NOS
|
|
NOS
Beiträge: 183
Erhaltene Danke: 2
Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
|
Verfasst: Mi 28.09.16 14:37
Ich habe jetzt den TFdQuery.AfterRefesh genommen und ein Flag gesetzt ... somit läuft immer nur ein refresh .... sieht etwas ruckelig aus von den intervallen wenn es aktualisiert aber schonmal stabil bisher kann man die "Flüssigkeit" des refresh beeinflussen oder ist das einfach so ?
|
|
Sinspin
Beiträge: 1334
Erhaltene Danke: 118
Win 10
RIO, CE, Lazarus
|
Verfasst: Mi 28.09.16 15:39
Verhinderst Du damit jetzt dass, während ein Refresh läuft, weitere Messages gepostet werden können? Denn sonst stapelt es sich ja weiter wie bisher und alles Refreshes werden abgearbeitet auch wenn schon lange der Endstand erreicht und angezeigt ist.
_________________ Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?
|
|