Hallo nahpets,
Zitat:
Bleibt der Fehler dann bestehen?
Ja, der Fehler ist der selbe. Der Screenshot der Fehlermeldung befindet sich schon im ersten Post.
Zitat:
Kannst Du eventuell im Programm in eine Textdatei mitloggen, welche Schritte durchgeführt werden, so ala
Zitat:
Code: markieren
Delphi-Quellcode:
starte formcreate
beende formcreate
Das habe ich noch nie gemacht, wie meinst Du das. Einfach so die Art SavetoFile oder wie.
Habe das jetzt mit ShowMessage gemacht, und zwischen ShowMessage('2'); und ShowMessage('2b'); bring er den Fehler, das heißt genau bei
QryMB256PLUS.Open;
Delphi-Quellcode:
procedure TForm1.VSTFüllen;
var
Daten : TOMB256PLUS;
Count : Integer;
begin
if ServiceGetStatus('', 'FirebirdGuardianDefaultInstance') = 4 then
begin
if not QryMB256PLUS.Active then
ShowMessage('2');
QryMB256PLUS.Open;
ShowMessage('2b');
und wie man sieht, kann es nicht der Firebird Dienst sein, weil
if ServiceGetStatus('', 'FirebirdGuardianDefaultInstance') = 4 then
der ist ja 4 also gestartet. Aber woher kommt der Fehler, Klicke ich die ShowMessage Meldungen nur langsam durch, so ala
1 Sek. Klick, 1 Sek. Klick etc. Startet mein Programm normal.
Starte ich nicht mit Autostart, sondern Manuell so 5 Sek, nach dem man glaubt Windows ist fertig. kommt kein Fehler.
Starte ich nicht mit Autostart, sofort, nachdem ich die Maus Bedienen kann, erscheint der Fehler, somit kann es nicht die Autostart sein.
Genau das gleiche ist ja auch, wenn ich die ShowMessage so ala 1 MSek Klick, 1 MSek Klick etc bestätige, da kommt der Fehler wie gesagt ja bevor ShowMessage 2b erscheint.
Gruß
Jens
PS: Es gibt doch soviel Programm die die Autostart nutzen.
