[Resolvido]Chat em acess

Teria como fazer um sistema de chat no access?

Olá amigo

Experimente porque eu nunca tive oportunidade de o experimentar, pois outros valores mais altos se levantaram, mas se funcionar diga.

http://dl.dropbox.com/u/8157744/lan.zip

Não funcionou não

Pois, como lhe disse não tive oportunidade de experimentar. Recolhi esse código da internet e nem cheguei a fazerr teste. Tenho 2 mas feitos em vb6, mas você quer em access. Hoje não dá porque cheguei agora e já é tarde mas amanhã vou ver o que posso fazer em reçação a isso. TEnho uma aplicação com um cha. A Aplicação está feita em Access e o Chat em VB6. Vou tentar adaptar o código ao access. se der certo eu posto aqui. Se não der posto na mesma.

Ok obrigado amigo Viera

Caro amigo:

Num dos meus discos (armazéns) encontrei isto de 2004. Não me recordo se alguma vez cheguei a testar ou não. Neste momento é impossível eu testar porque estou dependente de uma só máquina, mas ele captou logo o meu equipamento. Experimente e dê noticias.

http://dl.dropbox.com/u/8157744/mensajesNT.zip

Viera eu tentei usar na rede so que o sistema so reconhece o pc que estou verificando.
Só que as maqinas sao sistemas operacionais diferentes.
Não sei como fazer para funcionar

Bom, você à partida instalou o mesmo programa em todas as máquinas, foi assim! Agora que outros sistemas possuem as máquinas. Seja mais claro e minucioso.

Eu Coloquei o sistema na pasta compartilhada do meu pc de mesa.
E criei um atalho no meu notbook.

Amigo

Não tenho meios para testar isso neste momento como lhe referi. Bom o que posso fazer se realmente você necessita tanto assim de um chat, eu tenho em VB6. Pode ser integrado no seu sistema. Nos meus programas em access tenho muitos componentes em vb6 que integro dentro dessas aplicações poque por vezes o access limita-nos mais. Quer experimentar?

Quero sim
Se poder mandar eu agradeço

Ok, mas vai ter que também fazer o seguinte com o exemplo anterior.

1- Instale em cada máquina uma versão (sem atalhos e partilhas). E verifique se assim o exemplo funciona.

Aqui vai o link e dê notícias (coloque o exe na mesma pasta da sua aplicação)

http://dl.dropbox.com/u/8157744/Mensageiro.zip

Vá à secção de Módulos na sua plicação e crie um novo módulo. Cole este código:

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Declare Function FormatMessage Lib "kernel32" _
Alias "FormatMessageA" _
(ByVal dwFlags As Long, _
lpSource As Any, _
ByVal dwMessageId As Long, _
ByVal dwLanguageId As Long, _
ByVal lpBuffer As String, _
ByVal nSize As Long, _
Arguments As Long) As Long

Private Const SW_NORMAL = 1&
Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000

Public Function OpenFile(FileName As String) As Variant
Dim RetVal As Long
Dim sError As String
Dim LenMsg As Long

RetVal = ShellExecute(0&, "open", FileName, 0&, vbNullString, SW_NORMAL)

If RetVal < 33 Then

LenMsg = FormatMessage( _
FORMAT_MESSAGE_FROM_SYSTEM, _
ByVal 0&, _
RetVal, _
0&, _
sError, _
Len(sError), _
0&)

OpenFile = Left(sError, LenMsg - 1)
Else

OpenFile = True
End If

End Function


Crie um botão de comando no form e no evento click, cole este código:

Dim Resultado As Variant
Resultado = OpenFile(CurrentProject.Path & "\Mensageiro.exe")
If Resultado <> True Then
MsgBox Resultado
End If

Bom Trabalho e explore o programa porque não fiz ajuda para ele. Mas está tudo em português.

ok vou verificar

Amigo Viera utilizei ele somente sem o access.Parabens otimo sistema.Nem irei integrar ele no access. Ta perfeito.
Queria perguntar por amigo se o amigo sabe se existe algum programa remoto que seja feito em access ou igual a este que o amigo me disponibilizou.
Obrigado pela ajuda

Então Bom Dia

Fico satisfeito por ter resolvido o seu problema, mas ao mesmo tempo fico triste porque você não fez aquilo que eu lhe pedi. ou seja; Colocar o exemplo em Access nas 2 máquinas, sem pastas nem partilhas, no mesmo Directório e verificar se ele trabalha, pois da forma que você retornou esse exemplo não iria funcionar é nunca. Para ele funcionar direito tente instalar uma cópia da mdb em cada máquina e teste. OK.

Agora Remoto, não entendi bem o que está a pedir??? Sej aum pouco mais claro.

Boa tarde Sr. Vieira

Aproveitando o topico tentei instalar o sistema mas ao chama-lo retornou uma mensagem de erro. component "COMDLG32.OCX" or one of its dependecies not corretly resgistered file missing oe invalid, como consigo registra-lo.

Aqui uso windows XP em todas as maquinas.

abç.

Luiz

Amigo Luiz deixe o senhor no céu e trate-me por vieira ou por amigo também.

Normalmente esse OCX32 está presente no sistema na Pasta Windows system32. De qualquer forma aqui vão os dois componentes para você registar a DLL eo OCX.

http://dl.dropbox.com/u/8157744/comdlg32.dll

http://dl.dropbox.com/u/8157744/comdlg32.ocx

Bom trabalho e se tudo funcionar direitinho retorne para saber-mos

Vieira,
Acho que consigo fazer esse chat genuinamente em access, mas para isso, precisaria reunir o nome dos users de rede numa combobox. Demais amigos do fórum, algum de vocês tem uma idéia como fazer isso, algum comando ou código de API?

Amigão Dilson

Porque é que tem que ser numa comboBox? Se explicares talvez consiga ter alguma ideia

Caro amigo Vieira, desculpa pela demora, faltava registrar a OCX, após isso funcionou perfitamente. Vou fazer alguns testes pois alguns usuarios se conectam via acesso remoto a um servidor ai eu nao sei como ficaria a questão dos ips.

Muito obrigado

Abç.

Luiz

Valeu amigo

Mande sempre e bom trabalho

Infelizmente não está mais disonivel para download.

Agradeceria se disponibilizar novamente o download

Obrigado

Amigo vieirasoft, poderia disponibilizar os conteúdos que foram passados para a solução desse tópico?

Estou precisando desenvolver um chat e acredito que me ajudaria muito com esse material.

Fico no aguardo,

abraço

Favor rever Links.

Bom dia. Faz uns anos que a DropBox foi pirateada e eu fui um dos contemplados. Não tenho como actualizar esses links e tampouco como ajuda-lo, pois a aplicação era de um terceiro.

Cumprimentos