Form als eigener Thread

[day]

Hallo

Ich habe ein Intro welches den Status der Verbindung zum Server anzeigen soll. Jetzt möchte ich es so machen, dass zuerst das Intro gestartet wird und während dem das Intro läuft soll sich mein Client mit dem Server verbinden. Das Intro habe ich als Form realisiert.
Mein Problem ist jetzt, dass wenn ich das Intro vorher starte es bis zum schluss durch läuft und erst dann wird die verbindung zum Server aufgebaut. Ich müsste also das Form als Thread starten.
Wie mache ich das?
Reicht es, wenn ich die Form zusätzlich noch von TThread ableite. Oder hat jemand eine andere Idee?

[Dani]

Hi, du könntest auch die Verbindung/Abfrage zum Server in einen Thread packen. Zugriffe auf Forms musst du dann mit Synchronize oder Critical Sections absichern.
(Neu -> Thread-Objekt -> Execute-Methode überschreiben)

Zitat:

Reicht es, wenn ich die Form zusätzlich noch von TThread ableite

Wie würdest du das denn machen? :gruebel:

[dizzy]

Zitat:

Zitat von day

Reicht es, wenn ich die Form zusätzlich noch von TThread ableite.

Delphi <> C
=> keine Mehrfachvererbung

[supermuckl]

da kommt mir jetzt die frage auf

kann man einen thread erstellen und der erstellt dann wenn er rennt ein form, zeigt es solange an und aktualisiert ne gauge bis er fertig ist mit was auch immer und bevor er terminiert terminiert er noch das form wo er selber created hat ?

oder kann ein thread garnicht VCL visuelle objekte instanziieren ohne kollisionen mit dem hauptform irgendwie ?!

weil das wäre ja dann fast die lösung

[Dani]

Welchen Sinn soll es überhaupt haben, ein Form in einem seperaten Thread zu erzeugen? Erzähl doch mal, was genau in diesem Intro passiert.

[himitsu]

Lager doch einfach das ganze Zeug für die Verbindung zum Server in einen Thread aus und starte dieses noch vor dem Form?

[day]

Hallo

Das Form zeigt einen kleinen Video, der die Verbinung in ein Netz darstellt. Gleichzeitig leuchtet ein Schriftzug "Connect to server" der bei einem erfolgreichen verbindungsaufbau zu
"connected... " ändern soll.

Ja momentan habe ich es schon so, dass ich zuerst die Verbindung zum Server aufbaue und dan erst das Intro laufen lasse. Aber ich wollte es eben einmal anders probieren.

Zitat:

Lager doch einfach das ganze Zeug für die Verbindung zum Server in einen Thread aus und starte dieses noch vor dem Form

Der komplette Verbindungsaufbau habe ich in einem DataModule (welches von TDataModule abgeleitet ist). Kann daher nicht so einfach einen Thread erzeugen

[tommie-lie]

Zitat:

Zitat von supermuckl

kann man einen thread erstellen und der erstellt dann wenn er rennt ein form, zeigt es solange an und aktualisiert ne gauge bis er fertig ist mit was auch immer und bevor er terminiert terminiert er noch das form wo er selber created hat ?

oder kann ein thread garnicht VCL visuelle objekte instanziieren ohne kollisionen mit dem hauptform irgendwie ?!

Ob ein VCL-Thread auch visuelle VCL-Komponenten erzeugen kann, weiß ich nicht, die VCL ist verworren genug, da habe ich mich nie mit soetwas auseinandergesetzt.
Aber ein Thread kann auf jeden Fall nonVCL ein Fenster erzeugen und anzeigen.

Aber ich würde trotzdem himitsus Lösung nehmen, normalerweise trennt man nämlich die Arbeit von der Oberfläche, und nicht umgekehrt.

[michael.kaufmann]

einem Thread kann man natürlich jegliche Vcl Componenten generieren und auch ansprechen.
aber wie gesagt, ist es nicht sinnvoll das man das Formular in einen Thread auslagert.

[tommie-lie]

Zitat:

Zitat von michael.kaufmann

einem Thread kann man natürlich jegliche Vcl Componenten generieren und auch ansprechen.

Naja, so natürlich finde ich das bei der VCL gar nicht. Formulare melden sich ja gerne in der TApplication-Instanz an, da müsste man auf Thread-Safety achten.

[michael.kaufmann]

nein eigentlich nicht wenn das formular in einem thread ist und nur in diesem thread bearbeitet wird ist das kein problem. Probleme gibt es nur wenn andere threads das formular ansprechen bzw. eine neue instanz von einem anderen thread erzeugt wird.

jaj die Tapplication da haben sie das problem mit clx und dlls :)

[day]

hallo
Das Intro hat im grossen und ganzen keine interaktionen. Deshalb sehe ich da einen kleineren Aufwand das Form als Thread zu erzeugen. Wenn ich hingegen das DataModule als Thread erzeugen würde wäre das ein weit grösserer Aufwand.

[Jens Schumann]

Hallo,
wenn ich es richtig verstehe handelt es sich hier um das Splashscreen-Problem.
Erzeuge im Projektquelltext das Formular mit dem Intro vor dem DataModul und
verwende Show anstatt ShowModal.

[day]

Hallo

Ich habe eine Lösung. Bin zwar nicht ganz so glücklich aber es läuft. Was haltet ihr davon?
Was würdet ihr verbessern?

Code:

  constructor TMain.create();
  var i : Integer;
  begin

    //Überprüft, dass nur eine Applikation pro PC gestartet wird.
    if ( FindWindow( Nil, PChar( APPLICATION_TITLE )) = 0 ) Then
    begin
      //initCodeSite
      mSys := TSystemFunc.create();
      mSys.InitCodeSite();

      mHasError := False;

      //Applikation initialisieren
      Application.Initialize;
      Application.Title := APPLICATION_TITLE;

      initIntro();
      //mIntro := TIntroThread.Create(False);

      // Kurze Pause damit der User das Intro auch sieht.
      // Processmessage wird benötigt damit die Schrift angezeigt wird.
      for i:= 1 to 100 do
      begin
        Application.ProcessMessages;
        sleep(20);
      end;
      initDataModule();

      if(DM.DCOMConnection.Connected) Then IntroForm.ConnectionLabel.Caption := 'Connected ...';
      Application.ProcessMessages;
      initScreens();

      // Kurze Pause damit der User sieht dass sich der Server verbunden hat.
      // Processmessage wird benötigt damit die Schrift angezeigt wird.
      for i:= 1 to 50 do
      begin
        Application.ProcessMessages;
        sleep(10);
      end;

      // Intro wird Angehalten
      if(not mHasError) Then IntroForm.StopIntro();

      Application.Run;

    end
    else
    begin
      Windows.Beep(500,250);
      MessageDlg( APPLICATION_TITLE + ' is not able to run twice on this PC.', mtError, [mbOK], 0);
    end;
  end;