Patch Para Seu Servidor !

[higan 0]

Vou ensinar como se faz um programa em delphi simples para que você e seus amigos tenham um fácil acesso ao jogo de vocês.

 

desculpas se postei no lugar errado mais como é feito em delphi achei melhor postar ele aqui, é uma pequena contribuição minha para o forum!

 

Vamos ao que interessa!

 

Abre o Delphi ( utilizei o Delphi 7 para esses tutorial)

 

1 - Tratando o Form1:

No object inspector, vá em:

 

- Border Style e escolha BSNONE (isso vai fazer seu Form mostrar somente o que esta dentro dele, a borda do programa não aparecera, dando uma cara melhor de patch).

 

- Position e escolha PODESKTOPCENTER (isso centraliza seu projeto no desktop!).

 

- Ajuste o tamanho do seu Form , o meu patch eu coloquei um tamanha de:

-ClientHeight = 500.

-ClientWidth = 640.

 

- O Caption do Form você pode deixar em branco ate mesmo, porque ao colocar o border style como bsnone, esse caption não aparecera!

 

2 - Adicionando Componentes!

 

Adicione:

- 3 Button (standard)

- 1 Panel (standard)

- 7 Label (standard) Oo...

- 2 Edit (standard)

- 4 bevel (additional)

- 2 Image (additional)

- 1 Progressbar (win32)

- 1 Webbrowser (internet)

- 1 ClientSockt (internet)

 

3 – Tratando os Componentes!

 

BEVEL1:

OBJECT INSPECTOR:

- ALIGN = ALCLIENT

- SHAPE = BSFRAME

- STYLE = BSRAISED

Este bevel ira dar uma “borda” ao programa

 

BEVEL2:

OBJECT INSPECTOR:

- SHAPE = BSBOTTOMLINE

Este bevel ira separar uma imagem que ficara de banner no seu programa

BEVEL3:

OBJECT INSPECTOR:

-SHAPE = BSFRAME

Este bevel será para mostrar o status do servidor

 

BEVEL4:

OBJECT INSPECTOR:

NÃO MUDA NADA;

Este bevel ira abrigar a progressbar , o panel , os buttons e o status.

 

IMAGE1:

OBJECT INSPECTOR:

- ALIGN = ALCLIENT

- ESCOLHA SUA IMAGEM

- clique com o botão direito do mouse em CONTROL > SEND TO BACK

Este será a imagem de fundo do seu programa

 

IMAGE2:

OBJECT INSPECTOR:

NÃO MUDA NADA

- ESCOLHA SEU BANNER

Esta imagem será o banner do seu programa

 

PANEL1:

OBJECT INSPECTO:

- CAPTION = EM BRANCO

Este panel ira funcionar, mostrando as ações do programa. Irei explicar mais adiante.

 

BUTTON1

OBJECT INSPECTO:

- CAPTION = INICIAR

- ENABLED = FALSE (IREI EXPLICAR ADIANTE)

È o button que ira chamar seu cliente.

 

BUTTON2

OBJECT INSPECTO:

- CAPTION = SITE

É o button que ira abrir o site

 

BUTTON3

OBJECT INSPECTO:

- CAPTION = SAIR

É o button que fecha seu programa

 

EDIT1

OBJECT INSPECTO:

- TEXT = COLOQUE O SEU IP (SE FOR HAMACHI PODE SER O NUMERO)

- VISIBLE = FALSE

- NAME = Edt_IP

Ira armazenar o ip do seu servidor para verificar seu status!

 

 

EDIT2

OBJECT INSPECTO:

- TEXT = COLOQUE A PORTA DO SEU SERVIDOR

- VISIBLE = FALSE

- NAME = Edt_Port

Ira armazenar a porta do seu servidor pra verificar o status

 

LABEL1

OBJECT INSPECTO:

-CAPTION = NOME DO SEU SERVIDOR

 

LABEL2

OBJECT INSPECTO:

- CAPTION = STATUS

Aqui ira verifica se seu servidor esta online ou não.

 

LABEL3

OBJECT INSPECTO:

- CAPTION = VERIFICANDO…

Isso ira mudar depois quando formos falar do clientsockt mais deixe com o caption verificando.

 

LABEL4

OBJECT INSPECTO:

- CAPTION = MAPA

Verifica se seu mapa esta online ou não (depois você pode mudar)

 

LABEL5

OBJECT INSPECTO:

- CAPTION = VERIFICANDO…

Isso ira mudar depois quando formos falar do clientsockt mais deixe com o caption verificando.

 

LABEL6

OBJECT INSPECTO:

- CAPTION = RESPAW

Verifica se o respaw esta online ou não (depois você pode mudar)

 

LABEL7

OBJECT INSPECTO:

- CAPTION = VERIFICANDO…

Isso ira mudar depois quando formos falar do clientsockt mais deixe com o caption verificando.

 

OBS: - COLOR = SE FOR UM FUNDO DE COR ÚNICA COLOQUE A MESMA COR NOS LABELS.

- FONT COLOR = AJUSTE AO SEU GOSTO!

 

CLIENTSOCKET1

OBJECT INSPECTO:

MUDA NADA

 

WEBBROWSER1

OBJECT INSPECTO:

NÃO MUDA NADA

Aqui você ira usar para mostrar as noticias na pagina do site do servidor

 

PROGRESSBAR1

OBJECT INSPECTO:

NÃO MUDA NADA

O progressbar vai só mostrar que o webbrowser esta carregando depois quando for falar do webbrowser vou mostrar como muda a cor da progressbar!

 

Seu form ficara + ou menos assim!

 

 

4 – CODES

LEMBRE DE COLOCAR OS CODIGOS ABAIXO ENTRE O BEGIN E O END;

 

FORM

evento ONCREATE

 

webbrowser1.Navigate(‘SITE DO SERVIDOR’);

SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clBlue);

ClientSocket1.Host := Edt_IP.Text;

ClientSocket1.Port := StrToInt(Edt_Port.Text);

ClientSocket1.Active := True;

 

Obs: ali onde tem “clBlue” você pode mudar para alterar a cor da progressbar.

 

WEBBROWSER1

evento ONDOWNLOADBEGIN

 

Panel1.Caption:= 'Carregando News, Aguarde!';

 

Obs: lembra que eu pedi para deixar o panel1 com o caption em branco, então aqui esta o porque! Ele vai sendo alterado conforme o programa vai atuando.

 

evento ONDOWNLOADCOMPLETE

 

panel1.Caption:= 'News Carregado!';

 

evento ONPROGRESSCHANGE

 

If (Progress>=1) and (ProgressMax>1)

then

begin

ProgressBar1.Position := Round((Progress * 100)

Div ProgressMax);

ProgressBar1.Visible := True;

end

else

begin

ProgressBar1.Position := 100;

end;

 

BUTTON1

Evento ONCLICK

 

winexec('CLIENTE DO SERVIDOR.EXE’, SW_SHOWNORMAL);

Application.Terminate;

BUTTON2

Evento ONCLICK

 

winexec(‘X.htm’,SW_SHOWNORMAL);

 

X = nome do seu link htm.

Como fazer o link para seu site!

Vai ate a pagina inicial do site do servidor na internet, escolha a opção de salvar como, coloque um nome no link, e certifique que este será salvo em htm.

Obs: este link deve ser colocado na pasta junto ao seu programa caso contrario ocorrera um erro!

 

BUTTON3

Evento ONCLICK

 

application.Terminate;

 

 

CLIENTSOCKET1

Evento ONCONNECT

 

Label3.Caption:= 'Online';

label3.Font.Color:= clLime;

Label5.Caption:= 'Online';

label5.Font.Color:= clLime;

Label7.Caption:= 'Online';

label7.Font.Color:= clLime;

Socket.Disconnect(StrToInt(Edt_Port.Text));

Bitbtn1.Enabled:= True;

ClientSocket1.Active := False;

 

Evento ONERROR

 

Label3.Caption:= 'Offline';

Label3.Font.Color:= clred;

Label5.Caption:= 'Offline';

label5.Font.Color:= clred;

Label7.Caption:= 'Offline';

label7.Font.Color:= clred;

ClientSocket1.Active := False;

abort;

 

obs: lembra que eu falei dos labels. Então o clientsocket vai fazer a verificação e vai mudar de acordo com o status verificado por ele! Você pode alterar os textos que irão aparecer e ate mesmo a cor.

 

PRONTO SEU PROGRAMA ESTA CONFIGURADO! E JÁ DEVE ESTAR FUNCIONANDO!

 

Compile e teste!

 

Salve tudo e bom uso!

 

Tutorial feito por FABIO GARCIA COSTA uzer : Higan :loool:

Mantenha os créditos.

 

Duvidas e sugestões post aqui :happy2:

[Eventide 7]

dava pra melhorar isso colocando os códigos entre

 =)

 

E isso ai é na verdade um launcher né? patch eu entendo por outra coisa..

muito bom, mas não funciona muito pra otserv! =)

 

vlw ae!

Editado 1 Agosto, 2009 por Eventide

[theflammer 0]

Mtu bom, mas dava pra melhorar alguns detalhes de estética, como por exemplo, adicionar uma splash screen...mas tirando esse detalhe estético tá excelente, eh mtu bom ter mais um programador delphi na área....:style:

[theflammer 0]

Vc só esqeceu um pequeno detalhe, a pessoa de declarar uma lib, a lib é: CommCtrl, que deve ser declarada, na parte USES da unit... mas detalhes são apenas detalhes....

Editado 8 Agosto, 2009 por theflammer

[Eclisiz 0]

muito bom, deve te dado um trabalhao pra faze isso Oo

vlw

[flipagenor 0]

Achei bem interessante a idéia!

[higan 0]

Vc só esqeceu um pequeno detalhe, a pessoa de declarar uma lib, a lib é: CommCtrl, que deve ser declarada, na parte USES da unit... mas detalhes são apenas detalhes....

 

 

bom como eu coloquei no começo do tutorial, eu fiz esse luncher no delphi 7 ai eu naum precisei declarar CommCtrl naum..., axo q ele coloca automaticamente

 

vlw

 

obrigado pelas resposta deu trabalho fazer esse luncher..

 

proxima contribuição :

AUTO STATUS CHEQUE!

 

aguardem...ps: se alguem ja tiver postado um semelhante me avizem

 

flw

braços...

[haxyy 0]

Muito bom!