如何向表单中插入一个GIF文件？

Question

如何向表单中插入一个GIF文件？请高手指点！

Answer 1

//将JPG文件写入BLOB字段,并显示在IMAGE中
var
  m_jpeg:TJpegImage;
begin
  m_jpeg:= TJpegImage.Create;
  try
    try
      m_jpeg.LoadFromFile('Photo.jpg');
      image1.Picture.Assign(m_jpeg);
      table.Edit;
      TBlobField(table.FieldByName('照片')).LoadFromFile('Photo.jpg');
    except
      showmessage('图片文件无效,其格式必须为JPG格式,且不得超过10K,请重新选择.');
    end;
  finally
    m_jpeg.Free;
  end;
end;
//读出主表图片字段的图片,显示在IMAGE中
var
  m_blob:TBlobStream;
  m_jpeg:TJpegImage;
begin
  image.Picture:= nil;
  m_blob:=TBlobStream.Create(TBlobField(table.FieldByName('照片')),bmRead);
  m_jpeg:=TJpegImage.Create;
  try
    if m_blob.Size<>0 then
    begin
      try
        m_jpeg.LoadFromStream(m_blob);
        image.Picture.Assign(m_jpeg);
      except
        showmessage('主表中图片格式无效(JPG格式),请重新扫描或读入.');
      end;
    end
  finally
    m_jpeg.Free;
    m_blob.Free;
  end;
end;

Answer 2

TBlobField(table.FieldByName('照片')).LoadFromFile('Photo.gif');
TBlobField(table.FieldByName('照片')).SaveFromFile('Photo.gif');Image1.Picture.LoadFromFile('Photo.gif');在设计环境下用Image1显示一个gif文件，运行，确认显示后，关闭程序，然后将Image1的picture属性清空，这样Image1在运行时就认的gif文件了