Atualizar imagem de um componente TImage
Tenho um componente TImage, que precisa ficar sendo atualizado o tempo todo, pois a imagem q ele está mostrando é sempre atualizada, mas não posso efetuar LoadFromFile, todo momento pois a imagem está sempre sendo atualizada e dá erro falando que a imagem está em uso.
Tentei fazer dessa forma:
procedure CarregaImage(bmp : TBitmap; Filename : string);
var
Stream: TStream;
begin
try
Stream := TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite);
try
bmp.LoadFromStream(Stream);
finally
Stream.Free;
end;
except
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
CarregaImage(Image1.Picture.Bitmap, ´C:\teste.bmp´);
end;
Mas assim também dá essa mesma mansagem que o arquivo está em uso, como consigo autalizar essa imagem que está sempre sendo atualizar sem dar esse erro?
Tentei fazer dessa forma:
procedure CarregaImage(bmp : TBitmap; Filename : string);
var
Stream: TStream;
begin
try
Stream := TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite);
try
bmp.LoadFromStream(Stream);
finally
Stream.Free;
end;
except
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
CarregaImage(Image1.Picture.Bitmap, ´C:\teste.bmp´);
end;
Mas assim também dá essa mesma mansagem que o arquivo está em uso, como consigo autalizar essa imagem que está sempre sendo atualizar sem dar esse erro?
Janete
Curtidas 0
Respostas
Massuda
08/06/2007
...mas não posso efetuar LoadFromFile, todo momento pois a imagem está sempre sendo atualizada e dá erro falando que a imagem está em uso....Mas assim também dá essa mesma mansagem que o arquivo está em uso
LoadFromFile e LoadFromStream são equivalentes... LoadFromFile usa LoadFromStream.Não sei como seu arquivo está sendo gerado, mas experimente fazer um loop para tentar ler o arquivo.
GOSTEI 0