Avatar billede steffe Nybegynder
23. marts 2001 - 20:10 Der 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..
Avatar billede martinlind Nybegynder
23. marts 2001 - 20:36 #1
prøv at compilere den med BRCC32.exe
Avatar billede stone Forsker
23. marts 2001 - 22:02 #2
når du bruger brcc32.exe til at kompile *.rc filen
skal du huske at wav filen og *.rc filen skal være i samme bibliotek som som brcc32.exe
Avatar billede borrisholt Novice
23. marts 2001 - 23:26 #3
steffe>> Jeg tror du gør noget galt ....

Lad os tage det HELT forfra.

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;



Jens B




Avatar billede pstric Nybegynder
25. marts 2001 - 03:52 #4
Mangler der ikke noget?

{$R HEST.RES}
Avatar billede steffe Nybegynder
25. marts 2001 - 20:06 #5
Jeg giver jer alle sammen nogle pionts..
Avatar billede borrisholt Novice
26. marts 2001 - 08:15 #6
pstric  >> Det tilføjer Delphi selv når du tilføjer .rc filen til dit projekt.

Jens B
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Senior projektkonsulent til program Digital og Operativ Transformation

Forsvarets Efterretningstjeneste

Linux Infrastructure Specialist

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Teknisk projektleder til stor applikationstransformation i Forsvaret