Sockets no delphi 7
Oi gente, eu me interessei muito pelos artigos sobre sockets e resolvi experimentá-los.Mas tá meio difícil entende-los no delphi 7.Será que alguém poderia me dar uma mãozinha.Gostaria somente de enviar mensagen mas com os tcp/Ips sockets do delphi 7 tá difícil.VALEU PESSOAL!!!
Vagner Monteiro
Curtidas 0
Respostas
Delphibond
13/07/2004
em todos os d7 q instalei o pacote do socket naum foi instalado automaticamente porém vc pode ir em Components > Install Packages > Botão Add e procurar na pasta bin do delphi dclsockets70.bpl e clicar em open: ele irá instalar o pacote do sockets automaticamente.
pra usar:
tserversocket.
port: qualquer porta (numérico ah exceto portas usadas pelo windows, ie ou outros programas axo q porta 95 e outras)
serversocket.open; > ativa servidor
na propriedade onclientread vc pode responder pela variavel socket
socket.sendtext(´texto resposta´);
será a resposta do servidor ao comando do cliente
tclientsocket.
port: porta a ser usada (tem q ser a msma no tclientsocket e tserversocket)
address: endereço do servidor (IP ou Nome)
tclientsocket.open; > tenta conexão c/ sevidor
pra enviar texto (protocolo personalizado) : clientsocket.sendtext(´texto´);
ai foi + por cima
tou no mail abaixo.. tenho um artigo do clube delphi aki se quiser soh avisar..
espero ter ajudado.
pra usar:
tserversocket.
port: qualquer porta (numérico ah exceto portas usadas pelo windows, ie ou outros programas axo q porta 95 e outras)
serversocket.open; > ativa servidor
na propriedade onclientread vc pode responder pela variavel socket
socket.sendtext(´texto resposta´);
será a resposta do servidor ao comando do cliente
tclientsocket.
port: porta a ser usada (tem q ser a msma no tclientsocket e tserversocket)
address: endereço do servidor (IP ou Nome)
tclientsocket.open; > tenta conexão c/ sevidor
pra enviar texto (protocolo personalizado) : clientsocket.sendtext(´texto´);
ai foi + por cima
tou no mail abaixo.. tenho um artigo do clube delphi aki se quiser soh avisar..
espero ter ajudado.
GOSTEI 0