Re: [delphi-br] Thread
Xara, é o seguinte!!! ja fiz um desses, so que em Java, mas... a idéia é o seguinte! no seu modelo cliente servidor, o seu servidor principal fica aguardando conexões dos cliente, quando ele recebe alguma, você cria uma nova thread para que ela resolva as requisições do cliente, para essa thread você passará o socket, caso esteje utilizando tcp, essa thread seria o seu servidor secundário, ou escravo, como queira, no livro TCP/IP do Conner você encontrará um ótima explicação para esse processo, como o servidor principal fica aguardando conexões, como ele cria esse socket com a conexão do cliente e volta a aguardar novas conexões Espero ter ajudado! qq estamos aí Em 22/03/07, Thiago Parra [EMAIL PROTECTED] escreveu: 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/ -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Thread
Kra, seguinte! te recomendo autamente vc estudar e fazer, aprendi mto quando eu fiz, mas se vc kizer meu código, posso dar um ajeitada nele do jeito que vc precisar, ai a gente combina!!! Em 22/03/07, Thiago Parra [EMAIL PROTECTED] escreveu: 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]thiagopbatera%40yahoo.com.br mailto:thiagopbatera%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: 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] %2Athiagopbatera%40yahoo.com.brmailto: [EMAIL PROTECTED] thiagopbatera%40yahoo.com.br *msn:* [EMAIL PROTECTED] thiagopbatera%40hotmail.com mailto: [EMAIL PROTECTED] thiagopbatera%40hotmail.com /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/ -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Oracle e Delphi
Bom dia!! Pessoal estou querendo retornar do oracle de um campo date, data, hora e fuso horario o seguinte formato 1976-07-24T00:00:00-02:00 ja consegui a data e a hora: SELECT to_char(TAB_OFERTA_VENDA.DAT_EXPIRA, '-MM-DD') || 'T' || to_char(TAB_OFERTA_VENDA.DAT_EXPIRA, 'HH24:MI:SS') FROM TABELA Alguem pode me ajudar com o Fuso horário? mto obrigado a todos!!! -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvida Oracle!!! Ajuda Urgente!!!!
Pessoal, Tenho uma tabela com auto relacionamento, quando eu vou inserir uma nova chave estrangeira, eu posso referenciar a chave primaria que estou criando ou já tem que estar criada?? Obrigado a todos! -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como fazer download de um arquivo e salva-lo em um diretorio?
Pessoal, Boa tarde, gostaria que alguem me ajudasse, como faço o download de um determinado arquivo que esta em uma página, e o salvo em um determinado diretório!? -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como fazer download de um arquivo e salva-lo em um diretorio?
Valeu Eduardo Silva dos Santos !!
Em 01/02/07, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu:
Use essa função:
//coloque Urlmon em uses
function DownloadFile(Source, Dest: string): Boolean;
// if DownloadFile ('http://www.sitedodowload.com/nomedoarquivo.extensão',
'c:\nomedoarquivo.extensão') then ...
function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) =
0;
except
Result := False;
end;
end;
2007/2/1, Thiago Teixeira [EMAIL PROTECTED]thiagoateixeira%40gmail.com:
Pessoal,
Boa tarde, gostaria que alguem me ajudasse, como faço o download de um
determinado arquivo que esta em uma página, e o salvo em um determinado
diretório!?
--
Atenciosamente
Thiago Alves Teixeira
[As partes desta mensagem que não continham texto foram removidas]
--
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com/
[As partes desta mensagem que não continham texto foram removidas]
--
Atenciosamente
Thiago Alves Teixeira
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida de conexão!!!!
*Pessoal,* ** *Como faço para obter o hostname de um determinado ip.?* *Como faço para conectar a uma máquina por um ip/porta ou hostname/porta.?* ** Obrigado!!! -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Servico em deplhi com janelas
Gabriel! trabalho com services, vc não pode criar componentes de interação com o usuario em serviços! somente processos! pq serviços rodam enqto o pc esta naquela tela de logoff, principalmente! e então para que vc iria criar um form, se ninguem iria vê-lo e nenhum usuario iria interagir com ele!!! a microsoft (msdn) e borland, fala para não criar componentes gui em serviços! flw espero ter ajudado! 2007/1/29, José Mário Silva Guedes [EMAIL PROTECTED]: Para que isso seja possível mude a propriedade Interactive do seu TService para true. [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como obter a mascara de sub-rede????????
Pessoal alguém sabe como eu obtenho a mascara de sub-rede da máquina em que a aplicação está rodando? Obrigado a todos! -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Trabalhando com rede
Pessoal, Bom dia! como faço para conectar a um pc pelo nome dele, sem ser pelo ip, e depois de conectado como obtenho ip, nome, e mascara de sub rede!??? Obrigado a todos! -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sniffer!
Vlw! vou desenvolver essas func. aki!!! []'s 2007/1/17, Andre Mesquita [EMAIL PROTECTED]: Fiz uma função que pode resolver seu problema... é claro que do jeito que ela está vai demorar um bom tempo. Agora vc tem duas tarefas: a primeira é desenvolver um função que faça o ping e te retorne se o computador respondeu ou não, e a outra é otimizar esse código e depois disponibilizá-lo para os nobres colegas da lista. Como escrevi essa msg no cliente de e-mail, não testei. Ahh, a função te retorna quais são os computadores ativos. Você tem uma terceira tarefa: escutar a porta desejada. [ ]'s, Andre function listaComputadoresAtivos : TStringList; var i,j,k,l : Integer; sl : TStringList; begin sl := TStringList.Create; for i := 1 to 254 do for j := 1 to 254 do for k := 1 to 254 do for l := 1 to 254 do begin ip := IntToStr(i)+'.'+IntToStr(j)+'.'+IntToStr(k)+'.'+IntToStr(l); if ping(ip) then sl.add(ip); // end if end; Result := sl; end; 2007/1/17, Thiago Teixeira [EMAIL PROTECTED]thiagoateixeira%40gmail.com: Bom dia, Pessoa preciso fazer um sniffer em delphi, mas para a seguinte funcionalidade, em uma rede, preciso encontrar o servidor, não sei o ip dele, mas sei a porta, então vou varrer a rede e procurar um servidor com uma determinada porta. Alguém pode me dar alguma informação de como vou fazer isso? mto obriga! -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Sniffer!
Bom dia, Pessoa preciso fazer um sniffer em delphi, mas para a seguinte funcionalidade, em uma rede, preciso encontrar o servidor, não sei o ip dele, mas sei a porta, então vou varrer a rede e procurar um servidor com uma determinada porta. Alguém pode me dar alguma informação de como vou fazer isso? mto obriga! -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas]
