Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Mediaplayer Nur Dateiname (https://www.delphipraxis.net/75911-mediaplayer-nur-dateiname.html)

hedie 27. Aug 2006 08:43


Mediaplayer Nur Dateiname
 
Hallo Zusammen


Ich bin gerade dabei mir einen Musicplayer zu Programmieren und brauche
hierzu den Dateinamen der Abgespielten datei des players



Also mit Filename bekomme ich den ganzen Pfad so: C:\blabla\blalbajdkj\mp3name.mp3

ich möchte aber nur: mp3name ohne .mp3!!!!!!

Wie kann ich das machen?


liebne grüsse
Claudio

mkinzler 27. Aug 2006 08:46

Re: Mediaplayer Nur Dateiname
 
ExtractFilename()

Balu der Bär 27. Aug 2006 08:46

Re: Mediaplayer Nur Dateiname
 
Delphi-Quellcode:
ExtractFileName('C:\blabla\blalbajdkj\mp3name.mp3');

hedie 27. Aug 2006 08:54

Re: Mediaplayer Nur Dateiname
 
VIELEN DANK


Und wie bringe ich das .mp3 da weg?

Wen das nicht möglich isst dan ist das nicht so schlimm aber es wäre einfacher

Balu der Bär 27. Aug 2006 08:56

Re: Mediaplayer Nur Dateiname
 
Lösche einfach die letzten 4 Zeichen in dem String mittels Delphi-Referenz durchsuchenDelete.

hedie 27. Aug 2006 08:57

Re: Mediaplayer Nur Dateiname
 
ok danke

Nils_13 27. Aug 2006 09:00

Re: Mediaplayer Nur Dateiname
 
Ich würde die Länge von ExtractFileExt bestimmen und dann die Länge von ExtractFileExt abziehen, dann kannst du auch AIFF benutzen.

Balu der Bär 27. Aug 2006 09:02

Re: Mediaplayer Nur Dateiname
 
Schnell getippt (aber ungetestet):
Delphi-Quellcode:
function GetFileName(Path : String) : String;
var
 temp : String;
begin
 temp := ExtractFileName(Path);
 Delete(temp, length(temp)-3, 4);
 result := temp;
end;
Aufruf:
Delphi-Quellcode:
ShowMessage(GetFilename('C:\blabla\blalbajdkj\mp3name.mp3'));

Hawkeye219 27. Aug 2006 09:03

Re: Mediaplayer Nur Dateiname
 
Hallo Claudio,

falls es doch einmal andere Extensions werden (z.B. ".mpeg"):

Delphi-Quellcode:
FileName := ChangeFileExt('Video.mpeg', '');
Gruß Hawkeye


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:20 Uhr.

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