Umstieg von RAD-Studio 2007 auf XE2

[mkinzler]

Wenn man sauber programmiert hat nicht.

[musicman56]

Hallo Markus,

ich kenn mich da leider in den Details nicht so gut aus (bin in Sachen Programmierung ein Autodidakt). Was meinst du denn mit "sauber"?

[DeddyH]

U.a., dass man nicht automatisch davon ausgegangen ist, dass ein Char = 1 Byte (z.B. bei API-Aufrufen, die einen String und eine Größenangabe in Bytes erwarten).

[musicman56]

Hallo Detlef,

so ähnlich hab ich mir das schon vorgestellt. Die Probleme dabei sind: Teile des Codes sind schon 10+ Jahre alt und etwa 1/4 des Codes stammt von meinem ehemaligen Programmierer.

Gibt es denn irgendwo im WEB eine Zusammenstellung über die am häufigsten gemachten Fehler?

Im Großen und Ganzen gehe ich schon davon aus, dass ich einigermaßen "sauber" programmiert hab. Würde denn beispielsweise folgendes problemlos weiter funktionieren:

Delphi-Quellcode:

function RuGetWinDir : string;
var
  puffer : array[0..MAX_PATH] of char;
begin
  GetWindowsDirectory(puffer,MAX_PATH);
  Result := string(puffer);
end;


function RuBrowseForFolder(Handle: THandle; Title: string): string;
var
  WindowList : Pointer;
  bi: TBrowseInfo;
  pidl: PItemIDList;
  strPath: string;
  i : integer;
begin
  Result := '';
  FillChar(bi, SizeOf(bi), 0);
  bi.hwndOwner := Handle;
  bi.pidlRoot := nil;
  bi.pszDisplayName := nil;
  bi.lpszTitle := PChar(Title);
  bi.ulFlags := BIF_RETURNONLYFSDIRS;
  bi.lpfn := nil;
  bi.lParam := 0;
  WindowList := DisableTaskWindows(0);
  try
    pidl := ShBrowseForFolder (bi);
  finally
    EnableTaskWindows(WindowList);
  end;
  SetLength (strPath, MAX_PATH);
  for i := 1 to MAX_PATH do strPath[i] := ' ';
  ShGetPathFromIdList (pidl, PChar(strPath));
  Result := Trim(strPath);
end;

[Uwe Raabe]

Zitat von musicman56:

Würde denn beispielsweise folgendes problemlos weiter funktionieren:

Yup!

[Bernhard Geyer]

Grundsätzlich schaut der Code auf den ersten Blick gut aus.

Aber soweit ich sehe hat Emba-dingsbums die Konstante MAX_PATH falsch definiert.
Diese müsste eigentlich bei verwendung der Win32-Unicode-API 32767 sein (siehe auch MSDN, ist aber auf 1024 beschränkt. Also wenn du sehr lange Pfad hast wirst du Probleme haben (Bei Ansi-WinAPI war die Konstante noch 260).

[musicman56]

Hallo,

na dann kann ich doch schon etwas relaxter an die Sache ran gehen. Wäre nur noch die andere Frage zu klären:

Zitat:

Wie gut und zuverlässig läuft XE2 bzw. die damit erstellten Anwendungen? Oder sollte ich vielleicht besser auf die nächste Delphi-Version warten?

Es ist einfach so: Ich hab um die 800 Kunden die sehr zufrieden sind mit der Zuverlässigkeit und Stabilität. Das möchte ich keinesfalls aufs Spiel setzen. Es hat in der Vergangenheit ja schon einige Delphi-Versionen gegeben, die besser gar nicht erschienen wären. Anscheinend ist XE2 noch nicht weit verbreitet

[Uwe Raabe]

Zitat von musicman56:

Anscheinend ist XE2 noch nicht weit verbreitet

Das ist aber auch nicht weiter verwunderlich - schließlich sind einige Bibliotheken erst kürzlich oder noch gar nicht für XE2 angepasst worden. Oft wird eine solche Anpassung auch mit einem Major-Update verbunden, was dann ja auch neue Funktionalität mitbringt.

Ebenso wird nicht jeder gleich alles auf XE2 umgestellt haben, insbesondere nicht aus den gleichen Gründen, die du anführst. Irgendwer muss halt irgendwann mal vorangehen. Man sollte halt immer die Möglichkeit eines Fallbacks bereit stellen.

[jbg]

Zitat von Bernhard Geyer:

Aber soweit ich sehe hat Emba-dingsbums die Konstante MAX_PATH falsch definiert.

Hast du dir den angegebenen MSDN Link auch gründlich durchgelesen? "#define MAX_PATH 260". Wenn du die 32k haben willst, musst du den Pfad über "\\?\D:\very long path" angeben. Wo du die 1024 her hast, weiß ich nicht.

[Bernhard Geyer]

Zitat von jbg:

Zitat von Bernhard Geyer:

Aber soweit ich sehe hat Emba-dingsbums die Konstante MAX_PATH falsch definiert.

Hast du dir den angegebenen MSDN Link auch gründlich durchgelesen? "#define MAX_PATH 260". Wenn du die 32k haben willst, musst du den Pfad über "\\?\D:\very long path" angeben.

Müsste mal ausprobieren ob das wirklich nur mit \\?\ geht.

Zitat von jbg:

Wo du die 1024 her hast, weiß ich nicht.

System.SysUtils. Aber wie ich sehe haben mit die ganzen IF-DEFS einen Streich gespielt ...

Aber auch Embaracadero ist verwirrt.

In System.pas ist für Linux MAX_PATH = 1024,
in System.SysUtils.pas ist es 4095 ...