Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Dateiformat und Dateigröße auslesen.. (https://www.delphipraxis.net/4336-dateiformat-und-dateigroesse-auslesen.html)

NeoDeluxe 25. Apr 2003 10:25

Gut eine sache wurde geklärt, Dateigröße, was ist mit dem Dateiformat :?: :?: :?:

Grüße, NeoDeluxe 8)

flow 25. Apr 2003 10:38

Mit ExtractFileExt('Dateiname'); kannst du dir das Fileformat ermitteln.

Delphi-Quellcode:
sFileName := OpenDialog1.FileName;

If UpperCase(ExtractFileDir(sFileName)) = '.DOC' Then Begin
  ...
  // Fileformat is a Word Document
  ...
end
else If UpperCase(ExtractFileDir(sFileName)) = '.TXT' Then Begin
  ...
  // Fileformat is a Text File
  ...
end;
FLOW

NeoDeluxe 25. Apr 2003 10:51

Negativ :!:
passiert nix... :roll:

Grüße, NeoDeluxe 8)

flow 25. Apr 2003 10:53

definier mal was du mit File Format meinst!

FLOW

NeoDeluxe 25. Apr 2003 10:53

sFileName := OpenDialog1.FileName;

If UpperCase(ExtractFileExt(sFileName)) = '.DOC' Then Begin
...
// Fileformat is a Word Document
...
end
else If UpperCase(ExtractFileExt(sFileName)) = '.TXT' Then Begin
...
// Fileformat is a Text File
...
end;

NeoDeluxe 25. Apr 2003 10:57

Zitat:

Zitat von flow
definier mal was du mit File Format meinst!

FLOW

Code:
sFileName: String;
meinste das???

Grüße, NeoDeluxe 8)

Sharky 25. Apr 2003 11:28

Zitat:

Zitat von NeoDeluxe
...Also es soll eine Datei gelesen werde, die dann später ausgeführt wird...die Datei kann jeder Art sein, darum Brauche ich die Dateiformat infos, aber wenn du sagts das es net so gut sei, dann mach ich nur die Endung davon...


Informationen über ein Dateiformat kannst Du nicht "auslesen".
Weil: Sie ja nirgends stehen.

Was genau möchtest Du denn machen? Mit dem Datei-Opendialog eine Datei öffenen und dann mit dem, für diese Dateiendung, im Windows registrieren Programm starten?

NeoDeluxe 25. Apr 2003 11:33

Zitat:

Zitat von Sharky
Mit dem Datei-Opendialog eine Datei öffenen und dann mit dem, für diese Dateiendung, im Windows registrieren Programm starten?

Bingo Kollege...genau in die Mitte getroffen, volle 100 Punkte bekommen...
Ja, zum Beispiel, der Benutzer wählt, eine PDF datei, hat aber keine acrobat reader...das soll er eine Meldung bekommen, dass sowas auf seinem Rechner nicht existiert. Aber ansonsten, genau das was du gefragt hast...

Grüße, NeoDeluxe 8)

Sharky 25. Apr 2003 12:13

Zitat:

Zitat von NeoDeluxe
...Ja, zum Beispiel, der Benutzer wählt, eine PDF datei, hat aber keine acrobat reader...das soll er eine Meldung bekommen, dass sowas auf seinem Rechner nicht existiert....

Hmmm.... in diesem Fall müsstest Du also zuerst in der Regitry schauen ob für die Endung der Datei ein Programm zum öffnen eingetragen ist.

Schaue dir doch mal in der Registry HKEY_CLASSES_ROOT an.

Dort wird ,zumindest bei den Windows-Versionen die ich hier habe (NT/2000/XP), angegeben wolches Programm zum öffnen einer Datei verwendet werden soll.


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:54 Uhr.
Seite 2 von 2     12   

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