string ein Alias für UnicodeString

[EWeiss]

Zitat von mkinzler:

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 string ein managed type, um dessen Freigabe man sich nicht kümmern muss. UnicodeString ist nur ein Alias für string , so in der Art:

Delphi-Quellcode:

type
  UnicodeString = string;

Ein WideString ist ein non-managed type, um dessen Freigabe sich jemand kümmern muss. Eine Konvertierung von WideString nach string erzeugt einen neuen string , entbindet aber nicht von der Pflicht zur Freigabe des WideString .

[EWeiss]

Danke.
Er meldet mir hier einen Speicherleck.

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 von EWeiss:

Er meldet mir hier einen Speicherleck.

Das ist nachvollziehbar. GetVerInfo liefert einen WideString zurück, um dessen Freigabe du dich kümmern musst. Die Konvertierung nach string erzeugt einen neuen string , lässt aber den Speicherbereich des WideString unangetastet. Da du an den WideString so aber nicht mehr herankommst, kannst du ihn auch nicht freigeben. Daher entsteht hier ein Speicherleck.

[EWeiss]

Zitat von Uwe Raabe:

Zitat von EWeiss:

Er meldet mir hier einen Speicherleck.

Das ist nachvollziehbar. GetVerInfo liefert einen WideString zurück, um dessen Freigabe du dich kümmern musst. Die Konvertierung nach string erzeugt einen neuen string , lässt aber den Speicherbereich des WideString unangetastet. Da du an den 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 von EWeiss:

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 von TiGü:

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.