Autor Beitrag
NOS
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 183
Erhaltene Danke: 2

Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
BeitragVerfasst: Fr 23.09.16 15: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



BeitragVerfasst: Fr 23.09.16 22:57 
- Nachträglich durch die Entwickler-Ecke gelöscht -

Für diesen Beitrag haben gedankt: NOS
NOS Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 183
Erhaltene Danke: 2

Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
BeitragVerfasst: Sa 24.09.16 19:34 
Ok .... dann werde ich das mal so ausprobieren ... vielen Dank :-)
NOS Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 183
Erhaltene Danke: 2

Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
BeitragVerfasst: So 25.09.16 01: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



BeitragVerfasst: So 25.09.16 11:35 
- Nachträglich durch die Entwickler-Ecke gelöscht -
NOS Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 183
Erhaltene Danke: 2

Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
BeitragVerfasst: So 25.09.16 11: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



BeitragVerfasst: So 25.09.16 23:53 
- Nachträglich durch die Entwickler-Ecke gelöscht -
NOS Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 183
Erhaltene Danke: 2

Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
BeitragVerfasst: Mo 26.09.16 10: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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 19272
Erhaltene Danke: 1740

W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
BeitragVerfasst: Mo 26.09.16 11: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 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 183
Erhaltene Danke: 2

Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
BeitragVerfasst: Mo 26.09.16 12:09 
user profile iconjaenicke hat folgendes geschrieben Zum zitierten Posting springen:
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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 19272
Erhaltene Danke: 1740

W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
BeitragVerfasst: Di 27.09.16 05: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 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 183
Erhaltene Danke: 2

Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
BeitragVerfasst: Di 27.09.16 09:04 
Ok ... dann lasse ich erstmal die finger davon .... habe den source mit dem dbgrid gesichert und widme mich anderen dingen :)
Sinspin
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1321
Erhaltene Danke: 117

Win 10
RIO, CE, Lazarus
BeitragVerfasst: Mi 28.09.16 10: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 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 183
Erhaltene Danke: 2

Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
BeitragVerfasst: Mi 28.09.16 10: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 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 183
Erhaltene Danke: 2

Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
BeitragVerfasst: Mi 28.09.16 11: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
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1581
Erhaltene Danke: 279


Delphi 10 Seattle Prof.
BeitragVerfasst: Mi 28.09.16 11:56 
user profile iconNOS hat folgendes geschrieben Zum zitierten Posting springen:
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:

ausblenden 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 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 183
Erhaltene Danke: 2

Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
BeitragVerfasst: Mi 28.09.16 13: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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 19272
Erhaltene Danke: 1740

W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
BeitragVerfasst: Mi 28.09.16 13: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 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 183
Erhaltene Danke: 2

Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 19.4 - Sydney
BeitragVerfasst: Mi 28.09.16 15: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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1321
Erhaltene Danke: 117

Win 10
RIO, CE, Lazarus
BeitragVerfasst: Mi 28.09.16 16: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?