Olá Ismair, já mandi em PVT. Obrigado pela atenção.
Ismair Alves escreveu: > Oi, eu tenho um exemplo em casa, me manda um email em pvt que eu te > passo e > bem simples... > > -- > Ismair C. Alves > msn: [EMAIL PROTECTED] <mailto:ismair_alves%40hotmail.com> > PontoConf Soluções em Software Livre. > > Em 03/05/07, Marcelo <[EMAIL PROTECTED] > <mailto:marcelo_afasistemas%40yahoo.com.br>> escreveu: > > > > Amigos da lista, venho, desesperadamente, solicitar a ajuda de vcs. > > > > Estou tentando salvar um JPEG no Firebird + está dando o seguinte erro: > > "Bitmap image is not valid" > > > > O código como base que peguei está em: > > http://www.delphi.eti.br/ver_dica.php?id=6672 > <http://www.delphi.eti.br/ver_dica.php?id=6672> > > > > Na nossa lista, eu achei assuntos referente, peguei os exemplos mas > > também deu o mesmo erro. Por isso estou vindo até os amigos da lista. Se > > alguém puder me ajudar eu agradeço. > > > > Estou usando o Firebird 1.5 - IBO 4.2.Ga - Delphi 6 Professional > > O campo no banco de dados está como Blob - Binary > > O campo na Query está como: BlobType - ftParadoxOle > > > > segue abaixo o código: > > > > const > > OffsetMemoryStream : Int64 = 0; > > > > para abrir e salvar a foto: > > > > var jpg1 : TJpegImage; > > > > if OPPicture.execute then > > image1.Picture.LoadFromFile(OPPicture.FileName); > > > > if OPPicture.FileName <>'' then > > begin > > jpg1 := TJpegImage.Create; > > jpg1.LoadFromFile(OPPicture.FileName); > > Dm1.TbPro.FieldByName('FotoPro').Assign(jpg1); > > jpg1.Free; > > end; > > > > para carregar a foto: > > > > var MemoryStream: TMemoryStream; > > Jpg: TJpegImage; > > > > if not(Dm1.TbPro.IsEmpty) and > > not((Dm1.TbPro.FieldByName('FotoPro') as TBlobField).IsNull) then > > try > > MemoryStream:= TMemoryStream.Create; > > Jpg := TJpegImage.Create; > > (Dm1.TbPro.FieldByName('FotoPro') as > > TBlobField).SaveToStream(MemoryStream); > > MemoryStream.Position := OffsetMemoryStream; > > Jpg.LoadFromStream(MemoryStream); > > Image1.Picture.Assign(Jpg); > > finally > > // Jpg.Free; > > MemoryStream.Free; > > end > > else > > Image1.Picture := Nil; > > end; > > > > Desde já agradeço a todos. > > > > > > [As partes desta mensagem que não continham texto foram removidas] > >
