TechTips

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.

• Deixe um comentário... (7)

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;

• Deixe um comentário... (0)