Verschiedene Komponente für gleichen zweck

[gothic_mike]

Zitat von Aenogym:

hi, so kannst du die erweiterung der gewählten datei ermitteln:

Delphi-Quellcode:

if opendialog1.execute then
var ext: string;
begin
  ext := extractfileext(opendialog1.filename);
  if ext = 'mp3' then
    //als mp3 öffen

  if ext = 'avi' then
    //als avi öffen
end;

Aenogym

dieser beitrag hilf zwar nicht wirklich, aber ich erinnere mich da grade so an alte zeiten, in denen ich noch mit TurboPascal programmiert habe, damals gabs eine Unit, mit der man herausfinden konnte, welches Format eine datei hat.
Diese Unit hatte eine Funktion, der man einen Filenamen übergab und dann eine Konstante zurückbekam, z.B. so:

Delphi-Quellcode:

case CheckFileFormat(FFileName) of
  FF_WAVE: machwasdamit;
  FF_AVI: machwasdamit;
  FF_MP3: machwasdamit;
  FF_UNKNOWN: machnichtsdamit;
...
end;

gibts sowas eigentlich für delphi ???
wäre praktisch...

[edit]

hab mich geirrt, war nur für Packer-Formate diese Unit. Diese Unit hies "IDPacker.pas", man konnte damit so um die 100 Packer identifizieren... wäre aber trotzdem ne geniale sache, wenns sowas für sämmtliche Formate gäbe!
[/edit]