Bom dia xará, como vai?
Somente a título de curiosidade, vc está tentando criar um captcha, tipo os
usados no orkut e no site da receita federal? ACho que isso saiu em alguma
revista ClubeDelphi antiga. Só não me lembro o número...
Sds,
Ricardo.
Ricardo Mendes <[EMAIL PROTECTED]> escreveu:
Galera seguindo todas as dicas da lista eu acabei montando esse codigo, porém
ainda estou com algumas dificuldades. Gostaria de saber se posso melhorar esse
codigo que escrevi.
A ideia do codigo é o seguinte:
- Recebo string com numeros[0 a 7] tendo 32 caracteres essa string;
- Realizar a verificação dos numeros e gerar uma nova sequencia de string,
para serem carregadas as 32 Timage
O problema é o seguintes:
- Não consegui ter na nova sequencia de string as 32 imagens
correspondentes (Ex. na string tenho imagem01.jpg....até a imagem32.jpg)
- Na hora de carregar as Timage as figuras 1,31,32 estão ficando em
branco...
Espero que consiga a ajuda de vcs, principalmente para reduzir o tamanho desse
código.
Agradeço a atenção...e a ajuda...
procedure Tfrm_Cliente.CarregarImagens(sequencia: string);
var
NovaSequencia,SeqImg: array[0..31] of String;
retorno:string;
i:integer;
st: TStrings;
begin
st := TStringList.Create;
// realiza o preenchimento da string para um array de string com 32 posições
for i := 0 to 31 do
begin
NovaSequencia[i] := copy(sequencia,i+1,1);
end;
// realiza a verificação do numero que está no array para montar a nova string
a ser carregada
for i := 1 to 31 do
begin
if i<10 then
begin // se a posição i < 10 ele acrescenta um 0(zero) antes do
numero
if NovaSequencia[i]='1' then SeqImg[i]:=
'imagem0'+IntToStr(i)+'a.jpg';
if NovaSequencia[i]='2' then SeqImg[i]:=
'imagem0'+IntToStr(i)+'b.jpg';
if NovaSequencia[i]='3' then SeqImg[i]:=
'imagem0'+IntToStr(i)+'c.jpg';
if NovaSequencia[i]='4' then SeqImg[i]:=
'imagem0'+IntToStr(i)+'d.jpg';
if NovaSequencia[i]='5' then SeqImg[i]:=
'imagem0'+IntToStr(i)+'e.jpg';
if NovaSequencia[i]='6' then SeqImg[i]:=
'imagem0'+IntToStr(i)+'f.jpg';
if NovaSequencia[i]='7' then SeqImg[i]:=
'imagem0'+IntToStr(i)+'.jpg';
end
else
begin
if NovaSequencia[i]='1' then SeqImg[i-1]:=
'imagem'+IntToStr(i)+'a.jpg';
if NovaSequencia[i]='2' then SeqImg[i-1]:=
'imagem'+IntToStr(i)+'b.jpg';
if NovaSequencia[i]='3' then SeqImg[i-1]:=
'imagem'+IntToStr(i)+'c.jpg';
if NovaSequencia[i]='4' then SeqImg[i-1]:=
'imagem'+IntToStr(i)+'d.jpg';
if NovaSequencia[i]='5' then SeqImg[i-1]:=
'imagem'+IntToStr(i)+'e.jpg';
if NovaSequencia[i]='6' then SeqImg[i-1]:=
'imagem'+IntToStr(i)+'f.jpg';
if NovaSequencia[i]='7' then SeqImg[i-1]:=
'imagem'+IntToStr(i)+'.jpg';
end;
end;
retorno:='';
// realiza a transferência do array para uma string novamente
for i := 0 to 31 do
retorno:= retorno + SeqImg[i]+',';
// retiro a ultima virgula da string
retorno := Copy(retorno,0,Length(retorno)-1);
// realiza a transferência da string para o TStringList
st.CommaText :=retorno;
// realiza a transferência do TstringList para um memo
ImagemGeradas.Text:= st.Text;
// Realiza o carregamento das 32 TImagem conforme as linhas do memo
imagem01.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[1]);
imagem02.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[2]);
imagem03.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[3]);
imagem04.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[4]);
imagem05.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[5]);
imagem06.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[6]);
imagem07.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[7]);
imagem08.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[8]);
imagem09.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[9]);
imagem10.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[10]);
imagem11.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[11]);
imagem12.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[12]);
imagem13.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[13]);
imagem14.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[14]);
imagem15.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[15]);
imagem16.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[16]);
imagem17.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[17]);
imagem18.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[18]);
imagem19.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[19]);
imagem20.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[20]);
imagem21.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[21]);
imagem22.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[22]);
imagem23.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[23]);
imagem24.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[24]);
imagem25.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[25]);
imagem26.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[26]);
imagem27.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[27]);
imagem28.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[28]);
imagem29.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[29]);
imagem30.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[30]);
imagem31.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[31]);
imagem32.Picture.LoadFromFile(EnderFoto+'\'+ImagemGeradas.Lines[32]);
end;
Ricardo Mendes
Departamento de Informática
E-mail: [EMAIL PROTECTED]
Site: www.totalsat.com.br
Tel. (41) 2109-7736
[As partes desta mensagem que não continham texto foram removidas]
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
