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

Zitat von AJ_Oldendorf:

Noch irgendwelche Anregungen bzgl. Speicherfragmentierung

Deine bisherige Vorgehensweise ist fehlerhaft (Siehe Beitrag #4).
Unter gewissen Umständen greift dein Thread auf ungültigen Speicher zu.
Ob dein Code funktioniert hängt mehr oder weniger vom Zufall ab.

In folgendem Demo
http://www.delphipraxis.net/168253-s...e-threads.html
kannst du Dir anschauen, wie man einen AnsiString (oder beliebige Daten) einem Thread zur Verarbeitung übergeben kann.