ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

progressbar para mostrar status de uma rotina [RESOLVIDO]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
elton.pkn
Novato
Novato


Registrado: Terça-Feira, 18 de Março de 2014
Mensagens: 2
Localização: Ananindeua - PA
MensagemEnviada: Qui Jan 08, 2015 12:43 am    Assunto: progressbar para mostrar status de uma rotina [RESOLVIDO] Responder com Citação
Ola,
sou novo no Delphi e tô com uma duvida persistente criei uma rotina que carrega uma imagem e a codifica com Base64 e a salva num XML mas em imagens grades o processo de codificação pode demorar então queria mostrar o status da codificação através de tprogressbar, mas, não sei como o fazer alguma sugestão.

aqui a rotina:
Código:
function TForm1.ImgToB64(caminho: string): string;
var
  textoBase64: string;
  textoNormal: TStringStream;
  arquivo: TFileStream;
begin
  textoNormal := TStringStream.Create('');
  arquivo := TFileStream.Create(caminho, fmOpenRead);

 
  textoNormal.CopyFrom(arquivo, 0);
  textoNormal.Position := 0;

 
  textoBase64 := EncodeString(textoBase64.DataString);

  textoNormal.Free;
  arquivo.Free;

  Result := textoBase64;
end;


Editado pela última vez por elton.pkn em Qui Jan 08, 2015 4:54 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
anderbelluno
Colaborador
Colaborador


Registrado: Quarta-Feira, 23 de Novembro de 2011
Mensagens: 1030
Localização: Cianorte-PR
MensagemEnviada: Qui Jan 08, 2015 2:15 am    Assunto: Responder com Citação
Da uma olha pra ver se ajuda:
http://www.activedelphi.com.br/forum/viewtopic.php?t=35448&sid=4eab0ca58f957557d0821432061b6e21
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
elton.pkn
Novato
Novato


Registrado: Terça-Feira, 18 de Março de 2014
Mensagens: 2
Localização: Ananindeua - PA
MensagemEnviada: Qui Jan 08, 2015 4:57 pm    Assunto: Responder com Citação
Valeu deu certo fiz umas adaptações e consegui.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB