請教各位 : 如標題 "如何儲存PDF與AUTOCAD 檔到 SQL SERVER ", DB 的 FIELD TYPE 是用 binary 嗎?

Hi ROLAND168,    請參考天使站長大作 http://delphi.ktop.com.tw/topic.php?topic_id=19505 我試過存 jpg,pdf 都正常 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

引言: Hi ROLAND168, 請參考天使站長大作 http://delphi.ktop.com.tw/topic.php?topic_id=19505 我試過存 jpg,pdf 都正常 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica"> 謝謝 Fishmanm 與天使站站長,但我利用下列程式做 PDF 不行??

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    if OpenDialog1.Execute then
    begin
       ADOQuery1.OPEN;
       ADOQuery1.APPEND;
       TBlobFieldADOQuery1.FieldByName'd')).
         loadfromfileOpenDialog1.filename);
       ADOQuery1.Post;
       ADOQuery1.CLOSE;
     end;
   end;       procedure TForm1.Button3Click(Sender: TObject);
   begin
     if SaveDialog1.Execute then
     begin
       ADOQuery1.Open;
       ADOQuery1D.SaveToFile(SaveDialog1.FileName);
       ADOQuery1.close;
       Pdf1.Src:=SaveDialog1.FileName;
     end;
   end;    

之後直接去開 SAVETOFILE 的檔也不行開了也試了 *.jpg 檔但 也不型,我使用 sql server 此欄位我使用 image type ,不知是不 是此原因.謝謝!!

增加紅色部份試試:

   procedure TForm1.Button3Click(Sender: TObject);
   begin
     if SaveDialog1.Execute then
     begin
       ADOQuery1.Open;
       TBolbField(ADOQuery1D).SaveToFile(SaveDialog1.FileName);
       ADOQuery1.close;
       Pdf1.Src:=SaveDialog1.FileName;
     end;
   end;    

-- 歡迎光臨 KTop 研究苑!

引言: 增加紅色部份試試:

   procedure TForm1.Button3Click(Sender: TObject);
   begin
     if SaveDialog1.Execute then
     begin
       ADOQuery1.Open;
       TBolbField(ADOQuery1D).SaveToFile(SaveDialog1.FileName);
       ADOQuery1.close;
       Pdf1.Src:=SaveDialog1.FileName;
     end;
   end;    

-- 歡迎光臨 KTop 研究苑!

我太粗心了!!謝謝兩位!!