string ein Alias für UnicodeString

[EWeiss]

Zitat:

Das ist doch gänzlich was anderes als was du weiter oben im Thread verwendest.

Nun ja etwas muss man schon selber machen..

Delphi-Quellcode:

function GetVerInfo(FileName: string): WideString;
var
  VI: TVerInfo;
  TransIdx: integer;
  Trans: string;
  StrIdx: integer;
  StrName: string;
begin
  VI := TVerInfo.Create(FileName);
  try
    if VI.HasVerInfo then
    begin
      for TransIdx := 0 to Pred(VI.TranslationCount) do
      begin
        Trans := VI.Translations[TransIdx];

        // display all standard strings
        for StrIdx := Low(cStrNames) to High(cStrNames) do
        begin
          StrName := cStrNames[StrIdx];
          if StrName = 'FileDescription' then
          begin
            Result := VI.Strings[Trans, StrName];
            Break;
          end;
        end;
      end;
    end
    else
      Result := '';
  finally
    VI.free;
  end;
end;

Siehe..
Result := VI.Strings[Trans, StrName];

property Strings[const Trans, Name: string]: string read GetString;

Delphi-Quellcode:

function TVerInfo.GetString(const Trans, Name: string): string;
begin
  Assert(fHasVerInfo);
  Result := GetVerInfoStr(fVerInfo, Trans, Name); // <<< hier der Part 
end;

Delphi-Quellcode:

function GetVerInfoStr(const Buffer: Pointer;
  const Trans, StrName: string): string;

gruss

[TiGü]

Kannst du vernünftig und logisch schlüssig erklären, warum du an der Stelle als Result-Typ WideString nimmst?
Warum benennst du deine eigene Funktion exakt gleich zu einer Funktion aus einen fremden verwendeten Quelltext?
Du machst dir doch selber das Leben schwer.

[EWeiss]

Zitat:

Kannst du vernünftig und logisch schlüssig erklären, warum du an der Stelle als Result-Typ WideString nimmst?

Weil meine Funktion innerhalb meiner DLL WideString benötigt.

Zitat:

Warum benennst du deine eigene Funktion exakt gleich zu einer Funktion aus einen fremden verwendeten Quelltext?

Wüsste jetzt nicht was da gleich ist.
GetVerInfo <> GetVerInfoStr

Die andere GetVerInfo wird gar nicht aufgerufen bzw. verwendet.

Aber.. Das Thema ist eigentlich erledigt weil ich es innerhalb meiner DLL gefixt habe.

gruss

[TiGü]

Innerhalb deines eigenen Moduls besteht doch gar keine Notwendigkeit auf WideString zu gehen.

[EWeiss]

Zitat von TiGü:

Innerhalb deines eigenen Moduls besteht doch gar keine Notwendigkeit auf WideString zu gehen.

Werde es nochmal gegenprüfen.. kann nichts schaden. Danke.

gruss

[Uwe Raabe]

Keine Ahnung, ob das hier relevant ist, aber vielleicht hilft es ja: Der Shared Memory Manager

Zitat von Der Shared Memory Manager:

Wenn eine DLL in Win32 Routinen exportiert, die lange Strings oder dynamische Arrays als Parameter oder als Funktionsergebnis übergeben (entweder direkt oder in Records bzw. Objekten), müssen die DLL und ihre Client-Anwendungen (oder -DLLs) die Unit ShareMem verwenden.

[EWeiss]

Danke für eure Informationen.
Wie ich schon sagte..

Zitat:

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.

Ich habe keine Speicherlecks mehr.
Innerhalb der Anwendung besteht kein Grund mehr WideStrings zu verwenden habe es korrigiert und nochmals auf Speicherlecks geprüft.
Scheint alles IO zu sein wenn man sich denn auf EurekaLog und ReportMemoryLeaksOnShutdown verlassen kann.

gruss