O exemplo deste artigo descreve o método de salvar e ler imagens em Delphi, que é uma técnica muito prática. Compartilhe com todos para sua referência. O método de implementação específico é o seguinte:
Primeira citação jpeg
1. Exibir fotos:
se OpenPictureDialog.Execute thenbegin img1.Picture.LoadFromFile(OpenPictureDialog.FileName;btnPicture.Text:=OpenPictureDialog.FileName;end;
2. Salve a imagem:
varStream:TMemoryStream;Stream := TMemoryStream.Create; // Cria um fluxo de memória // Salva a imagem no fluxo de memória img1.Picture.Graphic.SaveToStream(Stream);ParamByName('picture').LoadFromStream(Stream,ftBlob) ; ParamByName('IsSavePicture').Value:='1';Stream.Free;3. Leia a imagem:
varStream:TMemoryStream;Jpg:TjpegImage;se fieldbyname('IsSavePicture').Value='1' thenbegin Stream:=TMemoryStream.Create; // O conteúdo exibido é convertido em BlobField e salvo no fluxo de memória Stream.Position :=0; jpg.LoadFromStream(Stream); // Carrega a imagem img1.Picture.Assign(Jpg); img1.Imagem: =nil;Acredito que o que está descrito neste artigo tem certo valor de referência para a programação Delphi de todos.