图片数据

Question

放一个按钮，一个OpenPictureDialog，一个TImage（不是必要）
uses Jpeg;procedure TForm1.SavePictureClick(Sender: TObject);
begin
  if OPenPictureDialog1.Execute then
  begin
    with Table1 do
    begin
      Append;
      FieldByName('xxxx').AsString := 'xxxx';
      ......
      ......
      TBlobField(FieldByName('picture')).LoadFromFile(OpenPictureDialog1.FileName);
      Post;
    end;
    ShowPicture(OpenPictureDialog1.FileName);
  end;
end;procedure TForm1.ShowPicture(const FileName: string);
var
  JpegImage: TJpegImage;
begin
  if LowerCase(ExtractFileExt(FileName)) = '.jpg' then
  begin
    JpegImage := TJpegImage.Create;
    JpegImage.LoadFromFile(FileName);
    Image1.Picture := JpegImage;
    JpegImage.Free;
  end
  else
    Image1.Picture.LoadFromFile(FileName);
end;//读取数据库中的图像
procedure TForm1.ReadPictureClick(Sender: TObject);
var
  MS: TMemoryStream;
  JpegImage: TJpegImage;
begin
  MS ;= TMemoryStream.Create;
  TBlobField(Table1.FieldByName('picture')).SaveToStream(MS);
  MS.Position := 0;
  if 是JPEG格式的图像 then
  begin
    JpegImage := TJpegImage.Create;
    JpegImage.LoadFromStream(Ms);
    Image1.Picture.Graphic := JpegImage;
    JpegImage.Free;
  end
  else if 是位图 then
    Image1.Picture.Bitmap.LOadFromStream(MS)
  else if 是图标 then
    Image1.Picture.Icon.LoadFromStream(MS);
  MS.Free;
end;