Eine Frage zu GetNewHeadersInSubscribedGroups

17/11/2008 - 15:23 von Wolfgang Bauer | Report spam
Servus.

Ich habe in OnStartup das zu stehen.

8<->8
program OnStartup;
uses Forms, Extctrls, TextFile;
{$I Basis_Modul_Include}
procedure OnStartup;
begin
lockdisplay;
try
ADo('CollapseAllThreads');
finally
unlockdisplay;
end; // try - finally
If BM_DBReminder Then ADo('CompactDatabase');
ADo('GetNewHeadersInSubscribedGroups');
If BM_Check_Last_PurgeDate Then ADo('PurgeSubscribedGroups');
timer2.interval:`000*5;
timer2.enabled:=true;
end;
begin
End.
8<->8

In dem Fall werden/sollten beim Dialogstart mit
ADo('GetNewHeadersInSubscribedGroups');
erstmalig für alle abonnierten Gruppen die Postings vom Hamster geholt
werden. In der Folge dann vom Script OnTimer2

8<->8
program OnTimer2;
procedure OnTimer2;
begin
ADo('GetNewHeadersInSubscribedGroups');
end;
begin
end.
8<->8

im Abstand von 5 Minuten weiterhin neue Postings vom Hamster geladen
werden.

Das geschieht aber nur für die Gruppe die den Focus hat. In anderen
Gruppen muß ich mit der Schaltfàche "Neue Header in abonnierten Gruppen
laden" mit dem Hamster synchronisieren.

Steht ADo('GetNewHeadersInSubscribedGroups'); im OnStartup vielleicht an
der verkehrten Stelle?

Freundliche Grüße
Wolfgang
http://www.wolfgang-bauer.at
40tude-Dialog DER Newsreader unter Windows http://dialog.datalist.org/
news:de.comm.software.40tude-dialog
40tude-Dialog Forum http://4ds.siteboard.eu/
 

Lesen sie die antworten

#1 Hermann Hippen
17/11/2008 - 15:42 | Warnen spam
Hallo Wolfgang,

Wolfgang Bauer schrieb in d.c.s.4-d:

Servus.

Ich habe in OnStartup das zu stehen.



[]

Steht ADo('GetNewHeadersInSubscribedGroups'); im OnStartup vielleicht an
der verkehrten Stelle?



Nö, die Zeile ist ja nur einmal beim Start von Dialog relevant. Aber wenn
nur in der aktiven Gruppe geholt wird...

Hattest/Hsst du vielleicht mal in OnTimer2,
ADo(GetNewHeadersInSelectedGroups); drinstehen? Dann würde nur in der
aktiven Gruppe geholt werden. Vielleicht stand es mal so drin und du hast
vergessen, nach der Änderung in ADo('GetNewHeadersInSubscribedGroups');
also in allen Gruppen holen, neu zu compilieren und neu zu starten?

Egal, wie auch immer. Wenn der Eintrag in Timer2 so drinsteht, compiliere
das Script nochmal und starte es neu. Mal sehen was dann passiert...

Cu,
Hermann Hippen.
ž' š°º€ø?žžžžž?ø€º°š 'ž
ø€º° '<http://4ds.siteboard.eu>' °º€ø
'ž '40tude-Dialog Scriptwerkstatt' ž'
ø€º°' ž ž ø€º°ššššššš°º€øšž ž '°º€ø

Ähnliche fragen