Hallo Leute,
ich bekomme meine Schaltung leider nicht richtig funktionierend hin.
1. Fall: plannr wird um 1 hochgesetzt und der nächste Plan angezeigt -> kein Problem
2. Fall: nachdem die Pläne durchgelaufen sind, sollen die Meldungen angezeigt werden. -> kein Problem
3. Fall: wenn die Meldungen gerade angezeigt werden oder nicht vorhanden sind, soll auf den nächsten Tag geschaltet werden. Und genau da liegen meine Problem: entweder geht er nur zurück auf den letzten Plan des aktuellen Tages oder er bleibt immer auf der Meldungsseite. Und bei meinen gazen Spielereien ist ziemlich viel Müll bei rausgekommen. Also nicht allzu sauer über den Code sein..
Delphi-Quellcode:
plannr:=plannr+1;
if FileExists(ExtractFilePath(ParamStr(0))+'\monitor\vplan_'+dayname+'_'+IntToStr(plannr)+'.htm') then begin
VPlan.Navigate(ExtractFilePath(ParamStr(0))+'monitor\vplan_'+dayname+'_'+IntToStr(plannr)+'.htm');
Label6.Caption:=IntToStr(plannr);
Label7.Caption:=VPlan.OleObject.Document.URL;
end
else if (FileExists(ExtractFilePath(ParamStr(0))+'\monitor\vplan_'+dayname+'_meldungen.htm')) AND NOT ((VPlan.LocationUrl='file://'+ExtractFilePath(ParamStr(0))+'monitor\vplan_'+dayname+'_'+IntToStr(plannr-1)+'.htm')) then begin
plannr:=plannr-1;
VPlan.Navigate(ExtractFilePath(ParamStr(0))+'monitor\vplan_'+dayname+'_meldungen.htm');
Label6.Caption:='Meldungen';
Label7.Caption:=VPlan.OleObject.Document.URL;
Label8.Caption:='file://'+ExtractFilePath(ParamStr(0))+'monitor\vplan_'+dayname+'_'+IntToStr(plannr)+'.htm';
end
else if NOT (FileExists(ExtractFilePath(ParamStr(0))+'\monitor\vplan_'+dayname+'_meldungen.htm')
OR (VPlan.LocationUrl='file://'+ExtractFilePath(ParamStr(0))+'monitor\vplan_'+dayname+'_mitteilungen.htm')
OR (FileExists(ExtractFilePath(ParamStr(0))+'\monitor\vplan_'+dayname+'_meldungen.htm'))) then begin
if dayname=ShortDayNames[DayOfWeek(Today)] then begin
dayname:=ShortDayNames[DayOfWeek(tomorrow)];
Label4.Caption:=LongDayNames[DayOfWeek(tomorrow)]+', den '+DateToStr(tomorrow);
end
else begin
dayname:=ShortDayNames[DayOfWeek(today)];
Label4.Caption:=LongDayNames[DayOfWeek(today)]+', den '+DateToStr(today);
end;
plannr:=1;
Label6.Caption:=IntToStr(plannr);
VPlan.Navigate(ExtractFilePath(ParamStr(0))+'monitor\vplan_'+dayname+'_'+IntToStr(plannr)+'.htm');
end;