| Autor |
Beitrag |
man-u
      
Beiträge: 28
|
Verfasst: Di 07.12.04 15:40
Hi wollte mal wissen ob man eine wav abspielen lassen kann ohne den Pfad angeben zu müssen.
Habe bis jetzt immer folgenden Befehl benutzt :
Delphi-Quelltext 1:
| sndPlaySound(PChar('C:\Datei.wav'),SND_SYNC); |
Kann ic nun dem prog. auch sagen die wav liegt da wo er auch die exe findet.
Mein Ziel: ist es nur nicht immer den pfad angeben zu müssen, da wenn ich das prog an freunde weitergebe ist dort
der pfad ja unterschiedlich als bei mir !!!!!
man-u
Moderiert von Christian S.: Delphi-Tags hinzugefügt.
|
|
Gausi
      
Beiträge: 8554
Erhaltene Danke: 481
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: Di 07.12.04 15:49
Ich geb mal ein paar Stichpunkte:
Delphi-Quelltext 1: 2:
| application.exename; ExtractFilePath(); |
Alles Weitere sollte mit der Delphi-Hilfe klar werden... 
_________________ We are, we were and will not be.
|
|
man-u 
      
Beiträge: 28
|
Verfasst: Di 07.12.04 15:55
Schon aber wo setzt ich diesen Code ein.
Wie habe ich da genau vorzugehen ????
Habe probiert diesen Code da mal reingeschriebn wo der Pfad sonst hintz kommt. Aber da kam nur mißt bei raus
|
|
Udontknow
      
Beiträge: 2596
Win7
D2006 WIN32, .NET (C#)
|
Verfasst: Di 07.12.04 16:01
Na komm, so schwer ist es nicht.
Lass dir den Pfad vorher mal mit ShowMessage ausgeben, ob er so ist, wie du erwartest.
Wenn du weiter Probleme hast, genau schildern, was Probleme bereitet ('kommt nur *** bei raus' ist nicht sehr hilfreich).
Cu,
Udontknow
|
|
Gausi
      
Beiträge: 8554
Erhaltene Danke: 481
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: Di 07.12.04 16:05
ok, dann doch ein bissel mehr:
meinstring:=application.exename; liefert den Dateinamen und Pfad zu deiner Exe-Datei. Wenn dein Delphi Project1 im Ordner C:\myProjects\Musik liegt, dann wird meinstring wahrscheinlich den Wert "C:\myProjects\Musik\project1.exe" enthalten.
meinpfad:=ExtractFilePath(meinstring); liefert den Pfad zurück. In dem Fall also "C:\myProjects\Musik" (evtl. mit nem "\" am Ende, da bin ich mir jetzt nicht sicher).
Jetzt musst du den Pfad zur Wav-Datei im Projectordner neu zusammenbauen zu meinewav := meinpfad + '\meinewav.wav';
_________________ We are, we were and will not be.
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Di 07.12.04 16:05
Dann zeig doch mal deinen Cod eund verheimliche uns nicht alles.
|
|
Coder
      
Beiträge: 1383
Erhaltene Danke: 1
WinXP
D2005 PE
|
Verfasst: Di 07.12.04 16:45
*Atomrofl*
Was macht ihr da für'n Umstand???!!! sndPlaySound(PChar('Datei.wav'),SND_SYNC);Einfach den Pfad davor weglassen und fertig. 
|
|
Gausi
      
Beiträge: 8554
Erhaltene Danke: 481
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: Di 07.12.04 16:54
..dann mach das mal so, und führe zwischendurch mal nen OpenDialog oder so aus... 
_________________ We are, we were and will not be.
|
|
Udontknow
      
Beiträge: 2596
Win7
D2006 WIN32, .NET (C#)
|
Verfasst: Di 07.12.04 16:56
*Gegenschlag-Rofl*
Selig die , welche nie Opendialog nutzen...
Cu,
Udontknow
|
|
Coder
      
Beiträge: 1383
Erhaltene Danke: 1
WinXP
D2005 PE
|
Verfasst: Di 07.12.04 17:00
Ok, der Code hat manchmal ein paar macken, aber vieleicht reicht es bei ihm ja. 
|
|
Christian S.
      
Beiträge: 20451
Erhaltene Danke: 2264
Win 10
C# (VS 2019)
|
Verfasst: Di 07.12.04 17:01
| Coder hat folgendes geschrieben: | Ok, der Code hat manchmal ein paar macken, aber vieleicht reicht es bei ihm ja.  |
 Endlich hat jemand die Windows-Philosopie entdeckt.
_________________ Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".
|
|
Coder
      
Beiträge: 1383
Erhaltene Danke: 1
WinXP
D2005 PE
|
Verfasst: Di 07.12.04 17:06
Wieso?
Bei kleinen Tools, wo es mal kurz "bing" machen soll, würde ich nicht extra mit Variablen und Umkonvertierung und so, anfangen. Ist das nicht auch performence lastig? 
|
|
Christian S.
      
Beiträge: 20451
Erhaltene Danke: 2264
Win 10
C# (VS 2019)
|
Verfasst: Di 07.12.04 17:38
Besser, als wenn statt dem "bing" eine Meldung kommt, dass die Datei nicht gefunden werden konnte. Das ist für den Nutzer bestimmt ziemlich nervig!
_________________ Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".
|
|
Coder
      
Beiträge: 1383
Erhaltene Danke: 1
WinXP
D2005 PE
|
Verfasst: Di 07.12.04 17:46
Naja, wenn das Programm auf meinem Computer funktioniert wieso soll, wenn ich das Programm weitergebe, es nicht auch auf anderen Computern funktionieren...
Aber ok, das muss jeder für sich selbst entscheiden. (schluss mit OffTopic)
|
|