Lyde i dephi

Hej frossen

Fidusen er du compiler den ind i din resourse ...

du gør som følger :

1 lav en ny tekst fil ... og skriv noget alla det her :

////// begin rc fil //////

//Name            TYPE             Filename
  W0001         WAVFILE          correct.wav

////// end rc fil //////

kald den fx. hest.rc


tilføj nu filen til projektet ...

Så kommer vi til alt det sjove :

Først skal vi have en funktion der loader den ind fra resoursen :


procedure ExtractFromRes(ResType, ResName : String);
begin
  with TResourceStream.Create(HINSTANCE, Resname, Pchar(ResType)) do
  try
    Position := 0;
    SaveToFile(\'C:\\\' + ResName + \'.wav\');
  finally
    free;
  end;
end;

Så skal den bare kaldes :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExtractFromRes(\'WAVFILE\', \'W0001\');
end;

I dette eksemple gemmer jeg den på disken, men det behøver du ikke ! Jeg loader den ind i en memorystream og så kan du jo gøre ved den hvad du vil ....

Jens B

Går der helt ged i den for dig, vil jeg gerne sende dig et ready-to-compile eksempel ...

Jens B

Du kan ogse sætte den ind i en OLE container og når du vil spille den skrive fx. olecontainer1.run
det afspiller den
Tankred

det ville være fedt vis jeg fik et ready-to-go exemple så hvis du gider og sende det så er adressen her: virus_h@yahoo.com

Jeg har sendt det.

jeg kunne også godt tænke mig det script!!! min email er dennis.ssh@computer.dk

Hvirker det eller skal jeg sende det til dig en gang til
der var en mindre fejl jeg tog det fra et andet program jeg fik ikke sletet alt det der var unødvendigt beklager

Mvh. Simon

Jeg tror frossen er frosset fast .... Jeg har også sendt ham noget og har ikke hørt fra det siden ...

jens B

Tak for oplysningen

Mvh. Simon

Jeg har lige set på hans oplysninger.
Det er første gang han ikke laver mere med et spørgsmål og hans andet spørgsmål

Mvh. Simon

Giv nogle point snart for de svar du har fået
Mener jeg du skal gøre
6 dage du siger intet
svar

Muvh. Simon

sorry, jeg har været væk et stykke tid, MEN JEG ER TILBAGE YEEEHAAA .. ej her er jeres points..

hey, check mine nye spørgsmål: http://www.eksperten.dk/spm/56925

jens har svaret, og fået points for det, men det kan være i kan bruge det til noget..

Der er en mindre fejl
den viser at borisholt ikke har fået nogle points for sit svar men at det er akserpteret

Mvh. Simon

jeg fik 30 piont for dette er det en fejl for her står der at jeg fik 0 point men accepteret svar
er det sket får hvadskal jeg gøre hved det jeg vil ikke have dem vis de ikke er mine

Mvh. Simon

tankred  >> Pyt jeg overlever nok uden de 30 point ...