求救!!(Oracle +TQuery+ODBC) blob 大於976KB就被截掉 |
尚未結案
|
rookie
一般會員 發表:26 回覆:38 積分:12 註冊:2003-04-23 發送簡訊給我 |
請問SAVE_TO_FILE否有1MB的限至呢?
檔案存取都沒有ERROR
我有檢查在ORACLE 存入檔案 FILE SIZE >1MB 是正確的
但是取出只有976KB其他就被截掉
-------------SAVE----FILE----------------------------------------
Query2.Close;
Query2.SQL.Clear;
Query2.Params.Clear;
TRY
DATABASE1.StartTransaction;
Query2.SQL.Add('INSERT INTO DBA.LOG_TABLE (ORDER_ID,LOG_NAME,LOG_FILE) ');
Query2.SQL.Add('VALUES (:ORDER_ID, :LOG_NAME,:LOG_FILE)');
Query2.ParamBYNAME('ORDER_ID').AsString:=Edit1.text;
Query2.ParamBYNAME('LOG_NAME').AsString:=Edit2.text;
ST:=TFileStream.Create(OPENDIALOG1.FileName,fmOpenRead);
Query2.ParamBYNAME('LOG_FILE').LoadFromStream(ST,ftOraBlob); Query2.ExecSQL;
DATABASE1.COMMIT;
SHOWMESSAGE('Data Saved');
----------LOAD-----------FILE-----------------------------------
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('SELECT * FROM DBA.LOG_TABLE');
Query2.SQL.Add('WHERE ORDER_ID='''+EDIT1.Text+'''');
Query2.SQL.Add('AND LOG_NAME='''+EDIT2.Text+'''');
Query2.Open;
TBlobField(Query2.FieldByName('LOG_FILE')).SaveToFile(edit6.Text);
showmessage('"'+edit5.text+'" SAVED');
-----------------------------------------------------------------
拜託指導一下, 謝謝!! 發表人 -
|
RageCaster
一般會員 發表:1 回覆:21 積分:4 註冊:2003-06-02 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
rookie
一般會員 發表:26 回覆:38 積分:12 註冊:2003-04-23 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |