ACCESS存取图片！在线等（送100，不够再送）

Question

谁能给我一些ACCESS存取图片的实例，或者相关资料。  送100 ，不够再开贴加。

Answer 1

用流或者直接用DBImage控件，www.playicq.com上这样的例子---------------------------------------
您工作生活的好助手：个人数字助理 V1.1 
天空软件园下载地址
http://www.skycn.net/soft/21193.html
华军软件园下载地址
http://www.onlinedown.net/soft/35617.htm

Answer 2

procedure Tform1.OpenFile(const Filename: string);
begin
  try
    imgProduct.Picture.LoadFromFile(Filename);
  except
    on EInvalidGraphic do
      imgProduct.Picture.Graphic := nil;
  end;
end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if opd_product.Execute then
    OpenFile(opd_product.FileName);
end;procedure TForm1.BitBtn2Click(Sender: TObject);
var
  mStream: TMemoryStream;
begin
 if imgProduct.Picture.Graphic <> Nil Then
  begin
    try
      mStream := TMemoryStream.Create;
      imgProduct.Picture.Graphic.SaveToStream(mStream);
      adotable1.open;
      adotable1.Append;
      TBlobField(adotable1.FieldByName('Test_pic')).LoadFromStream(mStream);
      adotable1.Post;
    finally
      mStream.Free;
    end;
  end;
end;
procedure TForm1.wwDBGrid1DblClick(Sender: TObject);
var
  mStream: TMemoryStream;
begin
  mStream := TMemoryStream.Create;
  adotable1.Close;
  adotable1.Open;
  TBlobField(adotable1.FieldByName('Test_pic')).LoadFromStream(mStream);
  imgProduct.Picture.Bitmap.LoadFromStream(mStream);
end;

Answer 3

保存 :
var Ms:TmemoryStream;
begin
  ms:=TmemoryStream.Create;
  Jpg.Assign(Image1.Picture.Graphic);
  Jpg.SaveToStream(Ms) ;
  Ms.Position :=0;
  ADOquery1.append;
  TBlobField(ADOquery1.FieldByName('img')).LoadFromStream(Ms);
  ADOquery1.Post;
  Ms.Free ;
end;
读取到image中:
 Var
Ms:TStringStream;
begin
  Ms:=TstringStream.Create('');
  TBlobField(ADOquery1.FieldByName('img')).SaveToStream(Ms);
  Ms.Position :=0;
  Jpg.LoadFromStream(Ms);
  Image2.Picture.Assign(Jpg);
  Ms.Free;
end;
  

Answer 4

刚好我还有个例子
http://qiujianshe.01www.net/download/DelphiImage.rar

Answer 5

图片转化为流,然后再用TBlobField存入Access,一般都这么做...

Answer 6

先 uses jpeg
var
  ImageBMP:Tbitmap;
  ImageJPEG:Tjpegimage;
begin
try
  if bsSkinOpenPictureDialog1.Execute then
  begin
    Data.dsProbation.DataSet.Edit;
    if uppercase(ExtractFileExt(bsSkinOpenPictureDialog1.FileName))='.JPG' then
    begin
      ImageBMP:=Tbitmap.Create;
      ImageJPEG:=TjpegImage.Create;
      ImageJPEG.LoadFromFile(bsSkinOpenPictureDialog1.FileName);
      ImageBMP.Assign(ImageJPEG);
      ImageBMP.SaveToFile(ExtractFilePath(application.ExeName)+'TempBMP.BMP');
       //bsSkinDBImage1.Picture.LoadFromFile(bsSkinOpenPictureDialog1.FileName);//
      bsSkinDBImage1.Picture.LoadFromFile(ExtractFilePath(application.ExeName)+'TempBMP.BMP');
    end
    else
      bsSkinDBImage1.Picture.LoadFromFile(bsSkinOpenPictureDialog1.FileName);
  end;
  except
   unit1.frm_mian.bsSkinMessage1.MessageDlg('您选择的图片格式有误，请从新选择！', mtInformation, [mbOK], 0);
  exit;
  end;
end;

Answer 7

gxgyj(杰克.逊)同意~~
还可以~更简单的~