string ein Alias für UnicodeString

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

[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