Geoprocessamento

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, poderíamos, com base em um painel traçar novas rotas de acordo com a situação, por exemplo desviar um veiculo de uma rota com transito intenso, ou uma rota interditada por qualquer motivo que seja. Bom, muitos de vocês já imaginaram ou estão imaginando neste exato momento outras aplicações para essas tecnologias em diversos ramos de negocio, é por isso que o termo geoprocessamento anda tão em alta ultimamente.

Algumas definições sobre Geoprocessamento

1 - O geoprocessamento é o processamento informatizado de dados georreferenciados. Utiliza programas de computador que permitem o uso de informações cartografia|cartográficas (mapas, cartas topográficas e plantas) e informações a que se possa associar coordenadas desses mapas, cartas ou plantas. Pode ser utilizado para diversas aplicações.

Outra definição seria:

É um conjunto de conceitos, métodos e técnicas erigido em torno do processamento eletrônico de dados que opera sobre registros de ocorrência georreferenciados, analisando suas características e relações geotopológicas para produzir informação ambiental.

2 - Geoprocessamento é um conjunto de tecnologias direcionadas para a coleta e o tratamento das informações espaciais. Ele disponibiliza ferramentas, recursos e dados para que analistas possam determinar a evolução temporal e espacial de um determinado fenômeno geográfico e sua inter-relação com outros. Sendo uma tecnologia interdisciplinar, qualquer especialista pode se valer dele em benefício de seu trabalho ou pesquisa.

3 - Geoprocessamento compreende as atividades de aquisição, tratamento e análise de dados sobre a Terra. Isto envolve desde um conjunto de tecnologias para a coleta de imagens da superfície do planeta, conhecido como Sensoriamento Remoto, até o processamento e análise desses dados, em forma de mapas digitais, usando-se os Sistemas de Informação Geográficos, um ambiente computacional orientado à análise e interpretação de diversos fatos e fenômenos relacionados à Terra. De caráter transdisciplinar, esse poderoso conjunto instrumental se aplica a diversos campos profissionais, tornando-se imprescindível para projetos que lidam com questões voltadas à organização, planejamento e gestão do espaço geográfico ou que envolvam análises espaciais em seus estudos.

Outros termos importantes e muito utilizados nesse contexto:

Logística

SIG ou GIS

Rota feita com ajuda do google maps

Nokia 6110 com GPS Integrado

PSP com acessório GPS

Bom para inicio de conversa até que não está tão mal, já conhecemos alguns termos, acessórios e aplicações, no próximo post mostraremos componentes para a ferramente delphi capazes de carregar mapas georeferenciados, as aplicações ficam por conta da imaginação do desenvolvedor, abraços e até a próxima...

Fonte

WWF-Brasil

UFMG

Wikipedia

GIS Brasil

gis.com

MundoGeo

Xineses e Ciganos Stuff

Listar arquivos existentes em diretório (Delphi)

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin tamanhoTotal := 0; memLista.Lines.Clear; ListarArquivos(edtDiretorio.Text, chkSub.Checked); Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var F: TSearchRec; Ret: Integer; TempNome: string; begin Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F); try while Ret = 0 do ...

Alterar cores do PageControl (Delphi)

O padrão Windows todo cinza não é muito atraente, por isso quando nos utilizarmos do PageControl podemos alterar suas cores e fontes da seguinte maneira: Em primeiro lugar devemos alterar a propriedade OwnerDraw para TRUE ; Depois implementar seu método DrawTab da seguinte maneira: //pinta a fonte Control.Canvas.Font.Color:=clBlack; // // pinta a paleta / aba Control.Canvas.brush.Color:=clSkyBlue; PageControl1.Canvas.Rectangle(Rect); Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption); // pinta a parte interna (tabsheet) PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color; PageControl1.Pages[TabIndex].Repaint; Caso a intenção seja manter cada aba com seu próprio estilo basta adicionar um CASE filtrando o índice das abas: case TabIndex of 0: Control.Canvas.Font.Color:=clBlack; 1: Control.Canvas.Font.Color:=clWindow; ...

Como Verificar se um Objeto Existe (Delphi)

Em alguns momentos surge a necessidade de verificar se um determinado objeto existe, ou seja se já foi criado, principalmente quando se trabalha com criação dinâmica em tempo de execução, então vamos ao exemplo: - Vamos criar uma variável, um vetor do tipo caixa de texto: var Minha_caixa : array of TEdit; - Em seguida definir o tamanho desse vetor, no caso será dez: setLength(Minha_caixa, 10) - Agora iremos criar nossa caixa de texto: // lembrando que o vetor inicia em zero // logo o índice final é o tamanho total - 1 for vl_i := 0 to Length(Minha_caixa) -1 do begin Minha_caixa[vl_i] := TEdit.Create(self); with Minha_caixa[vl_i] do begin Parent := Self; Name := 'Caixa_N'+IntToStr(vl_i); Text := 'Esta é a '+IntToStr(vl_i)+' º caixa !'; ReadOnly := true; Height := 21; Width := ...

PROGRAMERO

Pesquisar este blog