[AULA]Aprendendo um pouco sobre Sockets!

[Pedrinhooow 0]

De cara gostaria de avisar que quem usa o Delphi 7 não precisa desesperar os componentes estão presentes sim. Mas por padrão não estão instalados aí você vai ter que encontrar a Bpl e instalá-la.

 

Vou falar um pouco sobre os componentes Sockets...

Eles ficam na aba INTERNET.

O TserverSocket – Este componte como o nome já diz é o SERVIDOR. Ele será responsavel por receber as conexões. De quem? Do TclientSocket! Sim sim! Sempre que você quiser fazer uma comunicação usará no minimo um Server e um Client. Um outro detalhe super importante é que SEMPRE um Client se conecta em um Server.

 

O TclientSocket – Este componente é super simples. Você vai ter o trabalho de conectar e mandar mensagem e tratar o que recebe. Você perceberá que todo segredo da coisa está no TserverSocket mesmo.

 

Vamos fazer um simples IPChecker... só pra dizer se o server está online, só pra vocês entenderem um pouco como funcionam os componentes Socket.

Crie uma nova aplicação.

Insira 1 Label com o Caption: 'IP:'

outro label com Caption:'Port:'

e outro label com caption:'' e o Name: lblServ

dois EditBox em branco.

1 botão de comando com o caption:'Verificar'

outro botão de comando com o caption:'Nova Verificação'

1 TClientSocket com o Name:'Cliente'

 

No comando do botão Verificar coloque o seguinte código:

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

    

    Cliente.Host:=Edit1.text;

    Cliente.Port:=StrToInt(Edit2.text);

    cliente.Active:=true;



end;

explicando:

Client.Host:=Edit1.text - > O Endereço em que o Socket irá se conectar.

Client.Port:=StrToInt(Edit2.Text) -> A Porta em que o Socket irá se conectar.

Client.Active:=True - > O Socket ficará ATIVADO.

 

agora no evento OnConnect do Cliente(TClientSocket) coloque o seguinte código:

    if cliente.Socket.connected=true then

    lblServ.Caption:='O Servidor com o IP: ' + edit1.text + ' no momento está: Online ';

end;

explicando;

 

if cliente.socket.connected=true then - > se o socket do cliente se conectar ao endereço IP entao: {condição}

lblServ.Caption:='......' não precisa explicar ;P

 

 

agora coloquem esse código no evento OnClick do button2(Nova verificação):

procedure TForm1.Button2Click(Sender: TObject);

begin

    cliente.active:=false;

    edit1.text:='';

    edit2.text:='';

    lblServ.caption:='';

end;

explicando:

cliente.active:=false - > o cliente(TClientSocket) ficará DESATIVADO.

edit1.text:='' -> o edit ficará em branco;

edit2.text:='' -> o edit ficará em branco.

Terminou a minha pequena explicação.

 

Espero ter ajudado alguém com essa Mini-Aula.

 

8)

[Ablankzin 0]

Estou com o sguinte problema, não achei a TclienteSocket e o TClientServer no Bpl...

 

Sera que tem algum lugar onde eu possa baixar??

[Pedrinhooow 0]

Ele vem na pasta do Delphi, mas você tem que procurar, espere um segundo.. estou procurando pra você...

 

//EDIT

Com o delphi aberto, vá em Component > Install Packages...

Clique em Add

Vá na pasta do Delphi 7\Bin

e escolhe dclSockets70.bpl

 

dps clique em OK... e OK denovo ;D

pronto tá instalado, agora ele ficará na aba "INTERNET"

 

Espero ter ajudado :wink:

[Ablankzin 0]

huhuhuh funfo donated 100 OT$ valeu =*

[Pedrinhooow 0]

Opa kra, vlw...

se precisar tamo ae 8)

[Sollos 0]

Olá amigo, muito legal essas dicas, eu já realizei alguns trabalhos em Delphi pra comercio a uns anos, mas nunca me preocupei em explorar essa parte do delphi!

Outra, vou tentar criar um componente ASP pra fazer checkIP, se funcionar belezinha, vou doar todo meu OT$ pra vc, ou se vc prefirir boto os créditos nele ^^

Qual prefere??

[Pedrinhooow 0]

@Sollos

 

Se quiser fazer os 2 eu agradeço, mas prefiro os OT$ =]]

[Sollos 0]

Po, o componente em Delphi que criei deu muito problema, e não respondia à sua criação no servidor, então criei em VB mesmo =/

 

Dá uma olhada nele

http://forum.otserv.com.br/viewtopic.php?t=5550

[Shadow Brother 0]

mto bom cara!

ainda mais p mim q so iniciante

xD

vlw aew

[smeagoulh 0]

ae, aprendi, eu tava mesmo precisando sabe como que se faz um verificador, ta ótimo o tuto, vlw , n te do OT$ pq nem tenho (2OT$, WOW). Realmente foi uti.

[leogos 0]

Aqui esta dando erro u.u'

Acho que ele não está reconhecendo as variaveis...

Flw!

[leogos 0]

Aqui esta dando erro u.u'

Acho que ele não está reconhecendo as variaveis...

Flw!

[leogos 0]

Aqui esta dando erro u.u'

Acho que ele não está reconhecendo as variaveis...

Flw!

[crystal 0]

Por falar em socket...

 

Por quando tento rodar servidor no meu PC está dando a seguinte mensagem de erro:

Unable to create server socket (2)

 

=/Desabilitei Firewall, não tenho IP fixo, as config. estão OK e continua.

[ropeetz 0]

Bla achei que era algo util,tipo socket soh que criado por api...

[Risuke 0]

Realmente muito bom, quem souber usar, pode fazer um trojan ;P

[ropeetz 0]

Trojan mal feito,pq trojan que é bom é 99% codado em api quero ver alguem fazer usando API,Client Socket e Server Socket pesam bem mais numa aplicação do que você programar usando as API do windows

 

ai sim vc ve um trojan de 40kb estavel,que nao usa muita memoria.

Editado 25 Janeiro, 2009 por ropeetz

[Risuke 0]

Sim, programar trojan em Delphi, é ruim sim e já a maioria dos AV, já detecta os milhares de tipos de códigos-fonte.

[Gustaved 0]

Day...

o ot fikava on certinho!!

daii bugo e agora so a parece \/

 

Unable to create server socket (2)???

 

i outra meu ot fikava umas horas on daii nukavaum e ele bugava inteiro

(ant-nuker) Ligado!!

 

kd a resposta???

 

 

aii vlw pela atençao

[benedict 0]

Sim, programar trojan em Delphi, é ruim sim e já a maioria dos AV, já detecta os milhares de tipos de códigos-fonte.

 

 

Não é bem assim, se voçê fazer aqueles trojan manjado do hackerinocente é claro que o Av vai detectar..

É tão simples camuflar ele dos AV, basta colocar um laço ASM NOP que ja se foro uns 10 av que detectava, ao encriptografar os codigos que o Av detecta (como o do Downloader ou o de iniciar junto com o windows) a maioria ja não detecta mais o trojan.

dentre esses exemplo existe milhares..

 

cara, é windows, para cada erro 10 erro corrigido, são encontrados outros 10.. se não mais!