Suponha que eu tenha uma pasta:C:\Minhas figuras com 10 figuras bmp e 5 jpg.
Como poderia fazer para escolher aleatoriamente um desses arquivos.
Alguém poderia me dar uma idéia simples de fazer isso.
Imagino que tenha que usar randon, mas como seria esse uso?
Agradeço a ajuda!!
Versão Completa: Escolher Um Arquivo Aleatório
Fala Paulo, é o seguinte ->
Uma vez eu precisei de um procedimento que preenchesse um TStringList com os nomes dos arquivos dentro de uma pasta, então eu escreví o seguinte ->
function GetLocalFileList(Path : string; list : Tstrings) : cardinal;
var search : TSearchRec;
i : integer;
begin
if (path[length(path)] = '\') then delete(path,length(path),1);
list.Clear;
i:=findfirst(Path+'\*.*',$2F,search);
if (i <> 0) then
begin
result:=1;
findclose(search);
exit;
end;
if (search.Name <> '.') and (search.Name <> '..') then
list.Add(path+'\'+search.Name);
while true do
begin
if (findnext(search) <> 0) then break;
if (search.Name <> '.') and (search.Name <> '..') then
list.Add(path+'\'+search.Name);
end;
{ i:=0; while (i<=list.Count-1) do
begin
if directoryexists(list[i]) then list.Delete(i) else inc(i);
end;} //só para diretórios
findclose(search);
result:=0;
end;
Então você declara uma TStrings ->
var list : TStrings;
begin
list:=TStringList.Create;
.
.
.
Aí você passa como parametro a pasta onde estão as fotos e a lista ->
GetLocalFileList('C:\Mulheres\',List);
Aí utilize Random para escolher uma foto da lista ->
Randomize;
repeat
foto:=List[random(list.count)];
until ((uppercase(copy(foto,length(foto)-3,4))='.JPG') or (uppercase(copy(foto,length(foto)-3,4))= '.BMP'));
mas isso pode causar um loop infinito se não houverem imagens na pasta então é melhor passar um filtro na lista ->
i:=0; while (i<=list.Count-1) do
begin
if ((uppercase(copy(list[i],length(list[i])-3,4)) <> '.BMP') and
(uppercase(copy(list[i],length(list[i])-3,4)) <> '.JPG')) then list.delete[i] else inc(i);
end;
aí sim use ->
Randomize;
foto:=List[random(list.count)];
Eu acho que para assegurar que a lista contenha apenas arquivos e não pastas deve-se inserir a parte que está como comentario na função, não me lembro bem porque faz muito tempo que a escreví.
acho que é isso, qualquer coisa me avise.
Uma vez eu precisei de um procedimento que preenchesse um TStringList com os nomes dos arquivos dentro de uma pasta, então eu escreví o seguinte ->
CODE
function GetLocalFileList(Path : string; list : Tstrings) : cardinal;
var search : TSearchRec;
i : integer;
begin
if (path[length(path)] = '\') then delete(path,length(path),1);
list.Clear;
i:=findfirst(Path+'\*.*',$2F,search);
if (i <> 0) then
begin
result:=1;
findclose(search);
exit;
end;
if (search.Name <> '.') and (search.Name <> '..') then
list.Add(path+'\'+search.Name);
while true do
begin
if (findnext(search) <> 0) then break;
if (search.Name <> '.') and (search.Name <> '..') then
list.Add(path+'\'+search.Name);
end;
{ i:=0; while (i<=list.Count-1) do
begin
if directoryexists(list[i]) then list.Delete(i) else inc(i);
end;} //só para diretórios
findclose(search);
result:=0;
end;
Então você declara uma TStrings ->
CODE
var list : TStrings;
begin
list:=TStringList.Create;
.
.
.
Aí você passa como parametro a pasta onde estão as fotos e a lista ->
CODE
GetLocalFileList('C:\Mulheres\',List);
Aí utilize Random para escolher uma foto da lista ->
CODE
Randomize;
repeat
foto:=List[random(list.count)];
until ((uppercase(copy(foto,length(foto)-3,4))='.JPG') or (uppercase(copy(foto,length(foto)-3,4))= '.BMP'));
mas isso pode causar um loop infinito se não houverem imagens na pasta então é melhor passar um filtro na lista ->
CODE
i:=0; while (i<=list.Count-1) do
begin
if ((uppercase(copy(list[i],length(list[i])-3,4)) <> '.BMP') and
(uppercase(copy(list[i],length(list[i])-3,4)) <> '.JPG')) then list.delete[i] else inc(i);
end;
aí sim use ->
CODE
Randomize;
foto:=List[random(list.count)];
Eu acho que para assegurar que a lista contenha apenas arquivos e não pastas deve-se inserir a parte que está como comentario na função, não me lembro bem porque faz muito tempo que a escreví.
acho que é isso, qualquer coisa me avise.
Presumo que isto seja para aquele programa dos papéis de parede, se é eu vou te dar uma sugestão: Já reparou que o Windows XP não permite que você estenda um papel de parede que não tenha a mesma resolução da tela sem tirar o aspect ratio da mesma, caso não seja 4:3, ou seja, se eu tenho uma foto num aspect ratio diferente de 4:3 eu tenho duas opções ->
ou deixo no tamanho original com aspecto original.
ou deixo com aspecto 4:3 do tamanho da tela.
porque que você não implementa uma rotina, já que você terá que converter as JPG para BMP, que redimensione a foto para preencher a altura ou a largura da tela toda mas mantendo o aspecto original?
ou deixo no tamanho original com aspecto original.
ou deixo com aspecto 4:3 do tamanho da tela.
porque que você não implementa uma rotina, já que você terá que converter as JPG para BMP, que redimensione a foto para preencher a altura ou a largura da tela toda mas mantendo o aspecto original?
Fala, Thales,
Valeu por mais esta força.
De fato estou tentando desenvolver o programa de papéis de parede.
Vou estudar o código que você eestá me passando e tentar implementá-lo.
Desculpe a ignorância mas não tenho a menor idéia do que seja aspect ratio.
Converter de jpg para bmp sei fazer, mas o que você sugeriu não tenho amenor idéia.
Valeu por mais esta força.
De fato estou tentando desenvolver o programa de papéis de parede.
Vou estudar o código que você eestá me passando e tentar implementá-lo.
Desculpe a ignorância mas não tenho a menor idéia do que seja aspect ratio.
Converter de jpg para bmp sei fazer, mas o que você sugeriu não tenho amenor idéia.
Apenas vá nas propriedades de vídeo e coloque um papel de parede que seja mais alto doque largo, digamos um retrato, e selecione a opção "Estender" e entenderá oque eu digo. Ele vai esticar a foto na horizontal deixando-a fora do aspecto original. Se eu não me engano existe um método no Canvas que desenha uma foto mudando a resolução. Agora, se for esse o método usado no TImage quando a propriedade Stretch está true não deve ser muito bom não. Se você fizer uma experiencia com o TImage você pode ver que não é uma redimensionamento suave, é o chamado redimensionamento nearest neighbor, que deixa a foto com qualidade ruim. O bom seria o redimensionamento Bilinear ou Bicubic. O tal do GDIPlus que vem com o windows xp faz isso, só que o Canvas do Delphi só acessa o GDI antigo, é preciso baixar as units que importam as funções do GDIPluss.
Então digamos que eu tenha uma foto com metade da altura da tela, que seja mais alta doque larga, se eu coloco como papel de parede com opção centralizar ela vai ficar no tamanho original e eu quase não vou enchergar de longe, e se eu coloco com opção estender ela vai ficar esticada na horizontal. O que eu queria é que a foto preenchesse a altura toda da tela e mantesse a proporção entre largura e altura.
Boa sorte aí.
Então digamos que eu tenha uma foto com metade da altura da tela, que seja mais alta doque larga, se eu coloco como papel de parede com opção centralizar ela vai ficar no tamanho original e eu quase não vou enchergar de longe, e se eu coloco com opção estender ela vai ficar esticada na horizontal. O que eu queria é que a foto preenchesse a altura toda da tela e mantesse a proporção entre largura e altura.
Boa sorte aí.
Valeu, Thales
Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.