各位好， 我利用搜尋方式找到許多關於show圖的資訊， 但測試結果一直有誤， 最後只好請各位大大看看我的程式碼， 是否能解決呢，先謝謝各位囉。

我試了一下程式沒有問題. TBlobField(cdsMain.FieldByName('pic') as TBlobField).SaveToStream(Stream); showmessage(inttostr(Stream.size)); // 看看 TMemoryStream.Size 對不對

先謝謝Mickey幫我測試， 我把showmessage(inttostr(Stream.size));加入程式裡， 是會show出數字出來， 然後我用step over， 到frmFrendsU.Image1.Picture.Assign(jpgstream);這行就會出現錯誤訊息， "JPEG error#52." 一樣的錯誤訊息。

Mickey說看看 TMemoryStream.Size 對不對 那是多少才對阿?? 我忘了說他顯示訊息是多少了， 顯示出是14728

如果你是透過 BDE 來存取 BLOB 欄位, BDE "BLOB SIZE" 參數設定值須夠大(Default=32K), 你存入的 JPEG 圖是否太大了(我用 My Picture\sample.jpg)測試, 完全正常. Note : Size 應等於寫入時的 Stream Size. 發表人 - Mickey 於 2003/09/12 14:44:21

我找了一張6k的圖再測試一次， 但是還是一樣的結果，出現同樣的錯誤訊息。 "Note : Size 應等於寫入時的 Stream Size." 我發現我的圖檔Size都變大了， 要怎樣避免才能使大小相同呢？ 再次感謝。

我 D6(UpdatePack 2) + BDE + ODBC + Access , Delphi Source 是這樣寫的:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  table1.Edit;
  TBlobField(Table1.FieldByName('pic') as TBlobField).LoadFromFile('E:\My Pictures\Sample.jpg');
  table1.post;
end;    procedure TForm1.BitBtn2Click(Sender: TObject);
var
  Stream:TMemoryStream;
  jpgstream: TJpegImage ;
begin
  Stream:= TMemoryStream.Create;
  jpgstream:= TJPEGImage.Create;
  try
    TBlobField(Table1.FieldByName('pic') as TBlobField).SaveToStream(Stream);
    Stream.Position := 0;
    jpgstream.LoadFromStream(Stream);
    showmessage(inttostr(Stream.size));
    Image1.Picture.Assign(jpgstream);
  finally
    Stream.Free;
    jpgstream.free;
  end;
end;

即使我放大的圖(超過 32 KB)也不會有問題, 怎會這樣

... ... jpgstream.LoadFromStream(Stream); jpgstream.Position := 0; frmFrendsU.Image1.Picture.Assign(jpgstream); ... ... try~~~~

再次感謝Mickey不厭其煩的回答我的問題， 但是有個問題是， 我若是直接在Access內嵌入一個圖檔， 然後我在程式裡才做讀取的動作， 這樣會有什麼差別嗎??

嗯...剛剛用 MS Access 直接給圖進 BLOB Field,    的確會有 Jpeg #53 Error, 但如果用 Delphi 去 Insert Data,    讀出便無問題, 這...我也不知道 Access 到底是如何 Insert BLOB Data 的.< > 很抱歉...我幫不上忙了, 等等看是否有人用過相同的問題吧.< >

透過access來存blob類型的資料是以OLE(Object Linking and Embedding)物件和檔頭儲存在資料庫中,檔頭指示可以開啟該檔的裝置和物件型態... 也就是說,你的資料庫內的blob型態的資料需要去除檔頭後才可以得到單純的blob資料... 換句話說,你的資料庫當初是由使用者直接透過access的介面去輸入值的,對吧? 發表人 - hahalin 於 2003/09/12 23:12:09

參考這一篇: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35730    --- 歡迎光臨 KTop 研究院--<-<-<@

引言: 嗯...剛剛用 MS Access 直接給圖進 BLOB Field, 的確會有 Jpeg #53 Error, 但如果用 Delphi 去 Insert Data, 讀出便無問題, 這...我也不知道 Access 到底是如何 Insert BLOB Data 的.< > 很抱歉...我幫不上忙了, 等等看是否有人用過相同的問題吧.< >

***************** 很感謝Mickey不厭其煩的解答咧........ 那想請問一下阿... 你說你是用Delphi 去 Insert Data.. 那這樣我來試試用Delphi去Insert好了.....

引言: 透過access來存blob類型的資料是以OLE(Object Linking and Embedding)物件和檔頭儲存在資料庫中,檔頭指示可以開啟該檔的裝置和物件型態... 也就是說,你的資料庫內的blob型態的資料需要去除檔頭後才可以得到單純的blob資料... 換句話說,你的資料庫當初是由使用者直接透過access的介面去輸入值的,對吧? 發表人 - hahalin 於 2003/09/12 23:12:09

********* 對阿，我的圖檔的確是直接透過Access的介面去輸入的， 但有解嗎???

引言:

引言: 嗯...剛剛用 MS Access 直接給圖進 BLOB Field, 的確會有 Jpeg #53 Error, 但如果用 Delphi 去 Insert Data, 讀出便無問題, 這...我也不知道 Access 到底是如何 Insert BLOB Data 的.< > 很抱歉...我幫不上忙了, 等等看是否有人用過相同的問題吧.< >

***************** 很感謝Mickey不厭其煩的解答咧........ 那想請問一下阿... 你說你是用Delphi 去 Insert Data.. 那這樣我來試試用Delphi去Insert好了..... < face="Verdana, Arial, Helvetica"> 我上面測試之 Source 已經有...看用 TBLOBField.LoadFromFile 或 LoadFromStream Method 都行

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  table1.Edit;
  TBlobField(Table1.FieldByName('pic') as TBlobField).LoadFromFile('E:\My Pictures\Sample.jpg');
  table1.post;
end;