如何將oracle資料long raw資料內容.jpg自delphi 轉入ms word?? |
尚未結案
|
ntsubcis
一般會員 發表:1 回覆:1 積分:0 註冊:2009-04-30 發送簡訊給我 |
請問各位先進大大!!
要如何用delphi 將 oracle資料類別為long raw及資料內容是.jpg 轉入ms word?? 有先爬文過有sample 用 WordApp.Selection.InlineShapes.AddPicture('c:\D.JPG',False,True) 方式 BUT, 我是要將 oracle資料類別為long raw及資料內容是.jpg 轉入ms word!!用ADDPICTURE 是用filename, 而我是有自oracle取出之圖檔....感恩感恩!!
------
PacMan |
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好,
若無法直接, 可否用間接的方式 1. 用 TBlobField(Query1.FieldByName('欄位名')).SaveToFile('c:\D.JPG'); 將 jpg 資料存入暫存檔. 2. 再用WordApp.Selection.InlineShapes.AddPicture('c:\D.JPG',False,True) 轉入 ms word. 沒實測, 參考一下.
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
ntsubcis
一般會員 發表:1 回覆:1 積分:0 註冊:2009-04-30 發送簡訊給我 |
chen my man:
我實測結果OK!! 感恩!!感恩!!......BUT 有一點小小問題:: 圖片在ms word 顯示,有些是完整的一張圖,但有些是像下載不完全的半張圖, 其圖檔在oracle db顯示正常..所以 chen 大大不知是否能解讀此靈異現象,謝謝!! 我先前作法如下,但結果也是一樣.. bs := TBlobStream.Create(Q1PIC, bmRead); //將 jpg 轉出 p :=TJpegImage.Create; try p.LoadFromStream(bS); Image1.Picture.Graphic := p; SetJPEGOptions(self); If SPD.Execute then //將 jpg 存取 begin Nowfile := SPD.FileName; Image1.Picture.SaveToFile(Nowfile); end; WordApp.Selection.InlineShapes.AddPicture(Nowfile,False,True); //將 jpg 寫入 word. finally p.Free; bS.Free; end;
------
PacMan |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |