Ir para conteúdo
Fórum Script Brasil
  • 0

Repetir Funcao


Guest Andre Lima

Pergunta

Guest Andre Lima

Ola pessoal. Estou com um problema. Tenho uma procedure e uma funcao. Uma tira um print da tela e a outra converte o print pra jpeg. Como faco pra q execute as 2 funcoes de 3 em 3 segundos?

Olha o codigo.

procedure TForm1.ScreenCapture(Filename: TFilename);

var
DHDC: HDC;
Buffer : TBitmap;

Begin

  begin

  DHDC := GetWindowDC(GetDesktopWindow);
  Buffer := tBitmap.Create;
  Buffer.Width  := Screen.Width;
  Buffer.Height := Screen.Height;
  BitBlt(Buffer.Canvas.Handle,0,0,Screen.Width,Screen.Height,DHDC,0,0,SRCCOPY);
  Buffer.SaveToFile(Filename);
  Buffer.Free;
  ReleaseDC(GetDesktopWindow,DHDC);
  end;
End;


function TForm1.BmpToJpg(cImage: String): Boolean;
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
  begin

  cImage:= 'c:\'+NImagem+'';
  Result := False;
    if fileExists(cImage+'.bmp') then
     begin
          MyBMP := TBitmap.Create;
      with MyBMP do
        begin
        try
          LoadFromFile(cImage+'.bmp');
          MyJPEG := TJPEGImage.Create;
          with MyJPEG do
           begin
           assign(MyBMP);
           SaveToFile(cImage+'.jpeg');
           Free;
           Result := True;
           end;
       finally
       Free;
       end;
     end;
  end;
end;

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...