Hallo liebes Forum. Einen Code den ich schon einmal vor kurzem hier gepostet habe, habe ich übertragen von einer Timer Procedure in eine Thread Procedure. Ist der USB Stick mit der Datei KEYxyz.txt vorhanden, bleibt das Programm wunschgemäß geöffnet und führt ein mal Laden() aus. Steckt man den USB Stick aus, soll das Programm sofort schließen. Hier liegt das Problem: Anstelle zu schließen, erscheint ein flackernder Bildschirm, man sieht an den Driver und File Komponenten, dass die Laufwerkskontrolle kontinuierlich fortgesetzt wird. Er kommt nicht rein in den "Showmesage('JA')" Bereich.

Ich gebe zu, die Art und Weise der Programmierung ist wahrscheinlich etwas "Oldschool", es soll in erster Linie funktionieren, dass das Programm ohne Vorwarnung schließt ist absichtlich so gewollt. Ich bitte um eine Fokussierung auf mein Problem und bitte keine Wiederholungen von den Posts von vor Kurzem. Vielen Dank für Antworten.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMyThread.Execute;
var j,i:integer; LookFor: string; f: File; pausieren: boolean;
begin
while not(closing) do begin

     Sleep(1000);
     
try //T
         pausieren:=false;
         j:=0;
   
    while ((j < (Form29.DriveCombobox1.GetCount)) and (not(pausieren))) do
    
    begin //B

      Form29.DriveCombobox1.itemindex:=j;

      Form29.FileListBox1.Directory:=Form29.DriveCombobox1.text[1] + ':/';

      LookFor:='KEYxyz.txt';

      Form29.FileListBox1.Update;

     i:=0;
                                            
    while ((i < (Form29.FileListBox1.Count)) and (not(pausieren))) do
   
    begin //A

      if (Form29.FileListBox1.Items[i]= LookFor) then begin //Showmessage('gefunden');

            FileNom:= Form29.FileListBox1.Directory + LookFor;

                        if timerstarter then begin

                          Laden();
                          timerstarter:=false;
                        end;
                            
                            pausieren:=true;
                                Showmessage('in pausieren drin');

      end;
      Inc(i);

    end; //A
 
       if ((j=Form29.DriveCombobox1.GetCount-1) and (not(pausieren))) then begin Showmessage('JA'); closing:=true; Application.Terminate; end;
 
       Inc(j);

    end; //B
    except //T
     on EInOutError do begin
//showmessage('Fehler mit dem Datenträger!');
     Application.Terminate;
    end;
end;
end;
end;

Hallöle...

Ist TMyThread wirklich ein TThread? Zeige mal die Deklaration und das Create...

PS: Wenn ja...nimm schon mal Baldrian wegen der Reaktionen.

Falls der Baldrian noch nicht wirkt, versuche ich es mal vorsichtig:

Auf visuelle Komponenten (Forms, Comboboxen etc.) darf man von einem Thread aus nicht direkt zugreifen. Das ist nicht "oldschool", das geht ganz einfach nicht. Das ist wie beim Autofahren die Reifen wechseln, während man mit 180km/h im Baustellenbereich überholt.

Alle Parameter die TMyThread zum arbeiten braucht:
Entweder im constructor mitgeben und lokalen Variablen der Threadklasse zuweisen.
Oder als Property der Threadklasse aber dann vor dem Start zuweisen und nach dem Start von außen nicht mehr darauf zugreifen.

Innerhalb von TMyThread.Execute nicht auf die VCL (Formulare, Steuerelemente, Dialoge) oder globale Variablen zugreifen.

Ersetze die Zugriffe auf deine DriveCombobox und FileListBox durch FindFirst(), FindNext() und FindClose().

Statt umständlich mit der Variable "pausieren" zu arbeiten, einfach Abort() aufrufen.

Rückgabewerte ebenfalls als Property anlegen.
Auf diese Property und die VCL kann im TMyThread.OnTerminate-Ereignis zugegriffen werden.
Der constructor und dieses Ereignis laufen im Hauptthread der Anwendung.

Das sieht für mich leider so aus als wurde versucht in großer Verzweiflung Ereignisse zu kreieren, die beim anschließen und entfernen eines USB Sticks erzeugt werden.

Ich habe so etwas auch schon mal verwendet, um beim einstecken eines USB Sticks ein Software Update auszuführen.

Ich habe dabei das Windows Event WM_CHANGEDEVICE ausgewertet. Ein Beispiel hierzu habe ich unter http://nitemsg.blogspot.com/2011/01/...-that-you.html gefunden.

Da GUI-Komponenten per se nicht threadsave sind, ist ein "unsynchronisierter" Zugriff aus Threads nicht anzuraten verboten.

Wird in den Funktionen "nur" ein SendMessage genutzt, oder du nutzt selbst SendMessage, dann gibt es keine Probleme, da die Aufrufe von SendMessage/PostMessage immer im Thread des Erstellers der Komponenten (WinCntrols) ausgeführt wird ... es wird also immer in den MainThread syncronisiert.
Macht die Komponenten-Funktion aber mehr/Anderes, wie Zugriffe auf Variablen, dann war's das und man muß selbst mit Thread.Synchronize ran.



Aber, wie schon einmal gesagt: Wer kommt heute bitte auf die saudumme Idee diese uralten und seit Jahrzehnten nicht mehr gewarteten Komponenten zu benutzen?
Wer kommt auf die leicht blöde Idee GUI-Komponenten nur für eine interne Laufzeitfunktion zu verwenden.
Wer auf die unsinnige Idee das ganze Verzeichnis aufzulisten, um "eine" Datei zu suchen?

Es gibt genügend RTL-Funktionen, um all das ohne GUI zu machen, welche in sich alle threadsave sind.
IOUtils und die anderen alten File-API.

Ich mache das so: Der USB Stick wird nur ab und zu abgefragt, dass Ausstecken überwache ich mit der Message WM_DEVICECHANGE;

Zitat von himitsu:

Aber, wie schon einmal gesagt: Wer kommt heute bitte auf die saudumme Idee...

Na ich bin nun mal Amateur. Aber es gibt ja bekanntlich keine blöden Fragestellungen sondern nur blöde (und fiese) Antworten.
Ich werde das ganze jetzt natürlich umkonzipieren ohne GUI Komponenten.

Du kannst mit FileExists prüfen, ob eine Datei existiert. Sprich für deine Fall reicht einfach ein Timer und da packst du rein:

markieren

Delphi-Quellcode:

  if not FileExists('d:\....txt') then
    Application.Terminate;

Wenn das alles ist, was du möchtest.

Zitat von DelphiUser123:

Zitat von himitsu:

Aber, wie schon einmal gesagt: Wer kommt heute bitte auf die saudumme Idee...

Na ich bin nun mal Amateur. Aber es gibt ja bekanntlich keine blöden Fragestellungen sondern nur blöde (und fiese) Antworten.
Ich werde das ganze jetzt natürlich umkonzipieren ohne GUI Komponenten.

https://www.delphipraxis.net/215934-...ert-nicht.html