PChar to String & zurück - Zeichen geht verloren

[mkinzler]

Zitat von brechi:

Nein versuchs so nicht. Funktionen geben keine PChars zurück. Nimm nen String oder packs als Parameter rein und lass die Aufrufende Funktion den Speicher allokieren.

Funktionen in Dlls schon!

[ThE_-_BliZZarD]

@mkinzler: Danke.
/me sets mode: +gott mkinzler

Das wars.. *freu* tausend dank xD

Lösung falls jemand auch mal dieses Problem hat:

Delphi-Quellcode:

function aufreg(meinParameter: PChar): PChar;
var
  meinString: String;
begin
   meinString := meinParameter
   result := PChar(meinString+#0);
end;

[mkinzler]

Wurde doch schon von Dax vorgeschlagen, habe nur seinen Vorschlag in deinen Code eingebaut.

[Dax]

Zitat von brechi:

Nein versuchs so nicht. Funktionen geben keine PChars zurück. Nimm nen String oder packs als Parameter rein und lass die Aufrufende Funktion den Speicher allokieren.

/signed

Wenn man es anders löst, wird man sich vor nicht auffindbaren Speicherlecks nach einer Weile nicht mehr retten können.

[brechi]

wtf? Entweder ich hab nen Denkfehler weil ich noch zu besoffen bin, hab das Prinzip von String/PChar in Delphi nicht verstanden oder ihr programmiert alle grauenhaft.

Strings werden von Delphi verwaltet, sind also auch gültig wenn man sie als Rückgabewert missbraucht.

PChar ist das selbe wie ein Pointer. Und wenn ihr das so programmiert dann ist dieser Pointer nicht mehr gültig da dieser auf eine Lokale Variable zeigt. Sowas macht man eben nicht.
Machs so wie MS mit ihren APIs: Sobald du PChars zurückbekommen willst, muss die aufrufende Funktion den Speicher allokieren und freigeben wenn sie den nicht mehr braucht.

z.B. GetModuleFileName

Meienr Meinung nach kann es auftreten, dass Delphi merkt, dass der lokale String nicht mehr benutzt wird und ihn überschreibt, bzw. dessen Speicher freigibt. Du arbeitest u.U. noch weiter mit diesem String (bzw. nur der Adresse) und es kann ggf crashen.

Oder schreibt ihr auch so geniale Funktionen wie:

Delphi-Quellcode:

function blub(a: integer): pinteger;
var s: integer;
begin
  s := a;
  result := @s;
end;

Wäre nett wenn mir mal jemand meine falsche denkweise erklärt.
Danke!

Edit:

Zitat von mkinzler:

Zitat von brechi:

Nein versuchs so nicht. Funktionen geben keine PChars zurück. Nimm nen String oder packs als Parameter rein und lass die Aufrufende Funktion den Speicher allokieren.

Funktionen in Dlls schon!

Was hat ein allgemeines Stack/Speicher/Addressproblem mit Dlls zu tun. Da wäre das genau so falsch (meiner Auffassung nach)


Edit2:
wer es testen will (Aufruf mit dem wort 'lol')

Rückabe: lol

Delphi-Quellcode:

var
  meinString: String;
function aufreg(meinParameter: PChar): PChar;
begin
   meinString := meinParameter;
   result := PChar(meinString);
end;

Rückgabe: lo

Delphi-Quellcode:

function aufreg(meinParameter: PChar): PChar;
var
  meinString: String;
begin
   meinString := meinParameter;
   result := PChar(meinString);
end;

[Muetze1]

Brechi hast vollkommen Recht. Es ist immer eine temporäre PChar Konvertierung und die verliert genauso ihre Gültigkeit wie auch die lokale string Variable mit verlassen der Funktion. Der Rückgabewert zeigt auf einen ehemals alloziierte/benutzten Block und von daher ist der Rückgabewert reiner Zufall. Grundlegend wird der Speicher bis zum auslesen des Wertes nicht erneut genutzt, und das ergibt hier den Anschein der Gültigkeit.

[Dezipaitor]

also GetMem benutzen.

[Muetze1]

Wie denn? In der DLL mit dem Speichermanager alloziieren und in der App mit deren Speichermanager wieder freigeben? Naja, ich sage dir jetzt schon, der eine weiss vom anderen nichts. Ausnahme: sharemem, aber dann kannste auch gleich Strings übergeben. Ich empfehle die schon zuvor genannte Methode wie es auch schon die WinAPI erfolgreich seit ein paar Jahren macht: App erzeugt einen Buffer und übergibt ihn. Siehe auch Luckies Tutorial dazu...

[Dezipaitor]

wenn die App den Buffer erzeugt, dann muss man auch erstmal wissen wie groß der Buffer sein soll.
GetTokenInformation macht das z.B. so.

[Muetze1]

Zitat von Dezipaitor:

wenn die App den Buffer erzeugt, dann muss man auch erstmal wissen wie groß der Buffer sein soll.
GetTokenInformation macht das z.B. so.

Siehe WinAPI: Entweder einen Rückgabewert definieren der darauf hinweist, dass der Puffer zu klein ist oder bei der Übergabe von NIL als PChar wird die benötigte Länge zurück geliefert. Ganz einfach und simple...