Arquivo de som e dll ?

Question

Obs.: Sou iniciante vamos com calma hehehe :-)Pessoal posso carregar um arquivo de som dentro de uma dll para que meu arquivo n�o tenha que ficar exposto junto com o execut�vel do programa, entende ? ...

Tatuweb · Answer

D� para fazer com MP3 mas como com WAVE � mais f�cil. J� que voc� quer colocar o som na DLL, primeiro crie um arquivo texto e coloque escreva nele:

SOUND WAVE C:\Pasta\arquivo.wav

Ao inv�s de SOUND vc pode usar qualquer palavra. S� botei ela como exemplo.

Abra o prompt do DOS e v� para a pasta Bin d� onde o Delhi est� instalado. Ex:
[b:027aaa0959]CD\
CD C:\Arquivos de programas\Delphi3\BIN\[/b:027aaa0959]

Use o arquivo brcc32 para compilar o resource. No prompt digite:
[b:027aaa0959]BRCC32 C:\Pathdoprojeto\arquivo.rc[/b:027aaa0959]

Arquivo.rc � o arquivo texto que voc� salvou acima. Quando voc� fizer isso vai aparecer dentro do diret�rio bin do Delphi um arquivo de extens�o .res (arquivo.res). Mova esse arquivo e coloque na pasta do seu projeto. Nota: Vc pode copiar o arquivo BRCC32.exe e colar na pasta do seu projeto. Isso facilita bastante.

Feito isso no seu projeto de DLL voc� vai colocar a linha:
[b:027aaa0959]{$R Arquivo.res}[/b:027aaa0959].

No projeto do EXE voc� coloca a rotina abaixo para carregar o arquivo de som:

var
  FindHandle, ResHandle, LibHandle: THandle;
  ResPtr: Pointer;
begin
  LibHandle:=Loadlibrary (�Project.dll�);
  try
    if LibHandle<>0 then
    begin
      FindHandle := FindResource (LibHandle, �SOUND�, �WAVE�);
      if FindHandle<>0 then
      begin
        ResHandle:=LoadResource (LibHandle, FindHandle);
        if ResHandle<>0 then
        begin
          ResPtr:=LockResource(ResHandle);
          if ResPtr<>Nil then
            SndPlaySound (PChar(ResPtr), snd_ASync or snd_Memory);
          UnlockResource (ResHandle);
          FreeResource (FindHandle);
        end;
      end;
    end;
  finally
    Beep;
  end;
end;

Koringa · Answer

[quote:6f2ad859ef=�TatuWeb�]D� para fazer com MP3 mas como com WAVE � mais f�cil. J� que voc� quer colocar o som na DLL, primeiro crie um arquivo texto e coloque escreva nele:[code:1:6f2ad859ef]SOUND WAVE C:Pastaarquivo.wav[/code:1:6f2ad859ef]Ao inv�s de SOUND vc pode usar qualquer palavra. S� botei ela como exemplo.Abra o prompt do DOS e v� para a pasta Bin d� onde o Delhi est� instalado. Ex:[b:6f2ad859ef]CDCD C:Arquivos de programasDelphi3BIN[/b:6f2ad859ef]Use o arquivo brcc32 para compilar o resource. No prompt digite:[b:6f2ad859ef]BRCC32 C:Pathdoprojetoarquivo.rc[/b:6f2ad859ef]Arquivo.rc � o arquivo texto que voc� salvou acima. Quando voc� fizer isso vai aparecer dentro do diret�rio bin do Delphi um arquivo de extens�o .res (arquivo.res). Mova esse arquivo e coloque na pasta do seu projeto. Nota: Vc pode copiar o arquivo BRCC32.exe e colar na pasta do seu projeto. Isso facilita bastante.Feito isso no seu projeto de DLL voc� vai colocar a linha:[b:6f2ad859ef]{$R Arquivo.res}[/b:6f2ad859ef]. No projeto do EXE voc� coloca a rotina abaixo para carregar o arquivo de som:[code:1:6f2ad859ef]var FindHandle, ResHandle, LibHandle: THandle; ResPtr: Pointer;begin LibHandle:=Loadlibrary (�Project.dll�); try if LibHandle<>0 then begin FindHandle := FindResource (LibHandle, �SOUND�, �WAVE�); if FindHandle<>0 then begin ResHandle:=LoadResource (LibHandle, FindHandle); if ResHandle<>0 then begin ResPtr:=Lock...

F�rum Arquivo de som e dll ? #251826