Hallo,

ich habe folgendes Problem...

Die Applikation befasst sich mit der seriellen Kommunikation mit externen Geräten.

Durch Betätigung bestimmter Button kann der User die Kommunikation einleiten.

Auf ein buttonclickereignis regiere ich mit der Bildung eines Threads der den Ablauf der Kommunikation kontrolliert. Nach Abschluß der Kom. wird der Thread terminiert. (Klappt alles gut)

Jetzt zum Problem

Beispiel
1. erster thread soll erzeugt werden - Kommunikation - Terminierung (button: br1)
2. eine timeoutzeit von ca. 4 Sek. ist notwendig um das externe System zu resetten (sleep (4000))
3. jetzt soll automatisch ein zweiter thread erzeugt werden - Kommunikation - Terminierung (button: bf)


aber: wenn sleep (x) im "Hauptprog" aufgerufen wird, läuft auch der erste tread nicht mehr

Frage : was kann man tun, um im "Hauptprog" ein sleep zu nutzen ohne das threads angehalten werden.
(ich kan natürlich auch über timer, uhrzeit...etc arbeiten, aber das mit den threads und dem sleep-Befehl würd ich halt gerne verstehen)

markieren

Code:

  br1click (button1); { Aufruf der Kommunikation }
  sleep (4000);            { hier soll gewartet werden (aber eben nur das Hauptprog)}
  bfclick (button1);       { Aufruf eines weiteren threads }

MfG. Uwe

DELAY

Moin Uwe,

das Problem kann ich nicht nachvollziehen.
Ich hab' mir eben mal ein Thread Objekt gebaut, dass zehn Mal alle 500 ms die aktuelle Zeit in eine Datei schreibt.
Den erzeuge ich mit CreateSuspended = false, woraufhin er sofort losläuft und in die Datei schreibt.
Dann kommt ein Sleep, und danach wird so ein Thread erneut erzeugt.
Während der Hauptthread wegen des Sleep wartet, läuft der erste Thread problemlos weiter.

Alles andere hätte mich allerdings auch stark gewundert, da Sleep nur den Thread anhält, in dem der Aufruf erfolgt.

Hallo,

und danke für die schnellen Antworten.

Hier noch mal ein wenig mehr source

markieren

Code:

(*
  tloadercom = class (tthread)
  protected
    procedure Execute; override;
    procedure hallo;
    procedure destroy;
  public
    constructor create;
  end;
*)

 procedure TForm1.br1Click(Sender: TObject);
 begin
{ Erzeugung des thread }
   if loadercom <> nil then loadercom. terminate; { loadercom : tloadercom } 
   todostatus := st_erase;
   Form1. buttonaus;
   loadercom := tloadercom. create;

{ irgend ein code }
  {............................
  .............................
  .............................
  .............................}

{ Ende des thread }
   finally
     if not loadercom. terminated then loadercom. terminate;
 end;

..............
  br1click (button1);
  Delay2 (3);          
  bfclick (button1);
  display_string ('bf');

@Luckie:
Das mit dem Delay klappt bei mir nicht.
Selbst mit msec := 3 kommt der Delay erst nach ca. 5-6 Sekunden wieder


@Chris:
Erzeugung meines treads siehe oben
So wie Du das mit dem sleep erklärst habe ich das auch verstanden (dachte ich ).
Ich benutze noch Delphi 2.0 dev. vielleicht liegts daran?

MfG. Uwe

Moin Uwe,

ob's mit D2 geht hab' ich jetzt nicht ausprobiert, aber eigentlich dürfte es keinen Unterschied machen.

Was mir aber gerade noch einfällt:
Greifst Du aus dem Thread heraus auf Objekte des Hauptthreads zu?
Das würde zumindest erklären, warum der Thread stehenbleibt solange Sleep den Hauptthread anhält.

Hallo Chris,

ja, ich habe meine NVC für die V24 im Form1 abgelegt und nutze auch einige Routinen daraus.

Das wird genau die richtige Erklärung sein , böser Fehler von mir.

Dann werd ich das mal umschreiben, danke!

Bis später, Uwe