Carr Img Periodica/ em TImage

Question

Povo do forum,  Tenho um programinha simples que L� periodicamente uma imagem jpg salva em uma pasta e carrega em um TImage num form que n�o tem mais nada al�m do pr�prio TImage, que ocupa toda a �rea...

Paullsoftware · Answer

n�o entendi exatamente a sua d�vida, mais fiz um teste aqui e funcionou perfeitamente assim:
coloquei:
1 [b:3b219c0b2f]DirectoryListBox1[/b:3b219c0b2f]
1 [b:3b219c0b2f]FileListBox1[/b:3b219c0b2f]
1 [b:3b219c0b2f]Timer[/b:3b219c0b2f]
e fiz assim pra testar:
no timer

procedure TForm1.Timer1Timer(Sender: TObject);
var
i:Integer;
begin
i := FileListBox1.ItemIndex;
if i<0 then i:=0 else i := i+1;
if i < FileListBox1.Count then
FileListBox1.ItemIndex := i else i:=0;
Image1.Picture.LoadFromFile(FileListBox1.FileName);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DirectoryListBox1.Directory := �C:\Windows\�;
end;

assim as imagens mudam normalmente :wink: sen�o � isso que vc ta querendo n�o entendi a sua d�vida! :idea:

Paulocesar1301 · Answer

Concordo que n�o me expressei bem...

Estou com meu sisteminha de Monitora��o de tela e este carrega imagens do micro na rede... at� a� tudo certo, por�m... ao carregar essas imagens, a primeira � carregada normalmente, mas da segunda em diante o TImage n�o �refresca� a imagem (apesar de receb�-la_ sei disso, pois se minimizares o form e restaur�-lo a imagem � alterada !!), mesmo que eu use o refresh, update, repaint e afins !!!!
N�o sei o que pode ser, pois sempre trabalhei com coisas assim e nunca tive esse problema !

Abs

Paullsoftware · Answer

n�o sei, mais j� usou [b:db95ea1d1e]application.ProcessMasseges[/b:db95ea1d1e]?? n�o sei esta correto, estou sem delphi aqui na m�quina (lan-house), mais uma melhor ajuda, posta o c�digo ai... :wink: talvez amanh� eu entre, sen�o somente na segunda :cry: � que num tenho net em casa, telemar � froid :roll: :roll:

Paulocesar1301 · Answer

Infelizmente j� tentei tb:veja o que fa�o:[code:1:6b32b6b0d9]procedure Capturando;Var Stm: TStream;begin  Try    FRMTela.IdTCPClient1.Host := IPUsu;    FRMTela.IdTCPClient1.Connect;    FRMTela.IdTCPClient1.WriteLn(�TELA�);    Stm := TFileStream.Create(Tmp + �tela.jpg�,fmCreate);    try      while FRMTela.IdTCPClient1.Connected do         FRMTela.IdTCPClient1.ReadStream(Stm,-1,true);    except    end;    FreeAndNil(Stm);    If FileExists(Tmp + �tela.jpg�) Then    begin      FRMTela.ImagemTela.Picture.LoadFromFile(Tmp + �tela.jpg�);      // *** aqui � que est� o problema      Try        FRMTela.Hide;      Finally        FRMTela.Show;      End;      // *** aqui � que est� o problema    end    Else begin      FRMTela.ImagemTela.Picture := nil;    end;    Try FRMTela.IdTCPClient1.Disconnect; Except End;  Except    FRMTela.ImagemTela.Picture := nil;    Try FRMTela.IdTCPClient1.Disconnect; Except End;  End;end;[/code:1:6b32b6b0d9]Na parte que diz: �// *** aqui � que est� o problema� � exatamente onde tentei de tudo para que a imagem atualizasse, mas nada... inclusive o bendito ProcessMessagesVlw mais uma vez pela aten��o...

Kroki · Answer

Ja experimentou um Refesh no FINAL do c�digo;...   Try FRMTela.IdTCPClient1.Disconnect; Except End;   End; FormX.Refresh;end;...

Kroki · Answer

..ou melhor tente isso;...   If FileExists(Tmp + �tela.jpg�) Then     begin       FRMTela.ImagemTela.Picture := nil;//*      FRMTela.ImagemTela.Picture.LoadFromFile(Tmp + �tela.jpg�);......

Paulocesar1301 · Answer

Inacredit�vel...MeuForm.Update;MeuForm.Repaint;... n�o funcionou ...masMeuForm.Refreshrodou beleza ...Ningu�m merece !!!!!Vlw pelo help galera !!!  :D...

F�rum Carr Img Periodica/ em TImage #317234