Colocar Dll

[Thalles2 0]

Boa tarde a todos.

Bem é o seguinte,sou novo no ramo começei a pouco tempo e queria uma grande ajuda.

montei um player simples so que queria que ele grava-se o audio que passa em radios online e por isso procurei e achei um tal de LameEnconder. so que não como pego a dll pra funfar no meu player.

 

Quem não tiver entendo bem aonde eu quero chegar,vou explicar de um jeito melhor.

Queria pegar a lame_enc.dll pra funcionar no media player do delphi pr gravar audio(fazer um tipo de gravador de Audio).

 

Aguardo reposta.

[Raficcha 1]

Para carregar uma dll, primeiro leia sua documentação para saber as funções que ela dispõe.

 

Existem duas maneiras de se carregar uma dll, uma é dinamicamente (permite tratamentso e tals), a segunda é carregar junto com o programa (se não tiver a dll, o programa não abre, mas tem suas vantagens).

 

Para carregar a dll dinamicamente:

 

procedure TForm1.Button1Click(Sender: TObject);
var
	hLib: Pointer;
	funcao: function (i: integer): integer; //deve ter os mesmos parametros e retornar o mesmo tipo que a função na dll
begin
	hLib := LoadLibrary(GetModuleHandle(PChar('Arquivo.dll')), PChar('Funcao'));
	@funcao:= hLib;
	if (@funcao<> nil) then
 	funcao(1000);
	else
		showmessage('Não foi possível carregar a dll');
end;

Para carregar a função junto ao programa:

 

function funcao(n1: integer):Integer; external 'Project2.dll'; //a declaração da função deve ser igual a dll