Pular para o conteúdo principal

Postagens

Mostrando postagens de Junho, 2009

Como é que eu nunca usei o Opera antes?

Com certeza não era por falta de conhecimento, sei de sua existência a algum tempo mas como adorador do Firefox nunca senti a necessidade ou curiosidade de usar outro browser ( sem contar o Chrome que por ser do Google eu tinha que ver como era ). Pois bem, um grande amigo meu a pouco tempo me falou e me mostrou uma das funcionalidade do Opera, aquela em que é possível tornar o navegador um “Web Server”, disponibilizando arquivos do próprio pc na web. Achei muito interessante a idéia de compartilhar arquivos, mas só quando testei é que percebi como essa versão era impressionante por esse e por outros tantos recursos como o Fridge, Media Player, Photo Sharing, The Lounge e o Web Server, além é claro do design muito elegante e da integração de seu serviços que são muitos. Darei um tempo no Firefox para experimentar melhor o Opera, mas pelo pouco que já vi acho que ele será meu novo Browser padrão pelo menos por algum tempo.

Copiando arquivos (Delphi)

Pelo Delphi copiar arquivos de um lugar para outro é simples, nesse exemplo o usuário indica o caminho de origem o de destino e executa a cópia, baixe o exemplo completo aqui. Para o exemplo precisaremos de dois Labels para identificar a função dos Edits, dois Edits para a entrada dos caminhos de origem e destino e um botão para executar o processo, segue o código do click do botão: var
  Dados: TSHFileOpStruct;
begin
  FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
    wFunc := FO_COPY;
    pFrom := PChar(Edit1.Text);
    pTo   := PChar(Edit2.Text);
    fFlags:= FOF_ALLOWUNDO;
end;
  SHFileOperation(Dados);
end;

Processador de 1THz? Também quero

O pessoal do MIT acredita que processadores produzidos com grafeno chegarão a 1 THz, só para efeito de comparação o processador mais rápido hoje chega a 5 Ghz, ou seja esses novos processadores seriam pelo menos 250 vezes mais rápidos que o melhor da atualidade, um salto na evolução considerável. Segundo pesquisadores da Universidade de Colúmbia, nos Estados Unidos, o grafeno - uma folha de carbono com apenas um átomo de espessura - é o material mais forte que o homem já conseguiu medir ele é cerca de 200 vezes mais forte do que o aço estrutural. A grande jogada do novo chip é que ele utiliza apenas um transistor enquanto os processadores atuais precisam de uma multiplicação em seus clocks para o aumeto de seu processamento o que gera ruído de sinal limitando sua performance. Fonte: Inovação tecnologica Info Plantão

Pegar informações de uma unidade (Delphi)

Nesse exemplo mostraremos como recuperar informações como setores, bytes por setores e aghrupamentos livres, o exemplo completo pode ser baixado aqui. Insira no formulario um Edit para receber o caminho do diretorio, um memo para mostrar as informações e um botão para iniciar a consulta, segue a codificação do click do botão: var
  SetoresPorAgrup, BytesPorSetor, AgrupLivres,
  TotalAgrup: DWord;
begin
  Memo1.Clear;
if GetDiskFreeSpace( pchar(Edit1.Text) , SetoresPorAgrup,
      BytesPorSetor, AgrupLivres, TotalAgrup) then
with Memo1.Lines dobegin
    Add('------------------------------------------------------------------');
    Add('----- Informações sobre a unidade ['+Edit1.Text+'] -----');
    Add('Setores por agrupamento: ' + IntToStr(SetoresPorAgrup));
    Add('Bytes por setor: ' + IntToStr(BytesPorSetor));
    Add('Agrupamentos livres: ' + IntToStr(AgrupLivres));
    Add(&#…

Bug do Twitter ?

Segundo a empresa “WhereCloud” o Twitter estaria próximo de seu limite máximo de mensagens únicas (2.147.483.647), e que estimado na média de postagens por dia,  o chamado “Twitpocalypse” acontecerá amanhã dia 13/06. Na minha humilde opinião isso é mais um golpe de marketing mas vamos esperar para ver. ,,

Nanotecnologia em cigarros?

Isso mesmo, o intuito é filtrar certos elementos como a nicotina, o alcatrão e outros compostos por meio de nanotubos de carbono. A descoberta de uma nova propriedade dos nanotubos aconteceu na Faculdade de Filosofia, Ciências e Letras de Ribeirão Preto (FFCLRP) da USP, pela doutoranda Elaine Matsubara do grupo de pesquisa liderado pelo professor José Maurício Rosolen. Foram realizados experimentos com auxílio de espectrometria de massa e infra-vermelho para chegar a aplicação nos filtros, onde foi constatado que certas substancias foram completamente retidas pelo filtro. O nome do nanotubo de carbono (único a surtir efeito) não foi revelado, pois o artigo de publicação cientifica assim como o pedido de patente ainda não foram completados. Fonte: Inovação tecnológica ,,,

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;
  2: Control.Canvas.Font.Color:=clRed;
en…

CPI da Petrobras

Após novo adiamento para a instalação da CPI da Petrobras estamos aqui para exigir que os senhores senadores compareçam a sala onde funcionará a comissão, já que na última semana por duas vezes não o fizeram. Entenda a CPI A CPI criada para investigar irregularidades na Petrobras contou com o apoio de 30 senadores, três a mais que o número mínimo necessário para a criação de uma Comissão de Inquérito. O autor do pedido é o senador tucano Álvaro Dias (PSDB-PR). Em seu requerimento, Álvaro destaca os seguintes pontos a serem investigados:
Indícios de fraudes nas licitações para reforma de plataformas de exploração de petróleo apontados pela operação “Águas Profundas” da Polícia Federal;
Graves irregularidades nos contratos de construção de plataformas, apontados pelo Tribunal de Contas da União;
Indícios de superfaturamento na construção da refinaria Abreu e Lima, em Pernambuco, apontados por relatório do Tribunal de Contas da União;
Denúncias de desvios de dinheiro dos royalties do petróleo…

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
begin
if TemAtributo(F.Attr, faDirectory) then
begin
if (F.Name <> '.') And (F.Name &l…

Verificar tamanho de arquivo (Delphi)

Para essa pequena dica construiremos um formulário contendo dois Edits e um botão, o primeiro Edit recebe o caminho e nome do arquivo, o segundo receberá o tamanho em bytes.
Segue a cadificação do evento click do botão:
procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  I: integer;
begin
  I := FindFirst(Edit1.Text, faArchive, SR);
try
if I = 0 then
      Edit2.Text := IntToStr( SR.Size )
else
      Edit2.Text := '-1';
finally
    FindClose(SR);
end;
end;

Baixe o exemplo completo aqui.

Um pouco sobre a TV máfia (vulgo TV Globo)

Para os mais atentos não é novidade que a TV Globo não só deturpa a realidade de certos acontecimentos em prol de determinados indivíduos como mina a capacidade de discernimento do certo e errado do nosso país com suas superproduções recheadas com enredos absurdos que passam longe da realidade da nação. Novelas com contextos que não ignoram o flagelo da maioria, mas que sempre passam a falsa impressão de que nem tudo esta tão mal assim ou que um dia tudo melhora, ou seus programas vazios de conteúdo que exploram o que ha de pior nos participantes (que já não são grande coisa, e eu me recuso ate a escrever o nome, mas que todos já devem imaginar do que estou falando) tem sido de grande importância para a manutenção de tantos governos corruptos, civis ou militares, que tem alargado cada vez mais o abismo entre os pobres e ricos. A lavagem cerebral realizada ao longo e tantos anos e notória, basta olhar agora para a TV do seu vizinho ou mesmo a sua e verificar em qual canal ela esta sinton…