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

Ir em baixo

ABRIR UMA IMAGEM NO IMAGESCROLLBOX DELPHI Empty 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

ABRIR UMA IMAGEM NO IMAGESCROLLBOX DELPHI Empty 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

Voltar ao Topo

- Tópicos similares

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