23. marts 2001 - 20:10Der er
3 kommentarer og 3 løsninger
Lyde..
Jeg har brugt denne kode som \"borrisholt\" har skrævet.
Koden:
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;
Men når jeg køre den for jeg at vide at det er en \"Unsoppert 16bit resource in rc.rc\" Hvad går jeg forkert.... Jeg giver 100 point, til den der kan give mig det rigtige svar..
lav et nyt projekt, og gem det i et biblotek. I samme folder ligger du din wav fil. Det skal lige siges at dette eksempel forudsætter du kalder din fil for correct.wav
Inde i Delphi vælger du File->New.. her fra vælger du så en Text. Som resultat af denne handling får du en alm text fil. (som endnu ikke er gemt, eller en del af dit projekt)
i din text fil skriver du så det følgende kode :
////// begin rc fil //////
//Name TYPE Filename W0001 WAVFILE correct.wav
////// end rc fil //////
Vælg file->Save As... Giv din text fil det ønskede navn, og HUST at ændere typen til en rc fil.
Der efter trykker du på tilføj fil knappen (den grønne plus) og til føjer din rc fil.
Så trykkes der på Compile, og vupti Construction complete. Nu er din wav fil en del af din exe fil !!!!!
Så skal vi bare have den hevet ud igen :
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;
procedure TForm1.Button1Click(Sender: TObject); begin ExtractFromRes(\'WAVFILE\', \'W0001\'); end;
pstric >> Det tilføjer Delphi selv når du tilføjer .rc filen til dit projekt.
Jens B
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.