Hallo zusammen,
ich möchte nur mal fragen, ob ihr das auch so machen würdet bzw. ob es hier vielleicht eine "elegantere" Lösung gibt oder wie auch immer.
Eins vorab: Dieser Programmteil funktioniert schon und ich möchte nur eure Meinung dazu hören!

Es geht darum von "außen" an einen Thread eine Nachricht in Form eines AnsiStrings zu schicken.

Aufruf von außen:

zusammenfalten · markieren

Delphi-Quellcode:

function SchickeNachricht (aMsg: PAnsiString): Boolean;
var
  SendMsg : PAnsiString;
  wParam,
  lParam : LongInt;
  aPointer : Pointer;
begin
  New (SendMsg);
  SendMsg^ := aMsg^;
  aPointer := SendMsg;
  wParam := MyOwnID;
  Move (aPointer, lParam, SizeOf(LongInt));
  Result := PostThreadMessage (MyThreadID, WM_User, wparam, lparam);
end;

Und hier der Empfang im Thread:

zusammenfalten · markieren

Delphi-Quellcode:

var
  MessageData : TMsg;
  wParam,
  lParam : LongInt;
  RecPointer : Pointer;
  SendMsg : PAnsiString;

...

      while PeekMessage(MessageData, 0, 0, 0, PM_REMOVE) do
      begin
        Case MessageData.Message of
          WM_User : begin
                          wParam := MessageData.wParam;
                          if wParam = MyOwnID then
                          begin
                            lParam := MessageData.lParam;
                            Move (lParam, RecPointer, SizeOf(Pointer));
                            SendMsg := RecPointer;
                            //Hier irgendwas mit der Nachricht machen
                            CheckPoint := 5;
                            Dispose (SendMsg);
                          end;
                        end;
        end;
      end;

Ich hoffe ich habe nichts übersehen bei der Variablendeklaration

Gruß
Alex

Hat das einen bestimmten Grund, dass du überall Low-Level-Code verwendest?
Würde man eine TThread-Klasse zusammen mit einer TThreadList (als threadsichere Queue) verwenden, wäre der Code viel klarer.
Nachtrag: Dazu noch ein TSimpleEvent, damit der Thread die Queue nicht pollen muss.

Und in deiner Funktion SchickeNachricht sehe ich das Problem, dass du mit New einen Zeiger reservierst, aber der eigentliche Inhalt, der String, ist ungeschützt.
Kleines Beispiel:

markieren

Delphi-Quellcode:

procedure Test;
begin
  SchickeNachricht(PAnsiString('Hello World'));
end;
// Nach dem Ende der Prozedur Test zeigt der übergebene Zeiger auf ungültigen Speicher!
// Der Thread greift ins Leere

Hi Shmia,
was genau meinst du mit "Low-Level-Code"?
Mit TThreadList und TSimpleEvent habe ich mich ehrlich gesagt noch nie beschäftigt. Muss ich mir erstmal angucken, kann dazu also im Moment nicht viel sagen.

Der String wird vor der "SchickeNachricht" Funktion auf Gültigkeit überprüft und nur dann diese Funktion aufgerufen. Ich denke, dass wolltest du mir damit sagen oder?

Gruß
Alex

Zitat von AJ_Oldendorf:

was genau meinst du mit "Low-Level-Code"?

Häufiges Verwenden von Zeigern.
Ansprechen von Windows API direkt in der Anwendung ohne Zwischenschicht.
Vermeiden von Objekten oder ganz allgemein Vermeiden von OOP.

Das ist Low-Level-Code.
Ganz allgemein gibt es Code auf verschiedenen Abstraktionsebenen.
Es fängt ganz unten an mit Assembler (z.B. für Interruptroutinen) geht dann über Kernel-Funktionen (Programmiert in C), APIs des Betriebssystems bis zur höchsten Abstraktionsebene im Anwendungsprogramm.
Low-Level-Code ist per se nichts Schlechtes, aber man sollte ihn an der richtigen Stelle verwenden.

Zitat von AJ_Oldendorf:

Der String wird vor der "SchickeNachricht" Funktion auf Gültigkeit überprüft und nur dann diese Funktion aufgerufen. Ich denke, dass wolltest du mir damit sagen oder?

Nein ich wollte sagen, dass SchickeNachricht fehlerhaft ist.
Du kopierst nur einen Zeiger anstatt den gesamten String zu kopieren.

zusammenfalten · markieren

Delphi-Quellcode:

function SchickeNachricht(aMsg: AnsiString): Boolean;
var
  SendMsg : PAnsiString;
  wParam,
  lParam : LongInt;
  aPointer : Pointer;
begin
  if aMsg = '' then
  begin
    Result := False;
    exit;
  end;
  GetMem(SendMsg, Length(aMsg)); // Speicher für gesamten String reservieren
  Move(aMsg[1], SendMsg^, Length(aMsg)); // String kopieren

  wParam := MyOwnID;
  Result := PostThreadMessage(MyThreadID, WM_User, wparam, LongInt(SendMsg));
end;

Ok danke für deine Aufklärungen.
Aber mir ist nicht ganz klar, warum ich aus dem Anwenderprogramm keine Windows API aufrufen sollte?!

Zu dem Funktionsaufruf:
Ich übergebe doch schon ein PAnsiString und kein AnsiString...
Da brauche ich deine Änderungen doch nicht oder sehe ich das falsch?

Gruß
Alex

Wo kommt der PAnsiString-Parameter für SchickeNachricht her?

Strings verfügen über eine Referenzzählung, da kann der Strinng schnell mal verschwinden, selbst wenn er es nicht sollte, weil irgendwo noch ein Pointer drauf zeigt.
Genauso kann man über sein wildes rumgepointere die Speicherverwaltung auch andersrum zerschießen und der String würde nie freigegeben.