opa cara!!! parece bem util isso msm!!!! hehehehe vlw hj a noite vou testar isso!!!
ateh + Jonatã Castelo Branco escreveu: > > > da uma olhada no artigo 'Sockets' do site www.activedelphi.com.br. além > disso, veja o texto abaixo: > > Abrindo Threads vc não fica mais amarrado no evento onAccept e tb não > precisa mais utilizar o evento onClientRead. > Desabilite o evento onClientRead e defina a Thread: > CODE > type TSock_Thread = class(TThread) > private > Socket :TCustomWinSocket; > public > constructor Create(aSocket:TCustomWinSocket); > procedure Execute; override; > end; > > Na Implementation: > CODE > constructor TSock_Thread.Create(aSocket:TCustomWinSocket); > begin > inherited Create(true); // cria suspensa > Socket := aSocket; // passa o Socket > FreeOnTerminate := true; // libera automaticamente > end; > procedure TSock_Thread.Execute; > var s:String; > begin > While not Terminated and Socket.Connected do > begin > if Socket.ReceiveLength > 0 then // evita o evento onClientRead > begin > s := Socket.ReceiveText; // recebe > Socket.SendText(s); // envia > end; > Sleep(1); // evita a CPU ficar em 100% > end; > end; > > No evento onAccept: > CODE > procedure TForm1.ServerSocket1Accept(Sender: TObject; > Socket: TCustomWinSocket); > var TST:TSock_Thread; > begin > TST := TSock_Thread.Create(Socket); // instancia o objeto > TST.Resume; // coloca a Thread em execução > end; > > ----- Mensagem original ---- > De: Thiago Parra <[EMAIL PROTECTED] > <mailto:thiagopbatera%40yahoo.com.br>> > Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > Enviadas: Quinta-feira, 22 de Março de 2007 7:42:35 > Assunto: [delphi-br] Thread > > aew pessoal... tenho q fazer uma parada... mas num to conseguindo. . eh > pra faculdade.. um pouco urgente... > > se alguem puder me ajudar.. > nao tenho mto conhecimento de multicamadas. .. > desde jah agradeço > eis o enunciado... > > criar uma aplicação cliente e um servidor O cliente deve enviar uma > mensagem para o servidor > A aplicação servidor deve conter THREAD para receber os dados do cliente > e imprimir na tela a mensagem > > ____________ _________ _________ _________ _________ _______ > Yahoo! Mail - Sempre a melhor opção para você! > Experimente já e veja as novidades. > http://br.yahoo. com/mailbeta/ tudonovo/ > > __________________________________________________ > Fale com seus amigos de graça com o novo Yahoo! Messenger > http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/> > > [As partes desta mensagem que não continham texto foram removidas] > > > > __________ Informação do NOD32 IMON 2136 (20070322) __________ > > Esta mensagem foi verificada pelo NOD32 sistema antivírus > http://www.eset.com.br -- *Thiago F. Parra* *mail: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> *msn:* [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> /9236-0866 cel/ /4109-6869 res/ /4393-3656 com/ _______________________________________________________ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
