Hallo,

für ein Projekt habe ich eine Unit geschrieben, die ich auch für andere Projekte verwenden möchte.
Diese Unit soll mit einem Messgerät kommunizieren und von diesem Daten empfangen.
Zu diesem Zweck habe ich ein Klasse TLMG erstellt, die alle Attribute, Felder und Methoden enthält.

zusammenfalten · markieren

Delphi-Quellcode:

type

  TLMG = class(TObject)
  private
    LMGClient: TIdTCPClient;
    ReadDataThreadHandle: THandle;
    ReadDataThreadID: Cardinal;
    procedure ReadDataThread;
    procedure Status(ASender: TObject;
      const AStatus: TIdStatus; const AStatusText: string);
  public
    { Public-Deklarationen }
    run: boolean;
    constructor Create(SHost: string; SPort: integer);
    procedure LMGConnectThread();
  end;

Den Constructor und den Verbindungsaufbau rufe ich aus einer Formularanwendung auf.

markieren

Delphi-Quellcode:

procedure TfrmMitMemo.btnShowInputClick(Sender: TObject);
begin
  LMG1 := TLMG.Create('172.16.6.1', 24500);
  LMG1.LMGConnectThread;
end;

Der Constructor sieht wie folgt aus:

markieren

Delphi-Quellcode:

constructor TLMG.Create(SHost: string; SPort: Integer);
begin
  LMGClient := TIdTCPClient.Create();
  LMGClient.Host := SHost;
  LMGClient.Port := SPort;
  LMGClient.OnStatus := Status;
end;

Für den Verbindungsaufbau gibt es in der Unit die Methode

zusammenfalten · markieren

Delphi-Quellcode:

procedure TLMG.LMGConnectThread;
begin
  try
    LMGClient.Connect;
    if LMGClient.Connected then
      begin
        // Thread Starten
        ReadDataThreadHandle := BeginThread(nil, 0, @TLMG.ReadDataThread, nil, 0, ReadDataThreadID);
      end;
  except
    on E: Exception do
      begin
        LMGClient.Disconnect;
        LMGClient.Free;
      end;
  end;
end;

Bis hier hin funktioniert auch noch alle ganz gut.
Wenn ich jetzt jedoch die Methode ReadDataThread als Thread starten, siehe oben,
gibt es LMGClient im ReadDataThread nicht mehr.

markieren

Delphi-Quellcode:

procedure TLMG.ReadDataThread;
begin
  LMGClient.Disconnect;
  LMGClient.Free;
end;

Meine Frage:
Was muß ich anstellen damit ich LMGConnectThread als Thread in der Formularanwendung
und ReadDataThread in der Unit als Thread aufrufen kann.
So z.B.
In der Formularanwendung

markieren

Delphi-Quellcode:

procedure TfrmMitMemo.btnShowInputClick(Sender: TObject);
var
  LMGConnectThreadHandle: THandle;
  LMGConnectThreadID: Cardinal;

begin
  LMG1 := TLMG.Create('172.16.6.1', 24500);
  LMGConnectThreadHandle := BeginThread(nil, 0, @TLMG.LMGConnectThread, nil, 0, LMGConnectThreadID);
end;

In der Unit

zusammenfalten · markieren

Delphi-Quellcode:

procedure TLMG.LMGConnect;
begin
  try
    LMGClient.Connect;
    if LMGClient.Connected then
      begin
        // Thread Starten
        ReadDataThreadHandle := BeginThread(nil, 0, @TLMG.ReadDataThread, nil, 0, ReadDataThreadID);
      end;
  except
    on E: Exception do
      begin
        LMGClient.Disconnect;
        LMGClient.Free;
      end;
  end;
end;

Anbei die beiden Programmteile.

Für Anregungen und Beispiele wäre ich sehr dankbar.

MfG
Lars

Hast du das Ganze mal durch gedebuggt und geschaut, ob er nicht in deinen Exception-Block läuft und den LMGClient schon wieder frei gibt? (In deiner LMGConnectThread Procedure)

Und warum hast du keine Thread-Klasse (TThread) erstellt?

Das macht das doch nur alles komplizierter

Das Problem ist, dass du eine Klassenmethode an BeginThread übergibst. Klassenmethoden erwarten, dass sie einen Zeiger auf die aktuelle Objektinstanz übergeben bekommen. Dies passiert je nach Aufrufkonvention z.b. im ECX Register oder als zusätzlicher Parameter auf dem Stack. Im Normalfall bekommt man davon nichts mit, außer dass man halt innerhalb der Methode ohne Probleme auf "Self" oder andere Felder der eigenen Klasse zugreifen kann. Lesestoff dazu:
http://www.delphipraxis.net/97037-me...vertieren.html

Ich würde dir aber, wie schon von Sir Rufo vorgeschlagen, empfehlen die TThread Klasse zu verwenden.

Oder zumindestens dafür sorgen, daß der "richtige" Parameter als Parameter an ReadDataThread via BeginThread übergeben wird.

> das zweite NIL muß ein Self sein


Und damit es ganz richtig ist, muß es eigentlich function TLMG.ReadDataThread: Integer; sein.

Hallo,

der Vorschalg von himitsu schien mir am leichtesten umzusetzten, da ich noch
nicht wirklich Ahnung von Klassen habe.
Ein anwendbares Beispiel hierfür wäre nett.

Der Threadaufruf für ReadDataThred in der Unit
funktioniert mit sef statt nil ganz gut.

Jetzt habe ich nur noch ein Problem.
Der Aufruf von LMGConnect als Thread in der Formularanwendung.
Das ist sicher über Klassen auch einfach, nur wie gesagt, mein Wissen zum
Thema Klassen ist noch sehr beschränkt.
Hier wäre ich dankbar wenn es auch ohne gehen würde, oder wenn nicht, ein
anwendbares Beispiel zum Thema Klassen wäre nett.

Für Euche Hilfe, vielen Dank.

MfG
Lars

Bezüglich der TThread Klasse gibt es hier ein kleines Tutorial:
http://www.delphi-treff.de/tutorials...reads/tthread/

Wenn du ein Paar Seiten vorblätterst, erhälst du sogar noch eine allgemeine Einleitung zum Thema Threads.

Ein Beispiel zur Anwendung gibt es z.b. hier:
http://stackoverflow.com/a/3451813/3140346

Zitat:

Der Aufruf von LMGConnect als Thread in der Formularanwendung.

Bin nicht ganz sicher, was hier dein Problem ist, aber theoretisch kannst du auch hier einfach die Objektinstanz als Parameter übergeben:
LMGConnectThreadHandle := BeginThread(nil, 0, @TLMG.LMGConnectThread, LMG1, 0, LMGConnectThreadID);

Hallo,

LMG1, das wars, Danke.


MfG
Lars

Das was in folgendem Code passiert ist aus mindestens 2 Gründen sehr sehr unschön:
1. wird high-level mit low-level Code vermischt.
Dies sollte man vermeiden und stattdessen auf einer Abstraktionsebene bleiben; zumal es in diesem Fall recht einfach wäre den low-level Code zu vermeiden.
2. das Handle für der Thread dürfte die Klasse TLMG niemals verlassen denn es ist der Job dieser Klasse die Kommunikation zu managen.

markieren

Delphi-Quellcode:

procedure TfrmMitMemo.btnShowInputClick(Sender: TObject);
...
begin
  LMG1 := TLMG.Create('172.16.6.1', 24500); // high-level code (objektorientiert)
  LMGConnectThreadHandle := BeginThread(nil, 0, @TLMG.LMGConnectThread, nil, 0, LMGConnectThreadID); // low-level code (API-Aufruf)
end;