数据库存取JPG的问题

Question

你下一个1stclass控件，　里面的dbimage可以存储.jpg文件

Answer 1

或则你可以存储图象的路径，要显示的时候用image显示

Answer 2

to My_first：
 1stclass控件，在那里下载？

Answer 3

能发到我的信箱里吗？
[email protected]谢谢了

Answer 4

转贴:
//保存 
procedure TForm1.ImageIntoDBBitBtnClick(Sender: TObject); 
begin 
  try 
    with Query1 do 
      begin 
        close; 
        sql.clear; 
        sql.add('insert into img (imga) values(:imag)'); 
      end; 
    try 
      if FileName<>'' then 
        ParamByName('Img').LoadfromFile(FileName,ftGraphic) 
      else 
        ParamByName('Img') .asBlob:=''; 
      Query1.ExecSQL; 
    except 
      ShowMessage('图片保存出错！'); 
      exit; 
    end; 
  except 
  end; 
end; 
 
//读取 
procedure TForm1.ImageFromDBBitBtnClick(Sender: TObject); 
var 
  m_jpegstream:tmemorystream; 
begin 
  with Query1 do 
  begin 
    close; 
    sql.clear; 
    sql.Add('select imga from img'); 
    try 
      Open; 
    except 
      exit; 
    end; 
  end; 
  if (Query1.FieldByName('imga') as tblobfield).asstring='' then 
  begin 
    exit; 
  end 
  else 
  begin 
    try 
    try 
      m_jpegStream:=TMemoryStream.Create; 
      (Query1.fieldbyname('imga') as TBlobField).SaveToStream(m_JpegStream); 
      m_JpegStream.Position:=0; 
      try 
        image2.Picture.Graphic:=nil; 
        image2.Picture.Graphic:=TJpegImage.Create; 
        image2.Picture.Graphic.LoadFromStream(m_JpegStream);  //读Jpeg 
      except 
        m_JpegStream.Position:=0; 
        Image2.Picture.Bitmap.LoadFromStream(m_JpegStream);   //读Bmp 
      end; 
    except 
    end; 
    finally 
      m_JpegStream.Free; 
      Query1.Close; 
      Query1.UnPrepare; 
    end; 
  end; 
end; 
 
//BMP转换为JPG 
procedure TStuXXSLForm.LoadImageBitBtnClick(Sender: TObject); 
var 
  MyJpeg:TJpegImage; 
begin 
  inherited; 
  if OpenPictureDialog1.Execute then 
  begin 
    FileName:=OpenPictureDialog1.FileName; 
    Image1.Picture.LoadFromFile(FileName); 
    if ExtractFileExt(FileName)='.Bmp' then 
    begin 
      MyJpeg:= TJpegImage.Create; 
      MyJpeg.Assign(Image1.Picture.Bitmap); 
      FileName:='Photo.Jpg'; 
      MyJpeg.SaveToFile(FileName); 
      MyJpeg.Free; 
    end; 
  end; 
end;

Answer 5

可以使用DBImage，在uses中加入jpeg,单元就可以使用DBImage存取JPG图片了，就是这样，你可以试试看

Answer 6

我现在正在做与你一样的东东，存取图象可如下：存：
            Query1.insert; 
            DBImage2.Picture.LoadFromFile('c:\blank.jpg');
            DBImage2.CutToClipboard;
            DBImage2.PasteFromClipboard;
            Query1.applyupdate;
            Query1.commitupdate;读：
  用DBImage绑定就可以了。