全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:901
推到 Plurk!
推到 Facebook!

请教流问题?

缺席
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-03-30 15:44:00 IP:218.80.xxx.xxx 未訂閱
下面程式: Word_FileStream := TFileStream.Create(Opendialog1.FileName, fmOpenWrite or fmCreate); Word_FileStream.Position := 0; try // Word_FileStream.LoadFromFile(Opendialog1.FileName); AdoUpdateContent.edit; TBlobField(AdoUpdateContent.FieldByName('Content')).LoadFromStream(Word_FileStream); AdoUpdateContent.Post; finally Word_FileStream.free; 为什么不能把所选文件储存到字段Content中?保存为NULL值!!请教
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-03-30 16:00:05 IP:147.8.xxx.xxx 未訂閱
Forget to reposition the stream?
Word_FileStream := TFileStream.Create(Opendialog1.FileName, fmOpenWrite or fmCreate);
    try
      Word_FileStream.LoadFromFile(Opendialog1.FileName);
      Word_FileStream.Position := 0;
      AdoUpdateContent.edit;
      TBlobField(AdoUpdateContent.FieldByName('Content')).LoadFromStream(Word_FileStream);
      AdoUpdateContent.Post;
    finally
      Word_FileStream.free;
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-03-30 16:20:06 IP:218.80.xxx.xxx 未訂閱
Word_FileStream := TFileStream.Create(Opendialog1.FileName, fmOpenWrite or fmCreate);     try       Word_FileStream.LoadFromFile(Opendialog1.FileName);//该句因注释掉的,运行有错误       Word_FileStream.Position := 0;       AdoUpdateContent.edit;       TBlobField(AdoUpdateContent.FieldByName('Content')).LoadFromStream(Word_FileStream);       AdoUpdateContent.Post;     finally       Word_FileStream.free;
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-03-30 16:33:13 IP:147.8.xxx.xxx 未訂閱
Oh.. I see... I guess you have used file stream wrongly.    
    Word_FileStream := TFileStream.Create(Opendialog1.FileName, fmOpenRead);
    try
      AdoUpdateContent.edit;
      TBlobField(AdoUpdateContent.FieldByName('Content')).LoadFromStream(Word_FileStream);
      AdoUpdateContent.Post;
    finally
      Word_FileStream.free;
    end;
[/quote]
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-03-30 16:47:24 IP:218.80.xxx.xxx 未訂閱
还是没有保存进去 
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-03-30 17:07:26 IP:147.8.xxx.xxx 未訂閱
Any error? File is empty? Anyway if you just want to store the file to the blob field, why not use its LoadFromFile method? e.g. TBlobField(AdoUpdateContent.FieldByName('Content')).LoadFromFile(Opendialog1.FileName);
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-03-30 17:24:37 IP:218.80.xxx.xxx 未訂閱
我并不是想把文件名称保存进去,而是想把该文件里的内容(就象附件形式一样)保存到数据库的一个字段中,而现在并没有保存进去,查询出来是NULL值
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-03-31 09:44:57 IP:147.8.xxx.xxx 未訂閱
Please take a look a TBlobField.LoadFromFile from the Delphi help.
系統時間:2024-11-25 8:37:16
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!