Ir para conteúdo
Faça parte da equipe! (2024) ×

Minhas Funções e Source do Delphi [ARCHNAEL]


archnael
 Compartilhar

Posts Recomendados

Olá gente aqui postarei source, funções, exemplos e dicas de delphi.

Então é isso ai a primeira dica que vou colocar é como pegar o ip real de um pc conectado à internet.

 

Pegando o IP Real

 

uses ..., WinInet;

 

É necessário se cadastrar para acessar o conteúdo.

Link para o comentário
Compartilhar em outros sites

ou se quiserem tem esse que é para pegar IPs de Sites da internet

 

É necessário se cadastrar para acessar o conteúdo.

 

Você digita o site na label 1 e ele manda o IP para label 2

 

Componentes:

 

1Button

 

2Labels

 

2Edit

 

1ClientSocket

5hTkq8b.png

Link para o comentário
Compartilhar em outros sites

Olá galera hoje ensinarei como enviar uma "MessageBox" via socket usando os componentes TServerSocket e TClientSocket.

 

O programa terá uma conexão reversa ou seja o servidor que se conectará ao cliente.

 

IMG1.JPG

 

essa é a interface do meu programa.

 

declare três variáveis globais:

 

É necessário se cadastrar para acessar o conteúdo.

 

Os nomes das variáveis podem ser qualquer um mas a ordem dos valores não altere.

 

clique no botão Teste e coloque oi seguinte código:

 

É necessário se cadastrar para acessar o conteúdo.

 

Agora vamos colocar os eventos para os ícones:

 

clique duas vezes em cada botão para atribuir o evento de OnClick de acordo com a numeração dos botões como mostra a imagem:

 

IMG2.JPG

 

1> coloque i:= 0

2> coloque i:= 1

3> coloque i:= 2

4> coloque i:= 3

5> coloque i:= 4

 

essa variável é que fará o controle dos ícones da messagebox que tirar ao servidor qual ícone mostrar.

 

agora vamos codificar o componente ServerSocket o nosso SS

 

o valor da porta é a sua escolha eu coloquei 800;

 

No Evento OnClienteConnect:

 

coloque o seguinte codigo:

 

É necessário se cadastrar para acessar o conteúdo.

 

no Evento OnClientError:

 

coloque o seguinte codigo:

 

É necessário se cadastrar para acessar o conteúdo.

 

nessa parte será o código responsável pela resposta do servidor eu costumo usar identificadores na string apenas para saber o que está sendo enviado ou recebido para executar determinada função, mas como nosso programa só tem uma única funções que é enviar uma messagebox não será preciso usar identificadores.

 

no Evento OnClientRead coloque o seguinte código:

 

É necessário se cadastrar para acessar o conteúdo.

 

 

vamos codificar o botão enviar. clique duas vezes no mesmo.

e coloque o seguinte código.

 

É necessário se cadastrar para acessar o conteúdo.

 

terminamos a parte do cliente agora vamos para a do servidor:

 

crie uma nova aplicação e coloque um Timer e um ClienteSocket Renomeie o ClienteSocket para CS

 

vamos codificar o time.

 

É necessário se cadastrar para acessar o conteúdo.

 

agora no evento do CS.

 

OnError:

 

É necessário se cadastrar para acessar o conteúdo.

 

agora declare essa função que será responsavel de mostrar o messagebox e retorna a resposta para o cliente.

 

de implementation

 

É necessário se cadastrar para acessar o conteúdo.

 

 

agora no evento OnRead do CS

coloque o seguinte código:

 

 

É necessário se cadastrar para acessar o conteúdo.

 

 

e com isso terminamos nosso exemplo o source está para download.

 

qualquer dúvida add no msn [email protected]

O programa foi feito no delphi 7 mas pode ser implementado em versões superiores.

sim se você for compilar o fonte você tem que ter instalado o componente alphaControl ou dará alguns error.

 

 

SCAN: https://www.virustotal.com/pt/file/ab95ab69ea6e0eb60a700e89b4c13102d3ad30a42b7c910f3de58442ddcd6282/analysis/1367969901/

Download: https://dl.dropboxusercontent.com/u/50976832/ProgramasExemplos/Exemplo%20MessageBox.zip

 

caso suspeite de alguma coisa não abra os programas já compilados delete-os e compile novamente.

Link para o comentário
Compartilhar em outros sites

Auto Atualizador feito em Delphi 7

 

olha eu aqui de novo trago agora um source que fiz em delphi 7 de um atualizador automático, caso sirva poderá usar o exemplo e implementar um para suas futuras aplicações.

 

SÓ LEMBRANDO USEI COMPONENTES DO PACOTE ALPHA CONTROLS CASO VOCÊ NÃO TENHA ESSE PACOTE INSTALADO, APENAS COLOQUE OS COMPONENTES PADRÃO DO DELPHI EM VEZ DO QUE ESTÁ NO FORM.

 

 

Interface:

 

UPdate_int.png

 

[sCAN]https://www.virustotal.com/pt/file/dab106275a1f7c95273cf3178e381d959e35798ab5cac8f00d7f5e4396ec521c/analysis/1368146437/[/sCAN]

 

 

[DOWN]

https://dl.dropboxusercontent.com/u/50976832/ProgramasExemplos/Exemplo%20de%20Auto%20Update.zip[/[/DOWN]

Link para o comentário
Compartilhar em outros sites

Biblioteca DLL para manipulação de Registro do Windows

 

Olá galera trago aqui hoje uma lib que fiz para manipular de forma rápida e fácil o registro do windows a mesma se encontra na versão 1.0.

 

como usar

 

importe as seguintes funções para o seu projeto.

 

É necessário se cadastrar para acessar o conteúdo.

 

 

esse DLL_NAME_REG é uma constante que eu declarei com o nome da DLL

 

então você também declara assim

 

 

É necessário se cadastrar para acessar o conteúdo.

 

 

 

Lembrando o DLL deve está no mesmo diretório de sua aplicação.

 

 

usando a função de escrever uma string do registro.

Nível: 1

Requerimentos: Conhecimento Básico em delphi.

 

 

Crie uma nova aplicação:

 

coloque dois botões:

 

no Botão 1 no evento OnClick coloque o seguinte código: (Explicarei em cores);

 

É necessário se cadastrar para acessar o conteúdo.

 

como funciona essa função

 

o parâmetro de COR indica à ROOT KEY

o parâmetro de COR indica a Sub Key até o último '\'.

que será criada se não existir

como no exemplo

 

SOFTWATE \ MINHA SUB\ MINHA SUB 2\ NOME DO MEU VALOR

 

SERÁ CRIADA A SUB KEY "MINHA SUB" DENTRO DELA SERÁ CRIADA À SUB KEY "MINHA SUB 2"

 

CASO VOCÊ COLOQUE ASSIM

 

SOFTWATE \ MINHA SUB\ MINHA SUB 2\ NOME DO MEU VALOR\

 

SERÁ CRIADA A SUB KEY "MINHA SUB" DENTRO DELA SERÁ CRIADA À SUB KEY "MINHA SUB 2" E DENTRO DELA SERÁ

CRIADA A SUB KEY "NOME DO MEU VALOR"

 

E o nome do seu valor ficará em brando quando escrever .

 

 

o parâmetro de COR é o valor propriamente dito.

 

 

se a função conseguir escrever ela retornará um valor verdadeiro senão retornará um falso.

 

 

Agora Vamos Ler uma String

 

no Botão 2 no evento OnClick coloque.

 

 

É necessário se cadastrar para acessar o conteúdo.

 

é a mesma coisa da anterior a diferença é que você vai ler um valor e no lugar do valor você coloca uma variável do tipo requerido.

 

então galera é isso ae se mesmo assim não entenderam add ae no msn e pergunte

 

[email protected]

 

agradeço deste já.

 

[sCAN]https://www.virustotal.com/pt/file/337fa5f3ce15ae328beaba5d60c0f6a5565ad39b455fa8be254d9f82a139ff38/analysis/1368313911/[/sCAN]

 

[DOWN]https://dl.dropboxusercontent.com/u/50976832/ProgramasExemplos/RegistryExApi.zip[/DOWN]

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.