Einzelnen Beitrag anzeigen

Svenkan

Registriert seit: 10. Feb 2007
Ort: Bersenbrück
547 Beiträge
 
Delphi 7 Enterprise
 
#1

WebBrowser: Dateien durchschalten

  Alt 11. Sep 2007, 21:51
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;
Sven Kannenberg
  Mit Zitat antworten Zitat