0

Estou tentando exibir uma imagem ao carregar um Form, mas o comando precisa vir de um arquivo externo .txt (ou de uma string que vai armazenar esse comando existente no .txt). Eu consigo mostrar as linhas com ShowMessage, dessa forma:

procedure TFrmAlbum.FormShow(Sender: TObject);
var
Achar : TStringList;
j : Integer;
img : String;
begin
             Achar := TStringList.Create;
             Try
               Achar.LoadFromFile('images.txt');
               for j := 0 to Achar.Count-1 do
                 begin
                   ShowMessage(Achar[j]);
                 end;
             Finally
             Achar.Free;
             End;
end;

O que quero é algum comando que possa usar no lugar do ShowMessage para em vez de mostrar as linhas, executá-las. Será que tem como fazer isso?

Edit1: Não sei se vai ajudar, mas as linhas de comando que estão no .txt, que devem ser interpretadas pelo programa são como essas:

Image1.Picture.Bitmap.LoadFromResourceName(HInstance, 'Bitmap_1');
Image2.Picture.Bitmap.LoadFromResourceName(HInstance, 'Bitmap_2');
4
  • Executar um código de um arquivo externo? Acho meio difícil uma vez que o Delphi é compilado e não interpretado. Commented 24/10/2020 às 2:10
  • 1
    No caso, você quer que o próprio sistema operacional execute o comando (abrindo a imagem no programa padrão)? Você pode utilizar o comando ShellExecute (uses ShellApi). Commented 24/10/2020 às 14:42
  • @Jhonny Freire, pesquisei a respeito e vi que uma solução seria criar um interpretador (acho que de pascal), mas é complicado, principalmente para mim que sou iniciante (e autodidata) em Delphi. Estou procurando uma forma de contornar isso, só não sei se é possível... Commented 24/10/2020 às 15:53
  • @Ricardo Alves Carvalho, o que quero é que o programa que estou fazendo execute o comando (mostrar uma imagem no TImage), não o Sistema Operacional. Commented 24/10/2020 às 15:57

1 Resposta 1

0

Estou supondo que cada linha do arquivo ficará em um TImage nomeado Image1, Image2, etc. Também estou supondo que os arquivos são todos bitmaps.

procedure TFrmAlbum.FormShow(Sender: TObject); var Achar : TStringList; i, j : Integer; begin Achar := TStringList.Create; Try Achar.LoadFromFile('images.txt'); for j := 0 to Achar.Count-1 do begin i := pos('_', Achar[j]) + 1; i := StrToInt(copy(Achar[j], i, 10)); TImage(FindComponent( 'Image' + IntToStr(i))).Picture.Bitmap.LoadFromResourceName(HInstance, Achar[j]); end; Finally Achar.Free; End; end;
30
  • Ricardo Alves Carvalho está correto em suas suposições. Mas ainda não teve o resultado esperado. Ao executar, recebo a mensagem: 'Unknown picture file extension (.LoadFromResourceName(HInstance, 'Bitmap_1');)' Parece que pegou parte do comando em vez de pegar a linha toda. Commented 24/10/2020 às 18:03
  • Vc quer ler de recurso ou de arquivo? O código acima é pra ler de arquivo bitmap. O images.txt teria o nome completo de um arquivo por linha. Commented 24/10/2020 às 19:43
  • As imagens estão armazenadas no executável, então a leitura é de recursos, como está salvo no arquivo.txt (veja o Edit1 que acrescentei na pergunta). Estou tentando colocar o caminho que resta no começo do seu código (o que recebo como resposta), mas encontrando o erro 'Incompatible types' porque estou usando uma String pra isso. O que deveria usar nesse caso? Commented 24/10/2020 às 20:17
  • O que fiz: Declarei variável img como string (tentei ShortString tb devido a msg de erro apresentada com String) ``` img := 'Image' + IntToStr(j + 1) +'.Picture.Bitmap'; img+ TImage(FindComponent('Image' + IntToStr(j + 1))).Picture.LoadFromFile(Achar[j]); ``` Commented 24/10/2020 às 20:31
  • O trecho dentro loop: TImage(FindComponent('Image' + IntToStr(j))).Picture.Bitmap.LoadFromResourceName(HInstance, Achar[j]); //aqui, as linhas do arquivo deverão ter o nome do recurso. Commented 25/10/2020 às 14:39

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .