Delphi Brasil
Seja bem-vindo (a) ao Delphi Brasil,aqui você encontrará dicas,tutoriais e etc.
Por favor,registre-se para obter o maior proveito possivel do fórum.
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Conectar-se

Esqueci minha senha

Parceiros

ABRIR UMA IMAGEM NO IMAGESCROLLBOX DELPHI

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

ABRIR UMA IMAGEM NO IMAGESCROLLBOX DELPHI

Mensagem por rifariasfarias em Ter Jan 15, 2013 4:22 am

Pessoal estou com um problema muito estranho de resolver, tenho um campo blob no banco para salavar imagens ... só que tem um probelma tem algumas imagens que o sistema nao abre.. nao sei pq... estou usando o codigo seguinte para abrir a imagem, lembrando que é um campo blob que salva a imagem.. e uso um stream para abrir a imagem e jogar no ImageScrollBox, o estranho que dei um comando aqui para ver o tamanho dos bytes a imagem que abriu é de 102602 e a que nao abre é de 655361 olhei isso com o comando seguinte, Stream.Size; para ver o tamanho dos bytes, sera que o imagescrollbox nao abre arquivos muito grande ? pelo que percebi o stream tem sempre que iniciar no zero.. mas ja o codigo ja faz isso, sao algumas imagens só que acontece isso e nao todas de nao abrir... será que alguem pode me ajudar ?

var
Stream: TStream;
F: TField;
MeuByte: byte;
imagem : TJPEGImage;
begin
//if dbgrdPagina.SelectedRows.Count = 1 then
//begin

FDirty := False;
Stream := TStringStream.Create('');
try
dmPrincipal.qryViewImagem.Close;
dmPrincipal.qryViewImagem.ParamByName('cdImagem').AsInteger :=
qryViewPag.FieldByName('cdImagem').AsInteger;
dmPrincipal.qryViewImagem.Open;

//F := dmPrincipal.qryViewImagem.FieldByName('imagem');
TBlobField(dmPrincipal.qryViewImagem.FieldByName('imagem')).SaveToStream(Stream);



//MeuByte := Stream.Position;
//MeuByte := Stream.Size;


// if Stream.Size > 0 then Stream.Read(MeuByte,SizeOf(MeuByte));



if Stream.Size > 0 then // Verifica se o registro tem imagens gravadas
begin
Stream.Position := 0;
imgView.LoadFromStream(Stream,qryViewPag.FieldByName('extensao').AsString,0);
imgView.ZoomMode := zmFitWidth;
end;

finally
Stream.Free;
dmPrincipal.qryViewImagem.Close;
end;
//end;
end;

rifariasfarias
Membro
Membro

Mensagens : 3
Data de inscrição : 15/01/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: ABRIR UMA IMAGEM NO IMAGESCROLLBOX DELPHI

Mensagem por rifariasfarias em Ter Jan 15, 2013 4:34 am

ESQUECI DE MENCIONAR O ERRO É ESTE PARA IMAGEM QUE NAO ABRE CLASS ETIFFERROR WITH MESSAGE ETIFFERROR TIFFOPEN

rifariasfarias
Membro
Membro

Mensagens : 3
Data de inscrição : 15/01/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum