blob问题! |
缺席
|
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
|
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
|
minjiu
中階會員 發表:27 回覆:119 積分:69 註冊:2002-06-26 發送簡訊給我 |
|
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
引言: 把选择的文件放入一字段: TBlobField(QryMaster.FieldByName('Content')).LoadFromFile(Opendialog.FileName);保存是SQL语句会出错!请问是和原因?var FileStream: TFileStream; BLOBStream: TBLOBStream; begin if FileExists(Opendialog1.FileName) then begin QryMaster.Edit; try FileStream := TFileStream.Create(Opendialog1.FileName, fmOpenRead); try BLOBStream := TBLOBStream.Create(TBLOBField(Table1.FieldByName('Content')),bmReadWrite);试试这样写行不行 BLOBStream.CopyFrom(FileStream, FileStream.Size); finally BLOBStream.Free; end; QryMaster.Post; finally FileStream.Free; end; end; end; ——行径窄处,留一步与人行—— |
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
|
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
|
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
这就是我的全部代码啊?不知道怎么读出来?ADO里的SQL语句(select content from smalldoc)
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;
|
minjiu
中階會員 發表:27 回覆:119 積分:69 註冊:2002-06-26 發送簡訊給我 |
引言: 请问有无ADO的代码示例?從檔案存入資料庫: adoQuery.Close; adoQuery.SQL.Clear; adoQuery.Parameters.Clear; adoQuery.SQL.Add('INSERT INTO [FileTable] (FileData)'); adoQuery.SQL.Add('VALUES (:FileData)'); adoQuery.Parameters.ParamByName('FileData').LoadFromFile('FileName.doc',ftBlob); adoQuery.ExecSQL; 從資料庫中讀出來存成檔案: TBlobField(adoQuery.FieldByName('FileData')).SaveToFile('FileName.doc'); |
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
|
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
|
woodss
一般會員 發表:13 回覆:24 積分:17 註冊:2003-07-24 發送簡訊給我 |
|
minjiu
中階會員 發表:27 回覆:119 積分:69 註冊:2002-06-26 發送簡訊給我 |
引言: 我现在另存为的文件 TBlobField(QryMaster.FieldByName('content')).SaveToFile(SaveDialog1.FileName); 都打不开,一是说要检查文档或驱动器的文件权限,二是说要定位文档,但定位以后还是不能打开,请教是怎么回事?if SaveDialog1.Execute then TBlobField(QryMaster.FieldByName('content')).SaveToFile(SaveDialog1.FileName); ------------------------------------------------------------------ // 以對應的應用程式,將文件開啟 uses ShellAPI; .... .... // 暫存文件 TBlobField(QryMaster.FieldByName('DocContent')).SaveToFile('temp.doc'); // 呼叫對應的應用程式,將文件開啟 ShellExecute(Application.handle,pchar('OPEN'),pchar('temp.doc'),nil,nil,0); |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |