mediaplayer

Question

Ol� pessoal, preciso de uma luz!!!Tenho um dbgrid que est� ligado a um DataSource, onde tenho v�rias palavras listadas, tenho tb um componente Media Player1.Quero que aconte�a o seguinte: Quando selec...

Guilherme · Answer

nao sei como vc esta fazendo (posta ai pra nois sabe ) mas vc poderia fazer assim :
nessa tabela q esta ligado o dbgrid vc poderia acrescentar um campo a mais para q seja cadastrado o caminho do video correspodente aquele registro ai na op�ao AfterScroll da tabela vc coloca o seguinte codigo

  
 MediaPlayer1.FileName:=IBDataSet1CAmpo.value;
 MediaPlayer1.Play;

depois vc posta si deu certo

Daia · Answer

eu pensei em fazer assim:� q tenho uma query relacionada com o dbgrid, onde fa�o um select pra q apare�a as palavras gravadas na tabela BDLibras.db e l� naquela tabela tb tem um campo v�deo onde est� gravada a imagem.A� no evento OnKeyUp do DBGrid fiz o seguinte:  qryPalavras.SQL.Text := �Select video       � +                          �  from BDLibras.db � +                          �where palavra = � + QuotedStr(DBGrid1.SelectedField.Text);  qryPalavras.Open;  MediaPlayer1.FileName := �C:LibrasAvi� + qryPalavras.Text ;  MediaPlayer1.Play;O �nico problema � que n�o sei como passar a vari�vel que selecionei no dbgrid para q ele fa�a o select. Acho que do jeito q est� acima est� errado: (DBGrid1.SelectedField.Text);Vc sabe??...

Rjun · Answer

Fa�a isso:[code:1:b3ebc7b833]qryPalavras.SQL.Text := �Select video � + � from BDLibras.db � + �where palavra = � + QuotedStr(query.FieldByName(�Nomedovideo�).asString);[/code:1:b3ebc7b833]...

Daia · Answer

n�o entendi a segunda: �QuotedStr(query.FieldByName(�Nomedovideo�).asString);�, � que quando vou me deslocando no dbgrid, cada vez q for trocando a palavra quero que troque o v�deo, mas essa parte da query.FieldByName... n�o entendi como aplicar? Queria q ele pegasse a palavra diretamente do dbgrid...

Rjun · Answer

O deslocamente � entre linhas? Como que � a estrutura da sua query?...

Daia · Answer

o deslocamento � entre linhas sim.Tenho um dblookup onde posso selecionar uma categoria, por exemplo animais, a� no dbgrid v�o aparecer somente os animais, a estrutura da query �:   qryPalavras.SQL.Text := �Select palavra     � +                          �  from BDLibras.db � +                          �where categoria =  � + QuotedStr(dblcbCategoria.Text) +                          �  order by palavra � ;e o dbgrid est� relacionado com o dataSource desta query, ok???...

Rjun · Answer

Bom, voc� poderia fazer uma select que retornasse a palavra e o nome do arquivo de video. Isso seria exibido em um grid. No evento AfterScrool da query voc� coloca esse c�digo:

MediaPlayer1.FileName := �C:\Libras\Avi\� + qryPalavras.FieldByName(�Video�).asString; 
MediaPlayer1.Play;

Daia · Answer

mas a� eu teria q ter mais um grid? N�o tenho como buscar a palavra diretamente do grid e a� fazer um select tipo assim:
[b:765f063726]qryPalavras.SQL.Text := �Select video � +
� from BDLibras.db � +
�where palavra = � + QuotedStr(DBGrid1.SelectedField.Text);
qryPalavras.Open;
MediaPlayer1.FileName := �C:\Libras\Avi\� + qryPalavras.Text ;
MediaPlayer1.Play; [/b:765f063726]

o problema � que : QuotedStr(DBGrid1.SelectedField.Text); - isto n�o est� correto do jeito q estou passando o valor do grid para o select vc n�o sabe como posso fazer isso?

Rjun · Answer

Por que voc� teria q ter outro grid? Voc� n�o exibe a palavra no grid e a cada palavra selecionada a imagem correspondente � exibida?...

Daia · Answer

Ok, tentei fazer do jeito q vc me disse, mas a� retorna um erro:
exception class EDataBaseError with message �qryPalavras: Field �Palavra not found�.
N�o entendi porque esse erro, n�o vejo nada de errado...

Rjun · Answer

Coloque o trecho de c�digo que voc� fez....

Daia · Answer

procedure TForm1.qryPalavrasAfterScroll(DataSet: TDataSet);
begin
qryPalavras.SQL.Text := �Select video � +
� from BDLibras.db � +
�where palavra = � + QuotedStr(DBGrid1.SelectedField.Text);
qryPalavras.Open;
MediaPlayer1.FileName := �C:\Libras\Avi\batata.avi� + qryPalavras.Text ;
MediaPlayer1.Play;
end;

Rjun · Answer

Acho que voc� n�o me entendeu.No form em que voc� exibe o grid, coloque o seguinte trecho.[code:1:c8e8b767bd]qryPalavras.SQL.Text := �Select palavra, video � + � from BDLibras.db � + �where categoria = � + QuotedStr(dblcbCategoria.Text) + � order by palavra � ; [/code:1:c8e8b767bd]No evento AfterScrool dessa query, voc� coloca o seguinte trecho:[code:1:c8e8b767bd]procedure TForm1.qryPalavrasAfterScroll(DataSet: TDataSet); begin   MediaPlayer1.FileName := �C:LibrasAvi� + qryPalavras.FieldByName(�Video�).AsString;   MediaPlayer1.Play; end;[/code:1:c8e8b767bd][/code]...

Daia · Answer

agora est� dando este erro:exception class EDataBaseError with message �qryPalavras: Field �video not found�....

Rjun · Answer

Esse campo existe? Se sim, voc� adicionou ele na query, no fields editor?...

F�rum mediaplayer #284499