string ein Alias für UnicodeString

[EWeiss]

Zitat:

Zitat von mkinzler (Beitrag 1419724)

UnicodeString ist ein (von der Delphi RTL) verwalteter Typ, WideString nicht.

Bekomme ihn nicht konvertiert nach string kann machen was ich will.
Ka was du mir damit sagen willst. ;)

gruss

[Uwe Raabe]

In Delphi ist

Delphi-Quellcode:

string

ein managed type, um dessen Freigabe man sich nicht kümmern muss. UnicodeString ist nur ein Alias für

Delphi-Quellcode:

string

, so in der Art:

Delphi-Quellcode:

type
  UnicodeString = string;

Ein

Delphi-Quellcode:

WideString

ist ein non-managed type, um dessen Freigabe sich jemand kümmern muss. Eine Konvertierung von

Delphi-Quellcode:

WideString

nach

Delphi-Quellcode:

string

erzeugt einen neuen

Delphi-Quellcode:

string

, entbindet aber nicht von der Pflicht zur Freigabe des

Delphi-Quellcode:

WideString

.

[EWeiss]

Danke.
Er meldet mir hier einen Speicherleck.

Delphi-Quellcode:

FAudioSessionInfo.DisplayName := string(GetVerInfo(FileName));

DisplayName = string
GetVerInfo = WideString

Wenn ich jetzt den WideString von GetVerInfo an DisplayName übergebe wie soll ich ihn dann freigeben er wird im weiteren verlauf benötigt.
Hmmm....

gruss

[Uwe Raabe]

Zitat:

Zitat von EWeiss (Beitrag 1419729)

Er meldet mir hier einen Speicherleck.

Das ist nachvollziehbar.

Delphi-Quellcode:

GetVerInfo

liefert einen

Delphi-Quellcode:

WideString

zurück, um dessen Freigabe du dich kümmern musst. Die Konvertierung nach

Delphi-Quellcode:

string

erzeugt einen neuen

Delphi-Quellcode:

string

, lässt aber den Speicherbereich des

Delphi-Quellcode:

WideString

unangetastet. Da du an den

Delphi-Quellcode:

WideString

so aber nicht mehr herankommst, kannst du ihn auch nicht freigeben. Daher entsteht hier ein Speicherleck.

[EWeiss]

Zitat:

Zitat von Uwe Raabe (Beitrag 1419730)

Zitat:

Zitat von EWeiss (Beitrag 1419729)

Er meldet mir hier einen Speicherleck.

Das ist nachvollziehbar.

Delphi-Quellcode:

GetVerInfo

liefert einen

Delphi-Quellcode:

WideString

zurück, um dessen Freigabe du dich kümmern musst. Die Konvertierung nach

Delphi-Quellcode:

string

erzeugt einen neuen

Delphi-Quellcode:

string

, lässt aber den Speicherbereich des

Delphi-Quellcode:

WideString

unangetastet. Da du an den

Delphi-Quellcode:

WideString

so aber nicht mehr herankommst, kannst du ihn auch nicht freigeben. Daher entsteht hier ein Speicherleck.

Ist also nicht zu beheben?

gruss

[Uwe Raabe]

Zitat:

Zitat von EWeiss (Beitrag 1419731)

Ist also nicht zu beheben?

Nein, solange du nicht den Rückgabetyp von GetVerInfo in string ändern kannst.

Ein WideString ist einfach nur ein Pointer auf ein WideChar-Array mit einem Längenbyte davor: http://docwiki.embarcadero.com/RADSt...deString-Typen

Bei einem string gibt es viel mehr Informationen: http://docwiki.embarcadero.com/RADSt...e_String-Typen

Delphi kann ja nicht einfach ein paar Daten vor dem WideString in den Speicher schreiben, um die fehlenden Informationen herzuzaubern.

[EWeiss]

Danke Uwe muss mal sehen wie ich das gelöst bekomme.

gruss

[TiGü]

Woher kommt denn diese Funktion GetVerInfo?
Sie scheint weder Bestandteil der Windows-API noch zum Delphi-Framework zugehörig zu sein.

[EWeiss]

Zitat:

Zitat von TiGü (Beitrag 1419738)

Woher kommt denn diese Funktion GetVerInfo?
Sie scheint weder Bestandteil der Windows-API noch zum Delphi-Framework zugehörig zu sein.

Von hier!
http://www.delphidabbler.com/articles.php?id=20

http://www.delphidabbler.com/articles?article=20#demo
http://www.delphidabbler.com/download?id=art-20

Ich habe es gelöst musste nur an der untersten Ebene anfangen zu suchen und dort die Datentypen nach WideString umlegen.
Da mir EurekaLog und ReportMemoryLeaksOnShutdown nichts mehr melden sollte es in Ordnung sein.

gruss

[TiGü]

Also in der Unit UVerInfoRoutines.pas aus dem article-20-demo.zip ist das wie folgt definiert:

Delphi-Quellcode:

{
GetVerInfo:
  Thin wrapper around API routine. Loads version information for a given file
  into a buffer. Raises exception if version information can't be read.
}
procedure GetVerInfo(const FileName: string; const Size: Integer;
  const Buffer: Pointer);

Delphi-Quellcode:

procedure GetVerInfo(const FileName: string; const Size: Integer;
  const Buffer: Pointer);
begin
  if not GetFileVersionInfo(PChar(FileName), 0, Size, Buffer) then
    raise Exception.Create('Can''t load version information');
end;

Das ist doch gänzlich was anderes als was du weiter oben im Thread verwendest.
Da scheint es eine function anstatt procedure zu sein.
Auch von WideString ist nichts zu lesen.