Dateigröße ermitteln, wie geht Ihr vor?

[LTE5]

Zitat:

z.B. bei diesem Code hier PWideChar verwendet und schon gibt es in Delphi 2-2007 und in FreePascal probleme

Ich bin einfach stillschweigend davon ausgegangen, dass keiner mehr diese Krankheiten vor D2009 benutzt

[HolgerX]

Hmm..


Wieso dann nicht gleich Typfixiert?

Delphi-Quellcode:

function GetSize(const fileName: WideString): Int64;
var
   info: TWin32FileAttributeData;
begin
   if not GetFileAttributesExW(PWideChar(fileName), GetFileExInfoStandard, @info) then
     RaiseLastOSError;
   Result := Int64(info.nFileSizeLow) or Int64(info.nFileSizeHigh shl 32);
end;

Dies funktioniert unter allen Delphi-Versionen, welche WideChar unterstützen (somit eigentlich fast alle )

Edit:
Für alle API-Funktionen verwende ich nur noch die Wide Versionen. Somit gibt es auch keine Probleme..

[LTE5]

Gerade die Suche bemüht. Mach dir da keinen Kopf und benutz einfach PChar wenn du keine alten Delphiversionen <2009 mehr benutzt
http://www.delphipraxis.net/1385162-post6.html

[Fukiszo]

Jupp.

Zitat:

Delphi definiert bei WinAPIs auch in der Regel z.b. MessageBoxA , MessageBoxW und dann einmal noch nur MessageBox , welches dann auf eine der beiden Varianten verweist. Dadurch brauchst du dir über A/W keine Gedanken machen und einfach MessageBox(PChar(), ...) aufrufen. Willst du in irgendeinem Falle mal eine explizite Version, dann solltest du auch den Typen in die explizite Form casten: MessageBoxA(PAnsiChar(), ...) .

das bringt es auf den punkt

[Bernhard Geyer]

Zitat von LTE5:

Ich bin einfach stillschweigend davon ausgegangen, dass keiner mehr diese Krankheiten vor D2009 benutzt

+1

Aber ich glaube du wirst gleiche von bekannten Usern verbal gesteinigt ...

[LTE5]

Um meiner Steinigung zuvor zu kommen:
sollte dieser bekannte user Windows 10 nutzen, darf er mich schlicht weg nicht steinigen. Er darf es nur, wenn er noch Windows XP nutzt.

[Bernhard Geyer]

Zitat von LTE5:

Er darf es nur, wenn er noch Windows XP nutzt.

Eher wenn er noch Win95/98/ME benutzt. Den diese haben nur die Ansi-Version der Windows-API.
Die Wide-Version der API gibt es seit NT 1.0 (auch wenn dort noch viele heutige Funktionen gefehlt haben).
Die o.g. GetFileAttributesExW gibts z.B. ab XP.

[LTE5]

Den vergleich mit der Windowsversion habe ich eigentlich ganz anders gemeint und der hatte absolut nichts mit den Datentypen zu tun.
Naja egal.

[Fukiszo]

falls das eine rolle spielt, ich nutze privat windows version 7 64bit mit delphi version 7 32bit. windows 10 hab ich in einer vm aber bin selbst davon nicht so überzeugt als das es mein OS ersetzt, per internet vm kann ich auch mit radstudio xe 10.2.2 herumspielen wenn's denn sein muss.

Grüße

edit
ps: eine vm mit windows xp und windows 98SE hab ich auch noch, wobei letztere bestimmt schon paar jahre nicht mehr gestartet wurde.