higan 0 #1 Posted July 30, 2009 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: Share this post Link to post Share on other sites
Eventide 7 #2 Posted August 1, 2009 (edited) 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! Edited August 1, 2009 by Eventide Share this post Link to post Share on other sites
theflammer 0 #3 Posted August 7, 2009 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: Share this post Link to post Share on other sites
theflammer 0 #4 Posted August 8, 2009 (edited) 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.... Edited August 8, 2009 by theflammer Share this post Link to post Share on other sites
Eclisiz 0 #5 Posted August 8, 2009 muito bom, deve te dado um trabalhao pra faze isso Oo vlw Share this post Link to post Share on other sites
flipagenor 0 #6 Posted August 8, 2009 Achei bem interessante a idéia! Share this post Link to post Share on other sites
higan 0 #7 Posted August 14, 2009 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... Share this post Link to post Share on other sites