Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi ExpandEnvStr (https://www.delphipraxis.net/49230-expandenvstr.html)

coolchatter 7. Jul 2005 14:29


ExpandEnvStr
 
Hi,

ich möchte die Umgebungsvariable %systemroot% auslesen, mit dem Befehl ExpandEnvStr funktioniert es, aber wenn ich dann eine Bilddateiendung dranhänge, wie %systemroot%\bild.bmp, bekomme ich gesagt, dass es eine ungültige Endung ist. Woran kann das liegen?

Robert Marquardt 7. Jul 2005 15:20

Re: ExpandEnvStr
 
Irgendwie ist deine Frage unverstaendlich.
In welcher Form kommt die Fehlermeldung?
Ist ExpandEnvString eine Delphi-Funktion oder selbstgeschrieben?

coolchatter 7. Jul 2005 15:36

Re: ExpandEnvStr
 
Danke für die Antwort.
Also, meine Funktion sieht so aus.

Delphi-Quellcode:
function ExpandEnvStr(const szInput: string): string;
begin
SetLength(Result,MAXSIZE);
SetLength(Result,ExpandEnvironmentStrings(pchar(szInput),
@Result[1],length(Result)));
end;
Wenn ich jetzt ExpandEnvStr('%systemroot%\bild.bmp') aufrufen will, kommt ein Fehler, dass die Dateiendung (.bmp ungültig sei.

Khabarakh 7. Jul 2005 15:58

Re: ExpandEnvStr
 
Das muss dann wohl so aussehen:
Delphi-Quellcode:
ExpandEnvStr('%systemroot%') + '\bild.bmp'

coolchatter 7. Jul 2005 16:20

Re: ExpandEnvStr
 
DAnke, aber es wäre zu einfach. Ich habs ausprobiert und es funkioniert nicht, aber totzdem danke.

marabu 7. Jul 2005 16:27

Re: ExpandEnvStr
 
Hättest du im Forum gesucht, dann hättest du u.a. das hier gefunden:

Delphi-Quellcode:
function ExpandEnvStr(const szInput: string): string;
begin
  SetLength(Result, ExpandEnvironmentStrings(pChar(szInput), nil, 0));
  ExpandEnvironmentStrings(pChar(szInput), @Result[1], Length(Result));
end;
Aber ich sehe gerade, dass du mit der environment expansion zurecht kommst. Dann fehlt nur noch die Beschreibung deines eigentlichen Problems.

Grüße vom marabu


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:00 Uhr.

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