BMP圖檔壓成JPEG 之後存入資料庫 |
|
答題得分者是：RaynorPao
|
|
yannyann
一般會員   發表：8 回覆：20 積分：10 註冊：2003-02-17 發送簡訊給我 |
我想要讀入一個圖檔,壓成JPEG,再存入資料庫BLOB欄位
BMP->BLOB 沒問題
BMP->JPEG->file 也沒問題
可是BMP->JPEG->BLOB 卻卡住了 程式碼如下 if(OpenPictureDialog1->Execute())
{
TJPEGImage *pJPEG=new TJPEGImage();
TStream *s;
Image1->Picture->Bitmap->LoadFromFile(OpenPictureDialog1->FileName);
pJPEG->Assign(Image1->Picture->Bitmap);
pJPEG->CompressionQuality=80;
pJPEG->Compress();
ADOtbBack->Edit();
s=ADOtbBack->CreateBlobStream(ADOtbBack->FieldByName("Background"),bmWrite);
s->Seek(0,0);
pJPEG->SaveToStream(s);
pJPEG->Free();
s->Free(); -> 註一
ADOtbBack->Post();
} 註一：在這裡出現"EInvalidGraphics with message "Bitmap image is not valid""的錯錯訊息
|
|
RaynorPao
版主   發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
yannyann 你好:
先試試看這樣可不可以??
if(OpenPictureDialog1->Execute())
{
TJPEGImage *pJPEG=new TJPEGImage();
TStream *s;
Image1->Picture->Bitmap->LoadFromFile(OpenPictureDialog1->FileName);
pJPEG->Assign(Image1->Picture->Bitmap);
pJPEG->CompressionQuality=80;
pJPEG->Compress();
ADOtbBack->Edit();
s=ADOtbBack->CreateBlobStream(ADOtbBack->FieldByName("Background"),bmWrite);
s->Seek(0,0);
pJPEG->SaveToStream(s);
// pJPEG->Free();
// s->Free(); -> 註一
ADOtbBack->Post();
delete s;
delete pJPEG;
} 註一：在這裡出現"EInvalidGraphics with message "Bitmap image is not valid""的錯錯訊息
-- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
yannyann
一般會員 發表：8 回覆：20 積分：10 註冊：2003-02-17 發送簡訊給我 |
RaynorPao,謝謝你..
Free() 跟 delete 有什麼不同嗎？
delete s; or s->Free(); 如果在ADOtbBack->Post(); 之後
會出現AdotbBack is not in Edit mode的錯誤訊息
根據
http://delphi.ktop.com.tw/topic.php?topic_id=22524
裡的用法,TStream 要在TTable->Post()前先TSTream->Free()才行
我自己嘗試也是如此...
引言:s->Seek(0,0); pJPEG->SaveToStream(s); // pJPEG->Free(); // s->Free(); -> 註一 ADOtbBack->Post(); delete s; delete pJPEG; } |
|
yannyann
一般會員 發表：8 回覆：20 積分：10 註冊：2003-02-17 發送簡訊給我 |
剛發現一個非常奇特的現象..
TStream *s;
TFileStream *s1=new TFileStream("d:\\test.bmp",fmOpenRead);
s1->Position=0;
ADOtbBack->Edit();
s=ADOtbBack->CreateBlobStream(ADOtbBack->FieldByName("Background"),bmWrite);
s->Seek(0,0);
s->CopyFrom(s1,s1->Size);
delete s;
ADOtbBack->Post();
delete s1;
如果上述黑體字部分改成
TFileStream *s1=new TFileStream("d:\\test.jpg",fmOpenRead);
就會出現相同的問題"Bitmap is not valid..."
錯誤發生於delete s;
這現象令我很納悶,TStream只能吃bmp的圖檔??為何如此"大小眼" 發表人 - yannyann 於 2003/03/15 13:57:29
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: Free() 跟 delete 有什麼不同嗎？ delete s; or s->Free(); 如果在ADOtbBack->Post(); 之後 會出現AdotbBack is not in Edit mode的錯誤訊息 根據 http://delphi.ktop.com.tw/topic.php?topic_id=22524 裡的用法,TStream 要在TTable->Post()前先TSTream->Free()才行 我自己嘗試也是如此... yannyann 你好: (1)Free 是繼承於 TObject 的一個 method，以下是 BCB 中的說明 TObject::Free Destroys an object and frees its associated memory, if necessary. __fastcall Free(); Description Do not call the Free method of an object. Instead, use the delete keyword, which invokes Free to destroy an object. Free automatically calls the destructor if the object reference is not NULL. (2)試試看其他的 Stream(例如: TBlobStream,....)-- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2003/03/15 14:15:53
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
yannyann
一般會員 發表：8 回覆：20 積分：10 註冊：2003-02-17 發送簡訊給我 |
|
|
yannyann
一般會員 發表：8 回覆：20 積分：10 註冊：2003-02-17 發送簡訊給我 |
謝謝RaynorPao提醒..
我改用TMemoryStream後,問題迎刃而解
TJPEGImage *pJPEG=new TJPEGImage();
TMemoryStream* pms = new TMemoryStream(); Image1->Picture->Bitmap->LoadFromFile(OpenPictureDialog1->FileName);
pJPEG->Assign(Image1->Picture->Bitmap);
pJPEG->JPEGNeeded();
pJPEG->CompressionQuality=80;
pJPEG->Compress();
ADOtbBack->Edit();
pms=(TMemoryStream *)ADOtbBack->CreateBlobStream(ADOtbBack->FieldByName("Background"),bmWrite);
pms->Position=0;
pJPEG->SaveToStream(pms);
delete pJPEG;
delete pms;
ADOtbBack->Post();
|
發表時間：2003-03-14 10:51:00
IP:163.28.xxx.xxx 未訂閱
系統時間：2024-11-26 3:45:48
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |