我是一個DELPHI新手,請各位多多指教!! 據我所知, DELPHI 的DATABASE DESKTOP 支援BLOB 格式的資料 但我找不到任何辦法在DATABASE DESKTOP 中加入圖片到資料庫 請問除了用SQL, 還有甚麼辦法可以在新增資料到資料庫時加入BLOB 格式之圖像? P.S.圖像必須儲存在資料庫,不能引用路徑

Hi 2b22: 試試看~

var fs: TFileStream;
    bs: TBlobStream;
    sFileName: String;
begin
   sFileName:='C:\Test.bmp';//for test ,insert into Query1 PICTURE column 
  try
    Image1.Picture.LoadFromFile(sFileName);
    DATABASE1.StartTransaction;
    With Query1 Do
    Begin
      Edit;
      fs := TFileStream.Create(sFileName, fmOpenRead);
      bs := TBlobStream(CreateBlobStream(FieldByName('PICTURE'), bmWrite));
      bs.CopyFrom(fs, 0);
      bs.Free;
      fs.Free;
      Post;
    end;
    DATABASE1.Commit;
  Except
    DATABASE1.Rollback;
  End;
end;

<>~悠遊法國號~ 發表人 - yachanga 於 2004/04/23 13:20:58

您好,這是我之前的案子,把圖檔內容存入資料庫的程式碼,如下:

function TPICTUREObj.UpdateImage(sPrjID, sPictID: String): String;
var
  FupDate:TQuery;
  Jpg:TJPEGImage;
  Stream:TMemoryStream;
begin
  FupDate:=TQuery.Create(FOwner);
  Jpg:=TJPEGImage.Create;
  Stream:=TMemoryStream.Create;
  try
    FupDate.DatabaseName:=FDatabase.DatabaseName;
    //把圖檔存入
    //PICT:原掃描的圖檔,為BMP格式
    try
      //FUpDate.Edit;
      FssSQL.Clear;
      FssSQL.Add('UPDATE PICTURE ');
      FssSQL.Add('   SET PICT_IMAGE=:B_PICT_IMAGE');
      FssSQL.Add(' WHERE SYS_PRJ_ID = ' sPrjID);
      FssSQL.Add('   AND PICT_ID = ' sPictID);
      FupDate.SQL.Text:=FssSQL.Text;
      //存入資料庫一律為JPG格式
      if (FImageFormat = 'BMP') then
      begin
        JPG.Assign(FImage.Picture.Graphic);
        JPG.CompressionQuality:=70;
        JPG.Compress;
        JPG.SaveToStream(Stream);
      end
      else if (FImageFormat = 'JPG') then
      begin
        JPG.Assign(FImage.Picture);
        JPG.SaveToStream(Stream);
      end;
      FupDate.ParamByName('B_PICT_IMAGE').SetBlobData(Stream.Memory,Stream.Size);
      if FDatabase.InTransaction then
        FDatabase.Rollback;
      FDatabase.StartTransaction;
      FUpDate.Prepare;
      FupDate.ExecSQL;
      Result:='圖檔寫入成功';
      FDatabase.Commit;
    except
      on E:Exception do
      begin
        FDatabase.Rollback;
        raise Exception.Create('圖檔寫入失敗,錯誤訊息如下:'#13 e.Message);
      end;
    end;
  finally
    FUpDate.Active:=False;
    FupDate.Free;
    Stream.Free;
  end;
end;

您好： 參考此篇http://delphi.ktop.com.tw/topic.php?topic_Id=18188 善用搜尋功能 ~~應無所住而生其心~~

請參考站長作品: http://delphi.ktop.com.tw/topic.php?topic_id=19505

首先多謝yachanga, change.jian, terrychen, timhuang等高手回答我的問題 其實我也翻看過這裡的舊文章 我知道用delphi的程式碼是可以將jpg加到資料庫 但我想知道除此之外 有沒有其他database程式(如database desktop)可以直接加jpg到資料庫 而不用打程式碼?

不用打程式? 你的意思是不用寫程式的方法嗎? 還是只是要找這方面的工具呢? 其實匯入圖片進資料庫在大家的回答後, 相信你能自己整理出方法來讀寫圖片於資料庫中應該是沒有問題的, 若真的一行程式都不想寫的話, 站長的作品本身就是一個完整的工具, 你試試看!

我的情況是這樣的: 我要寫一個資料庫存取的程式 因此要有一個範例資料庫來測試程 所以我想找一些像access的程式 可以在建立資料庫之後快速加入資料到資料庫 現在我參加過各位的範例後 已可以加入圖檔到資料庫 但另一個問題又出現: 如何辨別在資料庫中儲存的是jpg還是bmp??? 希望各位賜教!

引言: 我的情況是這樣的: 我要寫一個資料庫存取的程式 因此要有一個範例資料庫來測試程 所以我想找一些像access的程式 可以在建立資料庫之後快速加入資料到資料庫 現在我參加過各位的範例後 已可以加入圖檔到資料庫 但另一個問題又出現: 如何辨別在資料庫中儲存的是jpg還是bmp??? 希望各位賜教!

我之前也為這個問題傷腦筋很久,後來是乾脆在資料庫另加一個欄位儲存這個blob的內容是什麼.如果一般的檔案的話,可以直接以檔案名稱的副檔名來判斷,但如果是存在資料庫裡的話,我也在找答案

參考 How to determine the graphic format of a file:  http://www.lmc-mediaagentur.de/dpool/tips/1319.htm

function PhysicalResolveFileType(AStream: TStream): Integer;
var
  p: PChar;
begin
  Result := 0;
  if not Assigned(AStream) then
    Exit;
  GetMem(p, 10);
  try
    AStream.Position := 0;
    AStream.Read(p[0], 10);
    {bitmap format}
    if (p[0] = #66) and (p[1] = #77) then
      Result := 1;
    {tiff format}
    if ((p[0] = #73) and (p[1] = #73) and (p[2] = #42) and (p[3] = #0)) or
        (( p[0] = #77) and (p[1] = #77) and (p[2] = #42) and ( p[3] = #0)) then
      Result := 2;
    {jpg format}
    if (p[6] = #74) and (p[7] = #70) and (p[8] = #73) and (p[9] = #70) then
      Result := 3;
    {png format}
    if (p[0] = #137) and (p[1] = #80) and (p[2] = #78) and (p[3] = #71) and
        (p[4] = #13) and (p[5] = #10) and (p[6] = #26) and (p[7] = #10) then
      Result := 4;
    {dcx format}
    if (p[0] = #177) and (p[1] = #104) and (p[2] = #222) and (p[3] = #58) then
      Result := 5;
    {pcx format}
    if p[0] = #10 then
      Result := 6;
    {emf format}
    if (p[0] = #215) and (p[1] = #205) and (p[2] = #198) and (p[3] = #154) then
      Result := 7;
    {emf format}
    if (p[0] = #1) and (p[1] = #0) and (p[2] = #0) and (p[3] = #0) then
      Result := 7;
  finally
    Freemem( p );
  end;
end;

******引文******** 試試看~ var fs: TFileStream; bs: TBlobStream; sFileName: String; begin sFileName:='C:\Test.bmp';//for test ,insert into Query1 PICTURE column try Image1.Picture.LoadFromFile(sFileName); DATABASE1.StartTransaction; With Query1 Do Begin Edit; fs := TFileStream.Create(sFileName, fmOpenRead); bs := TBlobStream(CreateBlobStream(FieldByName('PICTURE'), bmWrite)); bs.CopyFrom(fs, 0); bs.Free; fs.Free; Post; end; DATABASE1.Commit; Except DATABASE1.Rollback; End; end; ********************************** 不知可否請這位高手...上傳借我研究看看... 我有試過....但有些東西、元件我不太懂.... 麻煩一下～～～感謝你！！