Autor Beitrag
man-u
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 28



BeitragVerfasst: 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 :

ausblenden 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 user profile iconChristian S.: Delphi-Tags hinzugefügt.
Gausi
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 8554
Erhaltene Danke: 481

Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
BeitragVerfasst: Di 07.12.04 15:49 
Ich geb mal ein paar Stichpunkte:
ausblenden Delphi-Quelltext
1:
2:
application.exename;
ExtractFilePath();

Alles Weitere sollte mit der Delphi-Hilfe klar werden... :wink:

_________________
We are, we were and will not be.
man-u Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 28



BeitragVerfasst: 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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2596

Win7
D2006 WIN32, .NET (C#)
BeitragVerfasst: 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). :wink:

Cu,
Udontknow
Gausi
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 8554
Erhaltene Danke: 481

Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
BeitragVerfasst: 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



BeitragVerfasst: Di 07.12.04 16:05 
Dann zeig doch mal deinen Cod eund verheimliche uns nicht alles.
Coder
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1383
Erhaltene Danke: 1

WinXP
D2005 PE
BeitragVerfasst: 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. :roll:
Gausi
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 8554
Erhaltene Danke: 481

Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
BeitragVerfasst: Di 07.12.04 16:54 
..dann mach das mal so, und führe zwischendurch mal nen OpenDialog oder so aus... :roll:

_________________
We are, we were and will not be.
Udontknow
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2596

Win7
D2006 WIN32, .NET (C#)
BeitragVerfasst: Di 07.12.04 16:56 
*Gegenschlag-Rofl*

Selig die , welche nie Opendialog nutzen... :)

Cu,
Udontknow
Coder
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1383
Erhaltene Danke: 1

WinXP
D2005 PE
BeitragVerfasst: Di 07.12.04 17:00 
Ok, der Code hat manchmal ein paar macken, aber vieleicht reicht es bei ihm ja. :nixweiss:
Christian S.
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 20451
Erhaltene Danke: 2264

Win 10
C# (VS 2019)
BeitragVerfasst: 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. :nixweiss:
:lol: Endlich hat jemand die Windows-Philosopie entdeckt.

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".
Coder
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1383
Erhaltene Danke: 1

WinXP
D2005 PE
BeitragVerfasst: 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? :gruebel:
Christian S.
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 20451
Erhaltene Danke: 2264

Win 10
C# (VS 2019)
BeitragVerfasst: 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
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1383
Erhaltene Danke: 1

WinXP
D2005 PE
BeitragVerfasst: 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... :gruebel:

Aber ok, das muss jeder für sich selbst entscheiden. (schluss mit OffTopic)