wav in .exe einkompilieren ?

[Cocky]

Hi mal wieder

ich möchte eine .wav Datei in die .exe mit einkompilieren und außerdem aus der .exe heraus abspielen.

Geht so was irgendwie ??

LG Cocky

[creed steiger]

http://wiki.lazarus.freepascal.org/Laza ... esource.3F" onclick="window.open(this.href);return false;

http://wiki.lazarus.freepascal.org/Lazarus_Resources" onclick="window.open(this.href);return false;

[Cocky]

Vielen Dank @ creed steiger !

also .lrs kompilieren hat schon mal geklappt. Ressource einer Variablen zuweisen ...

Code: Alles auswählen

Sound1AsString:=LazarusResources.Find('sound1').Value;

... klappt nach o.a. Prinzip auch. Zumindest hat die Variable anschließend die korrekte Länge.

*hüstel* ... könnte mir nun noch jemand in seiner/ihrer unendlichen Güte und Weisheit sagen, wie ich das aus dem Memory abgespielt bekomme ??

In Delphi funktionierts ja so ...

Code: Alles auswählen

// .RC Datei bauen, wobei z.B. ...
1 WAVE "c:\eigenebla.wav"
2 WAVE "c:\eigeneblabla.wav"

und dann im Programm aufrufen mit ...

Code: Alles auswählen

PlaySound(PChar(1),HInstance, snd_ASync or snd_Memory or snd_Resource);

Müsste in Lazarus/FPC ja ähnlich gehen. Allerdings gibts ja keine .RC Dateien wie im WIKI steht, oder ??

Ich bedanke mich nochmals herzlichst im Voraus !

LG Cocky

[Cocky]

für die, die es interessiert ...

Ich habs jetzt so gelöst:

Code: Alles auswählen

procedure TForm1.Button2Click(Sender: TObject);
var   Sound1AsString: String;
      memStream : TMemoryStream;
      len: Integer;
begin
   memStream := TMemoryStream.Create;
   Sound1AsString := LazarusResources.Find('051_001').Value;
   len := Length(Sound1AsString);
   memStream.Write(PChar(Sound1AsString)^, len);
   PlaySound(memStream.Memory, 0, SND_SYNC or snd_Memory);
   memStream.Free;
end;

wobei '051_001' der Name der kompilierten Ressource (051_001.WAV) ist.

Unbefriedigend ist, daß es mit SND_ASYNC als Parameter-Option aus irgend welchen Gründen nicht funktioniert (Sound wird einfach nicht abgespielt) und bei SND_SYNC hingegen das Programm angehalten wird, bis der Sound fertig abgespielt ist. Falls also jemand Vorschläge hat um das Ganze zu verbessern bzw. eleganter zu machen o.ä. ... immer her damit !

LG Cocky

[af0815]

Unbefriedigend ist, daß es mit SND_ASYNC als Parameter-Option aus irgend welchen Gründen nicht funktioniert (Sound wird einfach nicht abgespielt) und bei SND_SYNC hingegen das Programm angehalten wird, bis der Sound fertig abgespielt ist. Falls also jemand Vorschläge hat um das Ganze zu verbessern bzw. eleganter zu machen o.ä. ... immer her damit !

Wenn nicht 64 bit - ev. mit den ACS Komponenten abspielen ?! Ist nur ne Idee und nicht getestet. Demos sind ja dabei, vielleicht lässt da eines sich anpassen.

[Cocky]

Wenn nicht 64 bit - ev. mit den ACS Komponenten abspielen ?! Ist nur ne Idee und nicht getestet. Demos sind ja dabei, vielleicht lässt da eines sich anpassen.

Hmmm ... hatte ich auch schon drüber nachgedacht. Allerdings spricht folgendes dagegen:

• Die zu programmierende Anwendung soll eine 1 Datei Anwendung werden (daher auch das Einkompilieren der .wav Dateien). ACS benötigt aber, sofern ich das richtig verstanden habe, zusätzlich librarys für den Betrieb ?!
• das Programm benötigt genau 6 .wav Dateien, deren Größe im zweistelligen kB Bereich liegen. Da erscheint mir ein echtes Sound-System wie ACS etwas überdimensioniert.

Funktionieren tut's ja. Halt nur nicht sooooooo schön. Vielleicht bekomm ichs ja auch noch irgendwie hin das mit SND_ASYNC zum laufen zu kriegen

LG Cocky

[af0815]

Funktionieren tut's ja. Halt nur nicht sooooooo schön. Vielleicht bekomm ichs ja auch noch irgendwie hin das mit SND_ASYNC zum laufen zu kriegen

In einen Thread packen ?!

[Christian]

ACS benötigt für das simple abspielen einer Wave datei keinerlei extere bibliotheken. Weder unter Windows noch unter Linux.

[Cocky]

Threading. Jo, würde sich irgendwie anbieten. Hab zugegebenermaßen noch NIE damit gearbeitet. Ist die Threading Sache eigentlich plattformabhängig ? ich les in den Dokus immer was von Win32 ?!

[edit]@ Christian ... für ACS muß man das Lazarus Package installieren ? oder gehts auch durch simples Einbinden einer Unit oder so ?? [/edit]

LG Cocky

[Euklid]

Threading. Jo, würde sich irgendwie anbieten. Hab zugegebenermaßen noch NIE damit gearbeitet.

... das ist auch eine Wissenschaft für sich. Für bestimmte Zwecke lohnt es sich.

Ist die Threading Sache eigentlich plattformabhängig ? ich les in den Dokus immer was von Win32 ?!

Ja, Threading ist plattformunabhängig. Nur funktioniert glaube der GNU Debugger unter Linux mit multithreaded Programmen nicht. D.h. unter Linux müsstest du den abstellen.


Viele Grüße, Euklid

[Christian]

Du kannst auch de Units einzeln einbinden aber das Package macht dir das eigentlich eher einfacher als schwieriger...

[af0815]

In der letzten Toolbox (2/2009) war ein guter Artikel über eine Unit, die das Multithreathing 'relativ' einfach macht.

Stichwort: Die Multithreading-Bibliothek MTProcs

[marcov]

für die, die es interessiert ...

Ich habs jetzt so gelöst:

Code: Alles auswählen

procedure TForm1.Button2Click(Sender: TObject);
var   Sound1AsString: String;
      memStream : TMemoryStream;
      len: Integer;
begin
   memStream := TMemoryStream.Create;
   Sound1AsString := LazarusResources.Find('051_001').Value;
   len := Length(Sound1AsString);
   memStream.Write(PChar(Sound1AsString)^, len);
   PlaySound(memStream.Memory, 0, SND_SYNC or snd_Memory);
   memStream.Free;
end;

wobei '051_001' der Name der kompilierten Ressource (051_001.WAV) ist.

Unbefriedigend ist, daß es mit SND_ASYNC als Parameter-Option aus irgend welchen Gründen nicht funktioniert (Sound wird einfach nicht abgespielt) und bei SND_SYNC hingegen das Programm angehalten wird, bis der Sound fertig abgespielt ist. Falls also jemand Vorschläge hat um das Ganze zu verbessern bzw. eleganter zu machen o.ä. ... immer her damit !

Sieht sich an ob mit "async" playsound DIREKT weitergeht in program. Aber dan gibst du den Memstream direkt frei.

[Socke]

Sieht sich an ob mit "async" playsound DIREKT weitergeht in program. Aber dan gibst du den Memstream direkt frei.

...
könnte man dann einfach so machen:

Code: Alles auswählen

// der berühmte Einzeiler; ggf anpassen
PlaySound(PChar(LazarusResources.Find('abc').Value), 0, SND_ASYNC or snd_Memory);

MfG Socke

[Cocky]

Code: Alles auswählen

// der berühmte Einzeiler; ggf anpassen
PlaySound(PChar(LazarusResources.Find('abc').Value), 0, SND_ASYNC or snd_Memory);

MfG Socke

Ich bilde mir ein, daß ich es exakt so probiert hätte, ohne den entsprechenden Erfolg. Werds aber die Tage noch mal so probieren, vielleicht hab ich ja was geringfügig anders gemacht ...

LG Cocky