请问各位:如何将jpg文件保存在db数据库中

Question

我记得以前好像有类似的问题,不过解释好像不够详细(自己水平太菜了)
希望各位大哥能帮帮小弟,最好有现成的例子.

Answer 1

以前做了一个，比较简单，凑和着用用吧。
procedure TFormLoadingPhoto.Button1Click(Sender: TObject);
var
  sFile:string;
  sPicture:TPicture;
  sClip:TClipboard;
begin
  sPicture:=TPicture.Create;
  sClip:=TClipboard.Create;
  if OpenDialog1.Execute then
  begin
    OpenDialog1.InitialDir:=extractFilePath(OpenDialog1.FileName);
    sFile:=OpenDialog1.FileName;
    sPicture.LoadFromFile(sFile);
    sClip.Assign(sPicture);    DMPH.tblEmpPhoto.Edit;
    DBImage1.PasteFromClipboard;
    DMPH.tblEmpPhoto.Post;
  end;
  sPicture.Free;
  sClip.Free;
end;