Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi PChar to String & zurück - Zeichen geht verloren (https://www.delphipraxis.net/101505-pchar-string-zurueck-zeichen-geht-verloren.html)

mkinzler 14. Okt 2007 16:37

Re: PChar to String & zurück - Zeichen geht verloren
 
Zitat:

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 14. Okt 2007 16:37

Re: PChar to String & zurück - Zeichen geht verloren
 
@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 14. Okt 2007 16:40

Re: PChar to String & zurück - Zeichen geht verloren
 
Wurde doch schon von Dax vorgeschlagen, habe nur seinen Vorschlag in deinen Code eingebaut.

Dax 14. Okt 2007 16:40

Re: PChar to String & zurück - Zeichen geht verloren
 
Zitat:

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 14. Okt 2007 16:53

Re: PChar to String & zurück - Zeichen geht verloren
 
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:

Zitat von mkinzler
Zitat:

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 14. Okt 2007 17:35

Re: PChar to String & zurück - Zeichen geht verloren
 
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 14. Okt 2007 19:27

Re: PChar to String & zurück - Zeichen geht verloren
 
also GetMem benutzen.

Muetze1 14. Okt 2007 20:40

Re: PChar to String & zurück - Zeichen geht verloren
 
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 14. Okt 2007 20:48

Re: PChar to String & zurück - Zeichen geht verloren
 
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 15. Okt 2007 00:09

Re: PChar to String & zurück - Zeichen geht verloren
 
Zitat:

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...


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:28 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz