Polack
|
EMBU DAS ARTES
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 26/11/2011 15:35 hs
Olá galera boa tarde.
è o Seguinte:
Tenho um Software para maquinas jukebox que desenvolvi a 2 anos, até a semana passada estava tudo correndo bem.
Porém meu cliente esta precisando da licença da APROVA, e para isso tenho que homologar o software junto a ABLF.
Entrei em contato com eles e um dos requisitos para a homologação, é a capacidade do software reproduzer Audio e Video criptografados.
Ja virei a net de cabeça pra baixo, atraz de algo em relaçãoa isso, encontrei varios códicos, dica e projetos que criptografa e descriptografa textos.
Também encontrei um projeto em VBNET no site do nosso saudoso Macoratti, tentei fazer uma adaptação para VB6 mas ate agora sem sucesso.
Também encontrei a duvido do nosso colega Caio, que esta com mesmo problema que eu, ja tentei entrar em contato com ele por email, mas não obtive resposta ate o momento.
Se alguem ai puder me dá uma luz de como fazer? eu agradeço desde ja.
Projeto macoratti VBNET http://www.macoratti.net/vbn_cpt1.htm
|
|
|
|
|
|
Thiago
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/11/2011 12:45 hs
Cara, acho que você pode usar qualquer tipo de criptografia.
Não é porque ele é um arquivo audio/video que será diferente de um arquivo texto.
Você simplesmente abre o arquivo em binary e gera a criptografia dele.
|
|
|
|
Polack
|
EMBU DAS ARTES
SP - BRASIL
|
|
Postada em 28/11/2011 15:25 hs
Opa Thiago vou ver se da certo, qlq coisa eu posto aqui valeu....
Estou com outro probleminha...
Quero carregar um listview com alguns dados de um BD.
Até aqui tudo bem, estou usando o seguinte código:
Private Sub Form_Load()
'Declarando as variaveis
Dim Cn As Connection, Rs As Recordset
Dim LstDados As ListItem, Cont As Long, Qtd As Long, Mdb As String
With ListView1
'Configura o listview
With .ColumnHeaders
.Clear
.Add , , "Artista", 4000, lvwColumnLeft
.Add , , "Musica", 4000, lvwColumnLeft
.Add , , "Qtd", 500, lvwColumnLeft
End With
.View = lvwReport
End With
'Lincando o banco de dados
Mdb = "D:DADOSCLICKMUSIC.mdb"
Set Cn = New Connection
With Cn
.CursorLocation = adUseClient
.Mode = adModeReadWrite
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Mdb
.Open
End With
Set Rs = New Recordset
'Execultando a pesquisa
Set Rs = Cn.Execute("SELECT artista, musica, vezes FROM AsMaisTocadas;") 'acho que acresentar algo nessa consulta!
Qtd = Rs.RecordCount
If Not Qtd = 0 Then
For Cont = 1 To Qtd
'Preenchendo o listview
Set LstDados = ListView1.ListItems.Add(, , Rs!artista)
LstDados.Tag = Rs!vezes
LstDados.SubItems(1) = Rs!musica
LstDados.SubItems(2) = Rs!vezes
Rs.MoveNext
Next
Else
'Exibir mensagem caso o BD esteja vazio
MsgBox "Não há dados no Banco de dados."
End If
'Fechando tudo
Cn.Close
Set Cn = Nothing
Set Rs = Nothing
End Sub
Agora eu quero que o listview coloque o maior valor no topo da lista exemplo:
Artista Musica Qtd
Fulano Um dia de Sol 23
Betano Um dia Chuvoso 56
Ciclano Sol e Chuva 87
Tem como colocar a maior qtd no topo, ao invés dele lista na seqüência de cadastro?
Queria que o 87 que é o maior fosse para a primeira linha.
Assim:
Artista Musica Qtd
Ciclano Sol e Chuva 87
Betano Um dia Chuvoso 56
Fulano Um dia de Sol 23
Se alguém puder ajudar, fico grato
|
|
|
|
|
|
Postada em 28/11/2011 23:57 hs
Cara, vou ser sincero, fiquei meio com preguiça de ler o código sem edentação, mas vou tentar te ajudar.
Esse campo QTDE é um campo do banco ? Se for é só mandar um order by Qtde DESC
Agora, se for uma variável eu recomendo você criar um vetor e ordenar ele no momento em que vai colocando no list.
|
|
|
|
Polack
|
EMBU DAS ARTES
SP - BRASIL
|
|
Postada em 29/11/2011 16:59 hs
Opa Thiago preguiçoso.rsrs brincadeirinha.
Então cara consegui resolver o problema com sua dica, adicionei order by Qtd e ficou otimo.
Agora esta dando erro de conexção com o BD, ja referenciei a todas as versões do ADO, uma de cada vez, pra ver se tinha conflito de versão, e nada.
Bom ai vai o código do erro, e vê se deixa de preguiça em rapaz..kkk
'Declarando as variaveis
Dim Cn As Connection, Rs As Recordset
Dim LstDados As ListItem, Cont As Long, Qtd As Long, Mdb As String
With ListView1
'Configura o listview
With .ColumnHeaders
.Clear
.Add , , "Artista", 4000, lvwColumnLeft
.Add , , "Musica", 4000, lvwColumnLeft
.Add , , "Qtd", 500, lvwColumnLeft
End With
.view = lvwReport
End With
'Lincando o banco de dados
Mdb = "D:DADOSCLICKMUSIC.mdb"
Set Cn = New Connection 'OCORRE ERRO AQUI
With Cn
.CursorLocation = adUseClient
.Mode = adModeReadWrite
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Mdb
.Open
End With
Set Rs = New Recordset
'Execultando a pesquisa
Set Rs = Cn.Execute("SELECT artista, musica, vezes FROM AsMaisTocadas ORDER BY VEZES DESC") 'acho que acresentar algo nessa consulta!
Qtd = Rs.RecordCount
If Not Qtd = 0 Then
For Cont = 1 To Qtd
'Preenchendo o listview
Set LstDados = ListView1.ListItems.Add(, , Rs!artista)
LstDados.Tag = Rs!vezes
LstDados.SubItems(1) = Rs!musica
LstDados.SubItems(2) = Rs!vezes
Rs.MoveNext
Next
|
|
|
|
Thiago
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/11/2011 17:31 hs
Cara, vou chutar que você está utilizando o Windows 7 SP1.
Se sim, tente compilar o projeto em alguma máquina que não tenha o SP1.
Caso não seja Windows 7 SP1 me avise que eu leio o código, porque sinceramente, não li agora tb... hahahahaha
|
|
|
|
|
