請問各位先進大大!!
要如何用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

您好,

若無法直接, 可否用間接的方式
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 (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

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