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;