Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
9 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 9 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Erro de compatibilidade de cores

28/3/2017, 10:59 por Clebervfp

Boa dia, estou com um problema com vfp9, se alguém poder me ajudar fico agradecido!

Tenho um …

Comentários: 0

Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Estatísticas
Temos 7039 usuários registrados
O último usuário registrado atende pelo nome de missias

Os nossos membros postaram um total de 32 mensagens em 18 assuntos

CHAT x VFP

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Anexo CHAT x VFP

Mensagem por Marcos Guedes em 22/7/2009, 00:50

Criei um CHAT simples utilizando o VFP 9.0 e decidi compartilhar com os colegas.

Abaixo está o link do código fonte do CHAT.
Tentei criá-lo de forma que seja fácil adaptá-lo para algo mais complexo, futuramente:
- Clique aqui para baixar o arquivo!

Espero que gostem!
Qualquer dúvida a respeito, é só postar.

Obs: Conto com a ajuda dos colegas para melhorá-lo!


Última edição por Marcos Guedes em 13/1/2010, 21:19, editado 2 vez(es)

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: CHAT x VFP

Mensagem por Marcos Guedes em 22/7/2009, 09:58

Como utilizar:

- Para rodar na mesma máquina (para teste) basta executar duas instância do arquivo chatpro.exe
- Para torná-lo funcional num em rede, é necessário abrir o arquivo chat.ini e informar o caminho acessível aos usuários que participarão do chat.

Obs: Fiz uns testes local e em rede e funcionou perfeitamente bem!

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: CHAT x VFP

Mensagem por Marcos Guedes em 1/3/2010, 11:15

Mais um exemplo para os colegas:

[Você precisa estar registrado e conectado para ver esta imagem.]

Código:
PUBLIC oform, oform2

oform = CREATEOBJECT("clsChat",1)
oform.VISIBLE = .T.

oform2 = CREATEOBJECT("clsChat",2)
oform2.VISIBLE = .T.

READ EVENTS

STORE NULL TO oform, oform2
RELEASE oform, oform2

DEFINE CLASS clschat AS FORM

   TOP = 0
   LEFT = 0
   HEIGHT = 268
   WIDTH = 376
   DOCREATE = .T.
   CAPTION = "VFP CHAT"
   NAME = "clschat"

   ADD OBJECT txtchatname AS TEXTBOX WITH ;
      HEIGHT = 23, ;
      LEFT = 216, ;
      TOP = 12, ;
      WIDTH = 132, ;
      NAME = "txtChatname"

   ADD OBJECT edtchat AS EDITBOX WITH ;
      HEIGHT = 134, ;
      LEFT = 24, ;
      READONLY = .T., ;
      TOP = 48, ;
      WIDTH = 324, ;
      DISABLEDBACKCOLOR = RGB(255,255,255), ;
      DISABLEDFORECOLOR = RGB(0,0,0), ;
      NAME = "edtChat"

   ADD OBJECT txtmessage AS TEXTBOX WITH ;
      HEIGHT = 23, ;
      LEFT = 84, ;
      TOP = 194, ;
      WIDTH = 264, ;
      NAME = "txtMessage"

   ADD OBJECT command1 AS COMMANDBUTTON WITH ;
      TOP = 221, ;
      LEFT = 298, ;
      HEIGHT = 25, ;
      WIDTH = 50, ;
      CAPTION = "Send", ;
      NAME = "Command1"

   ADD OBJECT winsock1 AS wscontrol

   ADD OBJECT label2 AS LABEL WITH ;
      AUTOSIZE = .T., ;
      BACKSTYLE = 0, ;
      CAPTION = "MESSAGE", ;
      HEIGHT = 17, ;
      LEFT = 24, ;
      TOP = 197, ;
      WIDTH = 59, ;
      NAME = "Label2"

   ADD OBJECT label1 AS LABEL WITH ;
      AUTOSIZE = .T., ;
      BACKSTYLE = 0, ;
      CAPTION = "CHAT NAME", ;
      HEIGHT = 17, ;
      LEFT = 144, ;
      TOP = 15, ;
      WIDTH = 70, ;
      NAME = "Label1"

   PROCEDURE INIT
      LPARAMETERS plform
      IF plform = 1
         THISFORM.winsock1.OBJECT.BIND(1234)
         THISFORM.txtchatname.VALUE = "likestochat"
      ELSE
         THISFORM.winsock1.OBJECT.BIND(1235)
         THISFORM.txtchatname.VALUE = "sirchatalot"
         THISFORM.AUTOCENTER = .T. &&So they don't overlap
      ENDIF
      THISFORM.txtmessage.SETFOCUS()
   ENDPROC

   PROCEDURE DESTROY
      THISFORM.REMOVEOBJECT('WinSock1')
   ENDPROC

   PROCEDURE UNLOAD
      CLEAR EVENTS
   ENDPROC

   PROCEDURE txtmessage.KEYPRESS
      LPARAMETERS nkeycode, nshiftaltctrl
      IF nkeycode = 13 AND nshiftaltctrl = 0
         IF !EMPTY(THISFORM.txtmessage.VALUE)
            THISFORM.command1.CLICK()
         ENDIF
      ENDIF
   ENDPROC

   PROCEDURE command1.CLICK
      LOCAL schatname, smessagesent
      WITH THISFORM
         schatname = ALLTRIM(THISFORM.txtchatname.VALUE)
         smessagesent = schatname +" says:  " + ALLTRIM(THISFORM.txtmessage.VALUE)
         WITH .winsock1.OBJECT
            .remoteport = 1235
            .remotehost = "127.0.0.1"
            .senddata(smessagesent)
            .remoteport = 1234
            .remotehost = "127.0.0.1"
            .senddata(smessagesent)
         ENDWITH
         .txtmessage.VALUE = ""
      ENDWITH
   ENDPROC

ENDDEFINE

DEFINE CLASS wscontrol AS OLECONTROL
   OLECLASS='MSWinsock.Winsock.1'
   TOP = 228
   LEFT = 24
   HEIGHT = 100
   WIDTH = 100
   NAME = "winsock1"

   PROCEDURE INIT
      THIS.OBJECT.protocol = 1
   ENDPROC

   PROCEDURE dataarrival
      LPARAMETERS bytestotal
      smessage = SPACE(bytestotal)
      THISFORM.winsock1.OBJECT.GETDATA(@smessage)
      THISFORM.edtchat.VALUE = THISFORM.edtchat.VALUE + smessage + CHR(13)
   ENDPROC

ENDDEFINE

Fonte:
[Você precisa estar registrado e conectado para ver este link.]

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: CHAT x VFP

Mensagem por hugo em 1/3/2010, 11:17

boa marcos

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Anexo Re: CHAT x VFP

Mensagem por Krugzinho em 29/7/2011, 12:23

Olá Sei que este post está muito antigo, porem estou precisando adaptar este chat para utilizalo, porem preciso que ele se conecte ao um host, e não sendo mapeado, digamos que instalado localmente na maquina do cliente.

Pois todos os micros não possuem acesso a mapeamento de unidades então precisava de uma conexão direta por exemplo digitando um IP de servidor e realizando uma conexão, este aplicativo me ajudou bastante porem não é o suficiente.

E como sou iniciante no VFP não sei se isto é possivel fazer nele.

Obrigado !!!

Krugzinho
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum