Automatischer Pull vom Hamster funktioniert nicht

10/10/2013 - 16:15 von Wolfgang Bauer | Report spam
Servus.

Sehr oft hole ich vom Hamster indem ich auf den Kategorie Button
"Abonniert" klicke. Das Script dazu ist

8<-->8
Program NGTAB_WM_LBUTTONUP;
Procedure OnWMessage(var Msg:TMessage;var handled:boolean);
Begin
ADo('GetNewHeadersInSubscribedGroups');
End;
Begin
End.
8<-->8

Das funktioniert einwandfrei. Wenn ich aber auf den automatischen Pull
warte passiert gar nichts.

In OnStartup
8<->8
program OnStartup;
uses Forms, Extctrls, TextFile;
{$I Basis_Modul_Include}
{$I DBReminder_include}
{$I Check_Last_PurgeDate_include.ds}
{$I VistaReg_include}

procedure OnStartup;
begin
If Not BM_PathCheck(GetCurrentDir) Then
begin
Ado('ReloadScripts');
Ado('Scripting');
end;

VistaReg(GetCurrentDir);
lockdisplay;
try
ADo('CollapseAllThreads');
finally
unlockdisplay;
end;

If DBReminder Then ADoLater('CompactDatabase')
Else
If Check_Last_PurgeDate Then ADo('PurgeSubscribedGroups')
Else Begin
end;

ADo('GetNewHeadersInSubscribedGroups');

timer2.interval:`000*2;
timer2.enabled:=true;
end;
begin
end.
8<->8

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

Kompiliert wird OnStartup und OnTimer2 fehlerfrei. Übersehe ich etwas?

Wolfgang
Die 40tude-Dialog FAQ http://www.wolfgang-bauer.at/4td_faq/
Raady's 40tude-Dialog - Archiv! http://kh-rademacher.de/4d/
(M)eine Seite für 40tude Dialog http://4d.vollmeier.at/
 

Lesen sie die antworten

#1 Díetmar Vollmeíer
10/10/2013 - 17:26 | Warnen spam
Hallo Wolle!

*Wolfgang Bauer* schrieb am 10.10.2013 um 16:15 Uhr...
Übersehe ich etwas?



Es werden nur neue Nachrichten von den Gruppen geladen, die sich in der
aktuellen Kategorie befinden.

Oder wird in diesen Gruppen auch nix geladen?
Servus | 40tude Dialog FAQ -> http://www.wolfgang-bauer.at/4td_faq/
Didi | und Script-Archiv -> http://kh-rademacher.de/4d/
|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| http://4d.vollmeier.at/

Ähnliche fragen