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...