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.

Hier ein Ausschnitt, wie der PAnsiString erzeugt wird:

zusammenfalten · markieren

Delphi-Quellcode:

function ErzeugeNachricht(InMsg : PAnsiString) : Boolean;
var
  aStr : String[4];
begin
  Result := True;
  try
    SetLength(InMsg^, 5);
    aStr := '100';
    Move (aStr[1], InMsg^[1], 3);
  except
    Result := False;
  end;
end;


Var
  MyMsg : AnsiString;
...

ErzeugeNachricht(@MyMsg);
SchickeNachricht(@MyMsg);

Hoffe habe nix übersehen, passe den Quelltext hier manuell bisschen an, weil es sonst zu viel wäre zum zeigen
Gruß
Alex

Ich würde nun auch noch fragen, wo der Parameter für ErzeugeNachricht herkommt.

Aber warum sind diese Parameter denn als Pointer ausgelegt?

Wenn InMsg vor ErzeugeNachricht weniger als 5 Zeichen enthält, dann sind die letzten 1-2 Zeichen undefiniert.

Und was soll das Try-Except darin?
Rechnest du etwa fest mit Problemen?
(solange der übergebene Pointer OK ist, dann wird nichts passieren
und wenn was passiert, dann ist die Chance recht groß, daß du dir dein komplettes Programm zerschießt, auf was mit einem billigen False nicht angemessen reagiert würde, da danach eventuell nicht mehr läuft)

PS: Auch PostMessage hat ein Result.



Wofür soll das denn nun genutzt werden und wie viel, bzw. wie oft, wird was versendet?
Hoffentlich nicht prozessübergreifend oder über Modulgrenzen (EXE/DLL<>DLL) hinweg.


Ja, es mag vielleicht funktionieren, aber je nach Anwendungsfall gibt es bestimmt/eventuell auch andere/bessere/passendere Möglichkeiten.

Hi,
wo die Variable für ErzeugeNachricht herkommt, ist doch dargestellt

markieren

Delphi-Quellcode:

Var
  MyMsg : AnsiString;
...

ErzeugeNachricht(@MyMsg);

Zum Beispiel könnte der Aufruf durch ein Button Klick kommen.

Zitat:

Wenn InMsg vor ErzeugeNachricht weniger als 5 Zeichen enthält, dann sind die letzten 1-2 Zeichen undefiniert.

Das stimmt. Habe den Code nur "zusammen kopiert" und diese Stelle nicht richtig angepasst gehabt. Ist also Zufall das es da so steht.

Das Try except habe ich einfach nur zur Sicherheit drum gemacht. Könnte man natürlich auch weglassen.

Die Anwendung arbeitet ohne DLL's, also diese Aufrufe sind nur innerhalb der Anwendung.
Ich kann leider nicht zur sehr ins Detail gehen weil diese Anwendung bei und auf Arbeit entwickelt wurde und deswegen kann ich auch nicht den ganzen Code darstellen. Ich versuche es aber so gut es geht zu beschreiben.
Wir arbeiten mit Nachrichten wie ihr schon gesehen habt. Es gibt ein Hauptthread der die empfangenen Nachrichten auswertet und an die entsprechenden "Unterthreads" weiterleitet. Dies geschieht sehr oft im Programm weil die Kommunikation nur über dieses "Message-Konstrukt" arbeitet (also wird sehr oft benutzt).
Das Konstrukt für das Schicken und Empfangen der Nachrichten ist das von mir beschriebene. Ich sage auch nicht, dass dies die ultimative Lösung wäre, deswegen habe ich ja hier nachgefragt und würde gerne ein paar Anregungen sammeln, wie man sowas auch noch lösen könnte. Ich bin mir auch nicht ganz sicher ob diese beschriebe Lösung, nicht den Speicher ordentlich "framentiert"?!

Viele Grüße
Alex

Noch irgendwelche Anregungen bzgl. Speicherfragmentierung bzw. wird der Speicher durch das obere Konstrukt unnötig fragmentiert?!
Das mit dem TSimpleEvent und der ThreadList habe ich mir mal angeguckt. Muss ich mal versuchen umzusetzen in einzelnen Bereichen. Weiß aber nicht, ob ich da wirklich eine "Verbesserung" oder ähnliches feststellen kann. Sehe wahrscheinlich nur, dass es genauso geht oder?!

Gruß
Alex