Timer funktionieren nicht

[Ykcim]

Ich hätte Euch ja gerne an dem Code teilhaben lassen, nur was sollte ich Euch schicken? Mein ganzes Programm? Ich habe gerade einfach auf gut Glück die Create-Anweisung deaktiviert und siehe da, der Fehler taucht nicht mehr auf... Ich dachte schon, ich könnte eine Erfolgsmeldung ausgeben und habe überprüft, an welcher Stelle das Problem entsteht. Es ist in einer Unterprocedure einer Unterprocedure...

Aber leider für mich nit nachvollziehbar...

Delphi-Quellcode:

procedure TForm_Pinnwand.Load_All;
var   MyPath: string;
begin
   MyPath:=DatenPfad+GetComputerName+'\'+'O1.pdf';
   Load_PDF(PdfView_O1, MyPath);  //Hier entsteht der Fehler, aber nur bei der ersten Datei? Nehme ich die Zeile raus, läuft es...
   MyPath:=DatenPfad+GetComputerName+'\'+'O2.pdf';
   Load_PDF(PdfView_O2, MyPath);
   MyPath:=DatenPfad+GetComputerName+'\'+'O3.pdf';
   Load_PDF(PdfView_O3, MyPath);
   MyPath:=DatenPfad+GetComputerName+'\'+'O4.pdf';
   Load_PDF(PdfView_O4, MyPath);
   MyPath:=DatenPfad+GetComputerName+'\'+'U1.pdf';
   Load_PDF(PdfView_U1, MyPath);
   MyPath:=DatenPfad+GetComputerName+'\'+'U2.pdf';
   Load_PDF(PdfView_U2, MyPath);
   MyPath:=DatenPfad+GetComputerName+'\'+'U3.pdf';
   Load_PDF(PdfView_U3, MyPath);
   MyPath:=DatenPfad+GetComputerName+'\'+'U4.pdf';
   Load_PDF(PdfView_U4, MyPath);
   Form_Orga;
end;

Hier werden bis zu 8 pdf-Dokumente geladen... Geladen werden alle, auch das erste, aber wenn das erste geladen wird, dann gehen alle Timer aus...
Das ist die Lade-Procedure:

Delphi-Quellcode:

procedure TForm_Pinnwand.Load_PDF(PDF_Viewer: TPDFView; Datei: string);
begin
   if FileExists(Datei) then begin
      PDF_Viewer.Pdf.Active:=false;
      PDF_Viewer.Pdf.FileName:=Datei;
      PDF_Viewer.PDF.Active:=true;
      PDF_Viewer.Active:=true;
   end
   else begin
      PDF_Viewer.Pdf.Active:=false;
      PDF_Viewer.Pdf.FileName:='';
      PDF_Viewer.Pdf.Active:=false;
      PDF_Viewer.Pdf.FileName:='';
      PDF_Viewer.Active:= false;
      PDF_Viewer.Repaint;
   end;
end;

Finde ich nicht logisch...

[DieDolly]

Bist du sicher, dass der Timer aus geht (Enabled False) und nicht einfach nur hängen bleibt? Das sind zwei sehr große Unterschiede.

[Ykcim]

Stimmt, der Timer bleibt enabled, aber funktioniert nicht...

Übrigens, wenn die Datei nicht gefunden wird, weil sie nicht da, dann tritt der Fehler auch nicht auf. Also spielt er sich irgendwie hier ab

Delphi-Quellcode:

procedure TForm_Pinnwand.Load_PDF(PDF_Viewer: TPDFView; Datei: string);
begin
   if FileExists(Datei) then begin
      PDF_Viewer.Pdf.Active:=false;
      PDF_Viewer.Pdf.FileName:=Datei;
      PDF_Viewer.PDF.Active:=true;
      PDF_Viewer.Active:=true;
   end

[KodeZwerg]

ich vermute stark das dein PDFdingens ein eigener thread ist, der timer hingegen im hauptthread liegt.

teste doch mal den externen multi media timer, was passiert? (der läuft im eigenen thread und sollte IMMER funzen)

[Ykcim]

Ich habe gerade die PDF-Komponenten auf dem Form verglichen. Im ersten hatte ich noch ein OnPaint-Ereignis, indem aber nur die Procedure FormOrga aufgerufen wird. Die habe ich gerade wieder herausgenommen und jetzt funzts. Ich fürchte, damit habe ich mein Programm ziemlich beschäftigt, sodass deshalb die Timer nicht mehr gearbeitet haben.

Wie ihr schon sagtet - zu 100% ein eigener Fehler.

Vielen Dank für die Unterstützung!
Patrick

[DieDolly]

Nicht dein Programm hast du damit beschäftigt, sondern den Main-Thread. Sind auch große Unterschiede

[Ykcim]

Habe das Thema mit den Threads noch nicht verstanden. Ich arbeite immer nur mit dem Main-Thread...
Gibt es da eine einfache Erklärung für - ich lerne gerne...

Vielen Dank
Patrick

[KodeZwerg]

Zitat von Ykcim:

Stimmt, der Timer bleibt enabled, aber funktioniert nicht...

Übrigens, wenn die Datei nicht gefunden wird, weil sie nicht da, dann tritt der Fehler auch nicht auf. Also spielt er sich irgendwie hier ab

Delphi-Quellcode:

procedure TForm_Pinnwand.Load_PDF(PDF_Viewer: TPDFView; Datei: string);
begin
   if FileExists(Datei) then begin
      PDF_Viewer.Active:=false; // kenne das nicht aber da der eine active auf false steht sollte vielleicht der andere das auch?
      PDF_Viewer.Pdf.Active:=false;
      PDF_Viewer.Pdf.FileName:=Datei;
      PDF_Viewer.PDF.Active:=true;
      PDF_Viewer.Active:=true;
   end

siehe den edit da.


oder vielleicht gar so?

Delphi-Quellcode:

procedure TForm_Pinnwand.Load_PDF(PDF_Viewer: TPDFView; Datei: string);
begin
   if FileExists(Datei) then begin
      PDF_Viewer.Active:=true;
      PDF_Viewer.Pdf.Active:=false;
      PDF_Viewer.Pdf.FileName:=Datei;
      PDF_Viewer.PDF.Active:=true;
   end