Ruby on Rails - Livro gratuito

Escrito em 05 de Outubro de 2007 em Orientação a Objetos, Programação, Rails, Ruby por Zote

Recebi hoje por email esse link e achei interessante compartilhar.
É um link de download de um livro completo e gratuito de Ruby on Rails.
Quem tiver interesse, deve ser rápido pois esse download estará disponível somente por mais alguns dias (contador no site acima).

Abraço

Se você é novo por aqui, não deixe de assinar o feed RSS ou notificações por email. Não perca novos artigos!

Apresentando imagens aleatórias

Escrito em 04 de Outubro de 2007 em PHP, Programação por Feijo

Um amigo estava usando um código php que ele encontrou, para apresentar sempre uma imagem diferente no topo do blog.

Não estava funcionando muito bem, pedi o código e além de complexo e longo, tinha algum problema.

Criei rapidamente um código super enxuto, e mais simples de entender.

 

Segue o mesmo, espero que seja útil para muitos.

 

Crie um arquivo .php (pode ser index.php se ele ficar na pasta das imagens que serão randomizadas)

E copie este código:

<?
srand(time());
$aimg = glob(’*.jpg’);
header(’Location: /img/headers/’. $aimg[rand(0, count($aimg)-1)]);
?>

Pronto, só isso :)

Se a pasta com as imagens estiver em /img/fotos, use assim: <img src=/img/fotos>

Se o arquivo php tiver outro nome que não index.php, use assim: <img src=/img/fotos/rand.php>

 

Naturalmente pequenos ajustes podem ser necessários para adequar ao teu uso.

Qualquer dúvida, deixa um comentário.

Pegando a Data da Última Leitura de um arquivo

Escrito em 02 de Outubro de 2007 em Delphi, Linguagem Delphi por Feijo

Função pequena e útil, descobre quando aquele arquivo foi acessado pela última vez.

 

function FileAccessTime(FileName: String): TDateTime;
var
  FileHandle: Integer;
  LTime,
  FTimeA: TFileTime;
  STime: TSystemTime;
begin
  FileHandle := FileOpen(FileName,fmShareDenyNone);

  if FileHandle >= 0 then
  begin
    // Accessado
    GetFileTime(FileHandle,nil, @FTimeA, nil);
    FileClose(FileHandle);
    FileTimeToLocalFileTime(FTimeA,LTime);

    if FileTimeToSystemTime(LTime,STime) then
    begin
      Result := EncodeDate(STime.wYear,STime.wMonth,STime.wDay);
      Result := Result + EncodeTime(STime.wHour,STime.wMinute,STime.wSecond,STime.wMilliSeconds);
    end;
  end;
end;

 

procedure TForm1.Button1Click(Self);

begin

  ShowMessage(DateTimeToStr(FileAccessTime(’c:\windows\areia.bmp’));

end;