Playlist Forms - listar arquivos de um diretório

[master zyon]

Galera,

vê se alguém pode me ajudar....

Preciso do seguinte.... Estou querendo bolar uma Playlist de musicas no forms.

Queria saber se existe alguma forma de eu exibir por exemplo todas as musicas de determinada pasta em um list item?

Obrigado!

[dr_gori]

Sim.
Existem várias formas de fazer isso. Creio que a mais "elegante" é usar a D2KWUTIL.

Selecionar tudo

declare 
 hSearch PLS_INTEGER;
 vcFile  VARCHAR2(60);
 bIsDir  BOOLEAN;
begin
 hSearch := win_api_directory_list.FirstFile('C:\WINDOWS\*.*', vcFile, bIsDir, FALSE);
 -- Process the first file
 ...
-- Now iterate through the rest
 LOOP 
  win_api_directory_list.NextFile(hSearch, vcFile, bIsDir, FALSE);
  EXIT when vcFile is null;
  -- Process the next file and so on
  ..
 end LOOP;
win_api_directory_list.CloseSearch(hSearch);
end;

No exemplo acima, ele recupera o nome do arquivo na variável vcFile.
Se você não tem instalado a D2KWUTIL, procure aqui no forum pra saber como se faz. Tem muita dúvida já solucionada com relação a isso.

[master zyon]

dr_gori, não sei se estou fazendo algo errado mas..... já baxei o D2KWutil.PLL E coloquei dentro da pasta BIN do meu Oracle.

já criei um registro apontando para o caminho onde fica D2KWutil.PLL


utilizei o exemplo a baixo em uma trigger e ele me retorna falando que
win_api_directory_list.FirstFile deve ser declarado....Pode me ajudar?

[master zyon]

Já consegui resolver pessoal.....FUNCIONOU ...

Dr_gori, mtu obrigado!!!!

Vlw mesmo!!

Abração!

[dr_gori]

Além da PLL tem que ter também a DLL no mesmo diretório. (d2kwut60.dll)
Colocou?

[master zyon]

Sim....
Atachei tudo no forms depois e funcionou.... agora só estou acertando alguns detalhes do tipo (que arquivos listar etc etc....)

Abraço!
Obrigado!