如何顯示資料庫ole欄位的內容,請先進不吝指教 |
尚未結案
|
jackych623
一般會員 發表:2 回覆:1 積分:0 註冊:2008-12-04 發送簡訊給我 |
[code delphi] 請在此區域輸入程式碼 [/code] 這一段程式是載入ole檔案到資料表欄位 procedure TForm15.Button1Click(Sender: TObject); var sFileName:string; function BlobContentToString(const FileName:string):string; begin with TFileStream.Create(FileName,fmOpenRead) do try SetLength(Result,Size); read(Pointer(Result)^,Size); finally free end; end; begin if (OpenDialog1.Execute) then begin sFileName:=OpenDialog1.FileName; ADODataSet1.Edit; ADODataSet1.FieldByName('BOLOBS').AsString:=BlobContentToString(sFileName); ADODataSet1.Post; end; end; 這一段式顯示資料表ole欄位 procedure TForm15.Button2Click(Sender: TObject); var sFileName:string; BS:TADOBlobstream; begin BS:=TADOBlobstream.Create(TBlobField(ADODataSet1.FieldByName('BOLOBS')),bmRead); **程式編譯ok但執行顯示ole時程式中斷於此** try sFileName:=ExtractFilePath(Application.ExeName) 'tmpBlob'; sFileName:=sFileName '.' ADODataSet1.FieldByName('Extection').AsString; BS.SaveToFile(sFileName); OleContainer1.CreateObjectFromFile(sFileName,False); finally BS.Free; end; end;
------
璇 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |