Forum: Win32/Win64 API (native code)
Delphi
by haentschman,
2. Dez 2007
Hallo alle... :hi:
...und siehe da...es bewegt sich doch :-D function GetFileSize2(const FileName: String): Integer; { TODO : Dateigröße ermitteln }
var
SR: TSearchRec;
ierr: integer;
begin
ierr := FindFirst(FileName, faAnyfile - faDirectory, sr);
while ierr = 0 do
begin
Forum: Win32/Win64 API (native code)
Delphi
by haentschman,
2. Dez 2007
...Guten Morgen alle... :hi:
...das hat mir alle keine Ruhe gelassen.
...inzwischen habe ich durch Zufall herausgefunden das mit folgendem Code
function GetFileSize2(const FileName: String): Integer;
var
H: THandle;
D: TWIN32FindDataW;
Forum: Win32/Win64 API (native code)
Delphi
by haentschman,
2. Dez 2007
... 3.04 MB
PS: alles was du so als Lösungen hast mögen funktionieren...wenn ich die Details verstehen würde wäre es besser... :oops:
Forum: Win32/Win64 API (native code)
Delphi
by haentschman,
2. Dez 2007
... 1.07 MB oder 1.122.304 Byte
Forum: Win32/Win64 API (native code)
Delphi
by haentschman,
2. Dez 2007
...erst einmal Danke,Danke,Danke... :-D
Habe Deinen Tipp wie folgt angepaßt.function GetFileSize2(const FileName: String): Int64;
var
H: THandle;
D: TWIN32FindDataW;
begin
H := FindFirstFileW(PWideChar(FileName), D);
If H <> INVALID_HANDLE_VALUE then exit; //GetLastError_auswerten;
Forum: Win32/Win64 API (native code)
Delphi
by haentschman,
2. Dez 2007
... habe mir noch eimal die Namenskonvention angeschaut.
http://msdn2.microsoft.com/en-us/library/aa365247.aspx
...eigentlich ist das richtig, was ich getrieben hab... :mrgreen:
:wiejetzt:
Forum: Win32/Win64 API (native code)
Delphi
by haentschman,
2. Dez 2007
...alles das gleiche in grün. :roll:
egal wie ich den File String zusammensetze. :(
FindFirstFileW... damit muß ich mich erst etwas näher beschäftigen... :roll:
Forum: Win32/Win64 API (native code)
Delphi
by haentschman,
2. Dez 2007
...was ist DK ? :oops:
..vieleicht ist es ja schon zu spät.. :wink: ich verstehe das Zitat nicht wirklich... :roll:
Danke für Eure Hilfe...
Forum: Win32/Win64 API (native code)
Delphi
by haentschman,
2. Dez 2007
...53 ---> Datei nicht gefunden.
...die Funktion kann mit dem Netzlaufwerkpfad nichts anfangen oder ? :gruebel:
Forum: Win32/Win64 API (native code)
Delphi
by haentschman,
1. Dez 2007
... ich habe noch einmal verschiedene Beispiele ausprobiert... gleiches Ergebnis.
bei lokaler Pfadangabe wie c:\tmp\daten\test.fdb --> richtiges Ergebnis
bei Padangabe wie \\server\system\tmp\daten\test.fdb oder \\server\c:\tmp\daten\test.fdb --> Ergebnis 0
Fazit: die Pfadangabe ist falsch :gruebel: :gruebel: aber ich seh´s nicht :roll:
Forum: Win32/Win64 API (native code)
Delphi
by haentschman,
1. Dez 2007
...ich glaubs ja nicht... :wall:
ich hatte den Dateinamen mit \\Host\Freigabe\Pfad\Datei angegeben... Ergebnis 0
...jetzt habe ich mal \\Hostname\Drive:\Path\Filename.ext ausprobiert... funktioniert :shock:
...warum geht das mit dem Freigabenamen nicht ? :gruebel:
Danke an alle... :thumb:
Forum: Win32/Win64 API (native code)
Delphi
by haentschman,
1. Dez 2007
Hallo alle...
es ist ja bald Weihnachten und ich gebe Euch mal eine Nuß zu knacken... :-D
Vorraussetzungen:
-Firebird Datenbank auf Netzlaufwerk
-vorhanden: Hostname
-vorhanden: Pfad und Dateiname der Datenbank (lokaler Pfad)