Hallo,

schreibe meinen ersten Thread und habe bereits ein Problem, die Anwendung startet nicht. Hat jemand eine Idee warum? Der Compiler meldet auch keine Fehler, es passiert einfach nichts.

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;


type
  TMyThread = class(TThread)
    procedure Execute; override;
  end;


type

  { TForm1 }

  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  i: Integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TMyThread.Execute;
begin
  { Threadcode }
  try
    Form1.Label2.Caption := 'Ok';
  except
    on e: exception do begin
      // Fehler...
    end;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := IntToStr(i);
  i := i + 1;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Thread1: TMyThread;
begin
  Thread1 := TMyThread.Create(False); // startet sofort
  i := 0;
end;

end.

Du darfst nicht aus dem Thread heraus auf visuelle Komponenten zugreifen.
Das geht in die Hose.

Zitat von AlexII:

schreibe meinen ersten Thread und habe bereits ein Problem, die Anwendung startet nicht. Hat jemand eine Idee warum?

Ja. Du greifst im Thread auf VCL-Komponenten zu. Guck dir mal synchronized an ... Luckies Tutorial ist auch lesenswert.

Zitat von Neutral General:

Du darfst nicht aus dem Thread heraus auf visuelle Komponenten zugreifen.
Das geht in die Hose.

Ok... hab's entfernt uns es startet trotzdem nicht.

Zitat von AlexII:

Zitat von Neutral General:

Du darfst nicht aus dem Thread heraus auf visuelle Komponenten zugreifen.
Das geht in die Hose.

Ok... hab's entfernt uns es startet trotzdem nicht.

Dann kanns nicht am Thread liegen.
Ist das der komplette Quelltext? Hast du was in der dpr verändert?

Und was genau heißt "es startet nicht"? Hast du mal Breakpoints im FormCreate gemacht oder ggf. sogar in der dpr?
Guck mal wo du genau rausfliegst bzw. hängen bleibst.

Kann es vllt an Lazarus liegen? Der Code ist komplett.

Mit nicht Starten meine ich, dass die exe nicht ausgeführt wird.

Startest du aus Lazarus heraus?
Wenn nicht, dann mach es mal.

Und wenn du es in Lazarus startest:
Was passiert nachdem du auf den Startbutton klickst?
Startet das Programm kurz und beendet sich einen Moment später direkt wieder oder startet das Programm aber es passiert nichts?

In beiden fällen können aber wie gesagt Breakpoints nicht schaden.

Jah... passiert halt nix, der Play-Button(F9) wird kurz inaktiv und sofort wieder aktiv. Ich probiere es mal mit Delphi.

Starte Lazarus/Delphi mal neu und probier es nochmal.
Und wie ich schon zum 3. Mal sage: Setz mal ein paar Breakpoints.
Oder kommentier ein paar der wenigen Zeilen aus und schau an welcher Zeile es liegt.

Welcher "Play-Button"?
Da gibt es 2 Label und das war's.
Und wenn ein Thread irgendetwas Tut, dann sollte er eine Message an das Form senden wenn er dort eine Änderung veranlassen will!

Gruß
K-H