Parsen von EnvironmentPath

[EWeiss]

Zitat von Uwe Raabe:

Mag sein, daß es hier nicht relevant ist, weil der Rückgabewert gleich weiterverarbeitet wird, aber zeigt der Result von ExpandEnvironment nicht auf eventuell ungültigen Stackspeicher? lpDest liegt doch als lokale Variable auf dem Stack und der wird beim Verlassen der Methode freigegeben. (Mal abgesehen davon, daß der Methodenaufruf mal eben so 64k vom Stack abzwackt.)

Delphi-Quellcode:

function TShortCut.ExpandEnvironment(EnvironmentPath: PWideChar): PWideChar;
var
  lpDest: array [0 .. 32768] of WideChar;
begin

  result := '';
  FillChar(lpDest, SizeOf(lpDest), 0);
  if ExpandEnvironmentStringsW(PWideChar(EnvironmentPath), lpDest, 32767) <> 0 then
    result := lpDest;
end;

Hmmm nun wie geht's besser ?
Mal davon abgesehen das mein Array schon immens definiert ist.
Könnte das Array dynamisch machen so wie von @Schokohase vorgeschlagen.

gruss

[Uwe Raabe]

Zitat von EWeiss:

Hmmm nun wie geht's besser ?
Mal davon abgesehen das mein Array schon immens definiert ist.
Könnte das Array dynamisch machen so wie von @Schokohase vorgeschlagen.

Das hätte den Nachteil, daß du den Speicher in der aufrufenden Methode wieder freigeben musst.

Ich würde es mir da ganz einfach machen und statt dessen überall mit string arbeiten, wo es die Windows-API nicht ausdrücklich anders vorschreibt.

[EWeiss]

Zitat von Uwe Raabe:

Zitat von EWeiss:

Hmmm nun wie geht's besser ?
Mal davon abgesehen das mein Array schon immens definiert ist.
Könnte das Array dynamisch machen so wie von @Schokohase vorgeschlagen.

Das hätte den Nachteil, daß du den Speicher in der aufrufenden Methode wieder freigeben musst.

Ich würde es mir da ganz einfach machen und statt dessen überall mit string arbeiten, wo es die Windows-API nicht ausdrücklich anders vorschreibt.

Ok Danke werde es ändern.

Delphi-Quellcode:

function TShortCut.ExpandEnvironment(const EnvironmentPath: string): string;
var
  lpDest: array [0 .. 32768] of WideChar;
begin

  result := '';
  FillChar(lpDest, SizeOf(lpDest), 0);
  if ExpandEnvironmentStringsW(PWideChar(EnvironmentPath), lpDest, 32767) <> 0 then
    result := lpDest;
end;

gruss

[Schokohase]

Nur so zur Info:

Bei string nimmt man PChar und den API Aufruf ohne A oder W am Ende.

[EWeiss]

Zitat von Schokohase:

Nur so zur Info:

Bei string nimmt man PChar und den API Aufruf ohne A oder W am Ende.

Das geht hier leider nicht unter D7 Ja!
Wenn ich PChar in D2010 verwende wird PChar automatisch nach PWideChar gecastet.
Also gebe ich direkt den richtigen Typ an

gruss

[Schokohase]

string bei < D2009 ist AnsiString .
string bei >= D2009 ist UnicodeString .

PChar bei < D2009 ist PAnsiChar .
PChar bei >= D2009 ist PWideChar .

Es wird also automatisch umgeschaltet, je nach Version (kann man im Source auch nachlesen).

Nur wenn du immer Ansi/Unicode habe willst, aber dann ist string auf jeden Fall nicht korrekt

[EWeiss]

Zitat von Schokohase:

string bei < D2009 ist AnsiString .
string bei >= D2009 ist UnicodeString .

PChar bei < D2009 ist PAnsiChar .
PChar bei >= D2009 ist PWideChar .

Es wird also automatisch umgeschaltet, je nach Version (kann man im Source auch nachlesen).

Nur wenn du immer Ansi/Unicode habe willst, aber dann ist string auf jeden Fall nicht korrekt

Ja deshalb ja auch mein Einwand.. (Es wird also automatisch umgeschaltet)
Warum soll ich es umschalten lassen wenn ich den Typ bereits kenne dann übergeben ich den richtigen direkt.

Nun mit dem string!
Die Api erwartet nun mal PWideChar von daher muss ich auch hier konvertieren.. Uwe meinte das wäre korrekt so

gruss

[Uwe Raabe]

Zitat von Schokohase:

Nur wenn du immer Ansi/Unicode habe willst, aber dann ist string auf jeden Fall nicht korrekt

Das ist richtig! Wenn der Code auch unter D2007 und kleiner laufen muss, dann ist string nicht die richtige Lösung. Da in deinem Profil D2010 steht, bin ich natürlich auch davon ausgegangen.

Wenn es denn auch in diesen alten Versionen immer WideChar sein soll, dann muss die Speicherverwaltung dafür eben auch selbst programmiert werden. In D7 gibt es halt keinen Unicode fähigen string-Typ. Da muss man dann alles selbst von Hand machen.