ClientdataSet二进制文件存储问题 |
答題得分者是:mustapha.wang
|
wujun0901
一般會員 發表:8 回覆:7 積分:3 註冊:2007-02-10 發送簡訊給我 |
问题描述我已做成avi文件,请用影音风暴播放
具体代码如下 if DlgOpen.Execute then begin if UpdateCDS.State in [dsBrowse] then if UpdateCDS.FieldByName('序号').AsString = '' then UpdateCDS.Append else UpdateCDS.Edit; if UpdateCDS.State in [dsinsert, dsedit] then begin UpdateCDS.FieldByName('更新文件名').Asstring := trim(ExtractFileName(DlgOpen.FileName)); UpdateCDS.FieldByName('文件日期').AsDateTime := filedatetodatetime(FileAge(DlgOpen.FileName)); ClientDatasetBlobtodb(UpdateCDS, DlgOpen.FileName, '文件内容'); UpdateCDS.FieldByName('文件大小').AsString:= inttoStr(GetFileSize(DlgOpen.FileName)); UpdateCDS.Post; UpdateCDS.SaveToFile('c:\save-new.xml',dfXMLUTF8); Memo1.Lines.LoadFromFile('c:\save-new.xml') ; Tempcds.Data:=Null; Tempcds.Data := UpdateCDS.Delta; Tempcds.MergeChangeLog ; Tempcds.SaveToFile('c:\start-New1.xml',dfXMLUTF8); Memo2.Lines.LoadFromFile('c:\start-new1.xml') ; end; end; 发现在 Tempcds.Data := UpdateCDS.Delta;这句后, save-new.xml和start-new1.xml两个文件中的二进制文件内容居然发生了改变. 先谢谢各位版主了. |
mustapha.wang
資深會員 發表:89 回覆:409 積分:274 註冊:2002-03-13 發送簡訊給我 |
|
wujun0901
一般會員 發表:8 回覆:7 積分:3 註冊:2007-02-10 發送簡訊給我 |
|
mustapha.wang
資深會員 發表:89 回覆:409 積分:274 註冊:2002-03-13 發送簡訊給我 |
|
mustapha.wang
資深會員 發表:89 回覆:409 積分:274 註冊:2002-03-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |