PROGRAMERO

Algumas vezes surge a necessidade de se utilizar os valores do registro do windows, então em primeiro lugar devemos ter em mente exatamente qual a chave devemos procurar, no nosso exemplo vamos buscar o nome do usuário logado no windows, então vamos ao exemplo: var objRegistro : TRegistry; begin vl_objRegistro := TRegistry.Create; TRY vl_objRegistro.RootKey := HKEY_CURRENT_USER; IF vl_objRegistro.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer', True) THEN Edit.Text := UpperCase( vl_objRegistro.ReadString('Logon User Name') ); FINALLY objRegistro.Free; END; end;

Nesse exemplo temos uma lista de itens em um ComboBox e quando clicamos no botao inserir o ListBox é verificado, caso não haja um item igual ele insere, e o botao remove faz o oposto, verifica se o item existe, caso exista ele é removido. Baixe aqui o exemplo. procedure TForm1.InserirClick(Sender: TObject); var v_i: integer; v_a: boolean; begin //VERIFICA SE JÁ EXISTE ALGUM ITEM IGUAL, SE TIVER NÃO INSERE TRY FOR v_i := 0 TO ListBox1.Items.Count-1 DO BEGIN IF ComboBox1.Text = ListBox1.Items[v_i] THEN BEGIN v_a := TRUE; Break; END ; END ; IF v_a = FALSE THEN ListBox1.Items.Add(ComboBox1.Text); EXCEPT END ; end; procedure TForm1.RemoverClick(Sender: TObject); var v_i: integer; begin //VERIFICA SE JÁ EXISTE ALGUM ITEM IGUAL, SE TIVER DELETA TRY FOR v_i := 0 TO ListBox1.Items.Count-1 DO BEGIN IF ComboBox1.Text = ListBox1.Items[v_i] THEN ListBox1.Items.Delete(v_i); END ; EXCEPT END ; end ;

1. Crie um arquivo texto, com um nome qualquer e a extensão ".RC", para o exemplo usaremos "RECURSO.RC". Nesse arquivo digite o seguinte: GRAFICO BITMAP "C:\Imagens\Grafico.bmp" Lembrando que para cada imagem teremos uma linha. 2. Após salvar o arquivos devemos Compilar o mesmo usando o programa BRCC32.EXE localizdo no diretorio BIN do Delphi, feito isso, sera gerado o arquivo RECURSO.RES. 3. Na Unit que usará o recuro devemos colocar o seguinte: {$R RECURSOS.RES} Para usar a imagem contida no arquivo de recurso precisamos apenas criar uma variavel do tipo bitmap e depois executar o seguinte comando: VarTipoTBitmap:= LoadBitmap(HInstance,'BITMAP_1');

O Delphi foi lançado em 1995 para a plataforma Windows 16 bits, foi o primeiro a ser descrito como ambiente RAD (em português, Desenvolvimento Rápido de Aplicações). A segunda versão, lançada um ano depois, já produzia aplicativos para a plataforma Windows 32 bits, sendo que uma versão em C++ - o C++ Builder - surgiu alguns anos depois. Em 2001, uma versão para plataforma Linux, conhecida como Kylix, foi disponibilizada. Em 2002, foi lançada uma nova versão compatível com Linux (através do Kylix e a paleta de componentes CLX ), sendo que em 2003 o Delphi 8 passou a incluir suporte para desenvolvimento de aplicações .NET. No final de 2004 foi lançada a versão Delphi 2005 (correspondente a versão 9), com suporte, na mesma IDE, ao desenvolvimento para plataformas Windows 32 bits e Windows .NET, além de integrar no mesmo ambiente de desenvolvimento a possibilidade de se desenvolver utilizando o ambiente do Delphi, C++ Builder ou C#. No final de 2005 foi lançada a versão Delphi 200

No último artigo referente à geoprocessamento tivemos uma pincelada sobre alguns dos principais conceitos e aplicações possíveis, agora chegou o momento de colocar a mão na massa. Neste primeiro artigo prático iremos mostrar alguns componentes gratuitos, descrevendo suas funcionalidade e apresentando exemplos, o primeiro a ser visto será o Shape Viewer Objects (SVO) , então mãos a obra! Shape Viewer Objects™ (SVO) A empresa Ecological Software Solutions LLC disponibilizou vários de seus componentes, assim como seus respectivos códigos fonte, e podem ser utilizados para fins comerciais. Existem alguns exemplos que acompanham o pacote de instalação, mas a utilização desses componentes requer uma certa dedicação. A instalação é simples: Baixe o pacote; Execute o programa, para extrair os arquivos; Ao final de extração teremos três pastas, Demo, Help e Source; Abra a pasta Source e execute o arquivo .DPK, a primeira mensagem será para permissão de conversão, confirme, depois compile

Vários equipamentos e serviços são foco de diversas reportagens (seja na mídia escrita ou mesmo na internet) levando como tema equipamentos com GPS, disponível em vários modelos de celular ou encontrados em aparelhos bem acessíveis e serviços como o googlemaps, quem nunca foi lá e digitou o endereço da própria casa pra ver se ele achava direitinho? Bom todos os elementos citados anteriormente até pouco tempo estavam disponíveis para poucos e hoje qualquer um com internet pode, por exemplo, digitar um endereço ou mesmo colocar coordenadas de latitude e longitude para encontrar um determinado ponto. Ótimo, mas que vantagem Maria leva com tudo isso, você deve estar se perguntado, bom a menos que você queira rastrear alguém, a titulo de investigação, realmente para uma pessoa normal talvez não tenha utilidade, mas se pensarmos um pouco, podemos vislumbrar, muitas aplicações para essa tecnologia, poderíamos verificar exatamente o trajeto que o motorista de certo veiculo esta fazendo, pod

É muito comum nos depararmos no dia a dia com a necessidade de manipular datas e horas, seja para um calculo de permanência, dias de atraso enfim, é praticamente escapar de alguma situação que necessite desse tipo de controle. Assim como a necessidade e se utilizar algum recurso para manipular as datas e horas de alguma maneira e freqüente, as duvidas de como o faze-lo também é, basta um breve olhar em qualquer fórum especializado e lá está, alguma duvida relacionada, por isso decidi falar um pouco sobre uma unit muito poderosa chamada DateUtils para a manipulação de data e hora, com um grande numero de métodos e classes que facilitam a vida de qualquer um. Alguns exemplos: CompareDate(constA, B: TDateTime): TValueRelationship; Compara apenas a data de dois valores (do tipo TDateTime) retornando: LessThanValue O primeiro valor é menor que o segundo EqualsValue Os valores são iguais GreaterThanValue O primeiro valor é maior que o segundo CompareDateTime(const A, B: TD

Seguem alguns videos do youtube que podem ser uteis: Conhecendo o Delphi Criando a primeira aplicação Aprender a criar menus em Delphi Criando uma barra de status no Delphi Ligando um formulario Delphi com banco de dados Criando uma aplicação de cadastro Calculadora em Delphi

Introdução Pacotes são utilizados para modularização e distribuição de objetos. São mais fáceis de ser implementados, já que utilizam a codificação padrão da linguagem Delphi, logo são DLLs nativas. Oferecem como vantagem redução do tamanho do executável, distribuição do código, facilidade de manutenção, dentre outras. Exemplo Primeiro vamos criar o projeto que será utilizado pelo pacote: Crie uma nova aplicação, adicionando um label (Nome), um edit e um botão (Confirmar), salve a aplicação com o nome de "Unit_Tpkt.pas" e "Prj_Tpkt.dpr" (o nome do Form continua como padrão), feito isso compile e feche a aplicação. * (Note que nosso programa não possui uma finalidade, estamos apenas demonstrando a criação de um pacote) Agora vamos criar o pacote com base no programa criado anteriormente: Navegue até "File -> New -> Other -> e na aba New escolha Package, na janela que se abriu clique no botão "add",