Mensagem entre micros Usando Socket.
Bom pessoal, é o seguinte:
:arrow:
fiz um sistema de comunicação entre micros usando os componentes ServerSocket e ClientSocket. no Servidor, onde todos se conectam, fiz uma lista para aparecer todas as pessoas conectadas, ficou legal, so que surgiu mais uma ideia: Nos clientes, aparecam tb todo mundo conectado ao servidor. Isso é possivel com esses componentes?
se possivel, seria tb possivel envia somente para uma pessoa?
exemplo:
tem o servidor, e conectados ao servidor termos: cliente1, cliente2, e cliente3. eu sou cliente um e quero me comunicar com cliente2 sem que o cliente3 saiba. dai mando pro servidor o servidor tb ver ver, e do servidor manda pro cliente2.
o modo que eu fiz, o servidor manda pra todo mundo... :(
agradeço a compreenção e a paciencia de todos.
flw, um abraço...
oTTo Husckows :shock:
:arrow:
fiz um sistema de comunicação entre micros usando os componentes ServerSocket e ClientSocket. no Servidor, onde todos se conectam, fiz uma lista para aparecer todas as pessoas conectadas, ficou legal, so que surgiu mais uma ideia: Nos clientes, aparecam tb todo mundo conectado ao servidor. Isso é possivel com esses componentes?
se possivel, seria tb possivel envia somente para uma pessoa?
exemplo:
tem o servidor, e conectados ao servidor termos: cliente1, cliente2, e cliente3. eu sou cliente um e quero me comunicar com cliente2 sem que o cliente3 saiba. dai mando pro servidor o servidor tb ver ver, e do servidor manda pro cliente2.
o modo que eu fiz, o servidor manda pra todo mundo... :(
agradeço a compreenção e a paciencia de todos.
flw, um abraço...
oTTo Husckows :shock:
Otto
Curtidas 0
Respostas
Otto
26/10/2003
tipo, aceito sujestões...
Se alguem souber de sites, podem dizer tb.. flw..;;
Se alguem souber de sites, podem dizer tb.. flw..;;
GOSTEI 0
Otto
26/10/2003
e ai gente :?:
GOSTEI 0
Outl@w
26/10/2003
Tenta adaptar estas linhas no evento OnClientRead do ServerSocket...
Onde clb_maquinas é um checklistbox.
var
i,j,k : Integer;
msg_client : String;
HostsSelecionados : Array [0..100] of String;
begin
i:=0;
j:=0;
k:=0;
// carrega um array com o nome das máquinas (hosts)
for j:= 0 to clb_maquinas.Count -1 do
if clb_maquinas.Checked[j] then
HostsSelecionados[j] := clb_maquinas.Items.Strings[j];
//recebe a mensagem
msg_client := Socket.ReceiveText;
// localiza a conexão destino e envia a mensagem
if ss_servidor.Socket.ActiveConnections -1 > 0 then begin
for i := 0 to (ss_servidor.Socket.ActiveConnections - 1) do
for k := 0 to j do
if uppercase(ss_servidor.Socket.Connections[i].RemoteHost) = upperCase(HostsSelecionados[k]) then
ss_servidor.Socket.Connections[i].SendText(msg_client);
end;
end;
valeu?
Outl@w
Onde clb_maquinas é um checklistbox.
var
i,j,k : Integer;
msg_client : String;
HostsSelecionados : Array [0..100] of String;
begin
i:=0;
j:=0;
k:=0;
// carrega um array com o nome das máquinas (hosts)
for j:= 0 to clb_maquinas.Count -1 do
if clb_maquinas.Checked[j] then
HostsSelecionados[j] := clb_maquinas.Items.Strings[j];
//recebe a mensagem
msg_client := Socket.ReceiveText;
// localiza a conexão destino e envia a mensagem
if ss_servidor.Socket.ActiveConnections -1 > 0 then begin
for i := 0 to (ss_servidor.Socket.ActiveConnections - 1) do
for k := 0 to j do
if uppercase(ss_servidor.Socket.Connections[i].RemoteHost) = upperCase(HostsSelecionados[k]) then
ss_servidor.Socket.Connections[i].SendText(msg_client);
end;
end;
valeu?
Outl@w
GOSTEI 0
Otto
26/10/2003
nem deu...
eu queria que aparece tipo um combobox nos clientes, dai o cliente escolhe pra quem quer mandar a msg reservada ou nao(pra todos)
saca??/
valeu a ajuda,...
eu queria que aparece tipo um combobox nos clientes, dai o cliente escolhe pra quem quer mandar a msg reservada ou nao(pra todos)
saca??/
valeu a ajuda,...
GOSTEI 0
Otto
26/10/2003
Alguem assim sabe, como, do Servidor, mando uma mensagem do pra um dos usuarios conectados?/
acho que assim minha pergunta fica mais fácil...
:(
sera isso possivel?
acho que assim minha pergunta fica mais fácil...
:(
sera isso possivel?
GOSTEI 0
Michel
26/10/2003
colega tenho um programa aqui de chat se vc quiser manda o e-mail q te passo falow t+
michel.steev@brasilata.ind.br
michel.steev@brasilata.ind.br
GOSTEI 0
Mariodias
26/10/2003
colega tenho um programa aqui de chat se vc quiser manda o e-mail q te passo falow t+
michel.steev@brasilata.ind.br
Caro Amigo tem como vc mandar esse exemplo para mim ?
Estou precisando de um chat para estudo .
Obrigado
GOSTEI 0