中文偽春菜後援會論壇 - Powered by Discuz! Board

標題: [分享] 簡易資料庫SAORI - sqlori [打印本頁]

作者: 時原砂 時間: 2009-7-20 22:08 標題: 簡易資料庫SAORI - sqlori

SQLori v1.1.10
作者：時原砂
授權：這個SAORI純為測試與教學之用，其他人可隨意使用或修改此原始碼

1. 更新

複製內容到剪貼板

代碼:

Date     Version  Log

20090723 1.1.10   ! 刪除GET_TABLE指令，其功能整合至EXEC之中

                  ! 追加OPEN、CLOSE指令，允許讀取指定的資料庫檔案

                  * 修正範例程式碼

                  * 支援UTF-8

20090720 1.0.0    # 初版發佈

2. 說明

簡單的說就是sqlite + csaori = sqlori (炸)

SQLori在功能上極為陽春
不過絕對比debeso.dll這個N年前的SAORI好的多...XD
使用sqlite版本為3.6.16
為求簡便，只返回單一返值而不使用Value[n]格式

3. 指令

(1) OPEN
argument[0]: OPEN
argument[1]: [%(filepath)]

開啟資料庫的連線。若不指定filepath時，預設資料庫檔名為sqlori.db。

(2) EXEC
argument[0]: EXEC
argument[1]: %(SQL_request)

執行資料庫指令的核心函式。

(3) CLOSE
argument[0]: CLOSE

關閉資料庫連線。

3. 應用

由於格式較為複雜，需要在人格端進行一些處理
這裡提供一個AYA版的處理函式及基本的單元測試範例

複製內容到剪貼板

代碼:

// sqlori.dll的位置若有不同的話請另行更改

#define SQLORI_PATH 'saori\sqlori.dll'

#define SQLITE_OK 0

#define SQLITE_ERROR 1



SQLori

{

    SQLori_result = SQLITE_OK;

    SQLori_fields = IARRAY;

    SQLori_values = IARRAY;

    SQLori_col = 0;

    SQLori_row = 0;

    

    _ret =  FUNCTIONEX(SQLORI_PATH, _argv[0], _argv[1]);



    _data = SPLIT(_ret[0], CHR(0x1));

    SQLori_result = TOINT(_data[0]);

    

    if SQLori_result != SQLITE_OK {

        SQLori_fields[0] = 'Error';

        SQLori_values[0] = _data[1];

        SQLori_col = 1;

        SQLori_row = 1;

    }

    else {

        if (ARRAYSIZE(_data) >= 3) {

            SQLori_fields = SPLIT(_data[1], CHR(0x2));

            SQLori_values = SPLIT(_data[2], CHR(0x2));

            SQLori_col = ARRAYSIZE(SQLori_fields);

            if SQLori_col != 0

                SQLori_row = ARRAYSIZE(SQLori_values) / SQLori_col;

        }

    }

}



SQLori.value

{

    _ret = '';

    if SQLori_col < 1 {

        return;

    }

    elseif SQLori_col == 1 {

        _ret = SQLori_values[_argv[0]];

    }

    else {

        _ret = SQLori_values[_argv[0] * SQLori_col + _argv[1]];

    }

    

    _ret;

}



// 單元測試

UnitTest

{

    _res = '';

    SQLori('OPEN', 'sqliori.db');



    SQLori('EXEC', "CREATE TABLE data (ID integer primary key, 姓名, 年齡);");

    _res += SQLori_result + '\n';

    SQLori('EXEC', "INSERT INTO data VALUES(null, '張三', '20');");

    _res += SQLori_result + '\n';

    SQLori('EXEC', "INSERT INTO data VALUES(null, '李四', '18'); INSERT INTO data VALUES(null, '王五', '25'); INSERT INTO data VALUES(null, '許功蓋', '90');");

    _res += SQLori_result + '\n';

    SQLori('EXEC', "UPDATE data SET 年齡 = '23' WHERE 姓名 == '張三';");

    _res += SQLori_result + '\n';

    SQLori('EXEC', "SELECT * FROM data;");

    _res += SQLori_result + '\n';

    for _i = 0; _i < SQLori_col; _i++ {

        _res += SQLori_fields[_i] + ' ';

    }

    _res += '\n';

    for _i = 0; _i < SQLori_row; _i++ {

        for _j = 0; _j < SQLori_col; _j++ {

            _res += SQLori.value(_i, _j) + ' ';

        }

        _res += '\n';

    }

    SQLori('EXEC', "DELETE FROM data WHERE ID < 3;");

    _res += SQLori_result + '\n';

    SQLori('EXEC', "SELECT count(*) FROM data;");

    _res += SQLori_fields[0] + ' = ' + SQLori_values[0] + '\n';

    SQLori('EXEC', "DROP TABLE data;");

    _res += SQLori_result + '\n';



    SQLori('CLOSE');



    _res;

}

注意：
由於1.1.10有整體結構上的大改動
請更新範例程式碼部份

補注：請下載Royさん的版本

[ 本帖最後由時原砂於 2009-8-9 23:35 編輯 ]

附件: sqlori _v1.1.10_src.zip (2009-7-23 14:01, 6.98 KB) / 該附件被下載次數 2034
http://cuc.moe.hm/attachment.php?aid=1818&k=3dccc882f7955157003fbe97f5149008&t=1540138412

作者: KSL 時間: 2009-7-20 22:54

(　ﾟ∀ﾟ)o彡゜專業版！專業版！

作者: ~朔~ 時間: 2009-7-21 00:18

好东西,收回去研究一下

作者: 貓魚 時間: 2009-7-21 14:38

重寫ｷﾀ━━(ﾟ∀ﾟ)━━!!

作者: kurahika 時間: 2009-7-21 15:00

謝謝研發, 打包回家研究去QQ

作者: Roy 時間: 2009-7-21 18:03

Unicode build希望。
db名經SAORI API設定希望。

作者: 時原砂 時間: 2009-7-23 14:11

更新版本至1.1.10
(版本號無意義XD)

順便推薦一個免費的SQLite工具:
SQLiteSpy
http://www.wikitaxi.org/delphi/doku.php/products/sqlitespy/index

作者: Roy 時間: 2009-7-23 17:50

引用:

(1) OPEN
argument[0]: OPEN
argument[1]: [%(filepath)]

開啟資料庫的連線。若不指定filepath時，預設資料庫檔名為sqlori.db。

src中是"sqlori._db"啊?

不理了，我通通改了。
1.1.10+版更動：

複製內容到剪貼板

代碼:

+ 補回SQLite 3.6.16的源碼，SQLite是Public Domain的關係一起包進來也沒關係。

! 修正：不指定filepath時，預設資料庫檔名為sqlori.db

! 修正沒有設定 SAORI return status的問題

! 有關 CSAORI 執行實體自csaori.cpp/caori.h中抽出成csaori_interface.cpp，使 CSAORI 可以獨立更新

! 更新 CSAORI 至 svn rev 88

下載：
源碼+SAORI本體程式：

sqlori v1.1.10+.7z (1.04 MB)
test suite(SAORI本體+yaya+tama程式)：

sqloritest.7z (562.65 KB)

P.S.:對了，要推到 CSAORI svn中嗎? XD

附件: sqlori v1.1.10+.7z (2009-7-23 17:50, 1.04 MB) / 該附件被下載次數 2490
http://cuc.moe.hm/attachment.php?aid=1819&k=bb8807003792a62453664d5b76ce1a31&t=1540138412

附件: sqloritest.7z (2009-7-23 17:54, 562.65 KB) / 該附件被下載次數 2445
http://cuc.moe.hm/attachment.php?aid=1820&k=b4fcddf76e31c74dea96efec270cbf39&t=1540138412

作者: 時原砂 時間: 2009-7-23 19:01

Orz...

要不要推進CSAORI svn這個我倒無所謂
如果Royさん覺得有價值的話就加吧w

至於sqlite源碼是因為太重了所以才刪掉的XD

作者: Roy 時間: 2009-7-23 19:24

引用:

原帖由 時原砂 於 2009-7-23 19:01 發表
Orz...

要不要推進CSAORI svn這個我倒無所謂
如果Royさん覺得有價值的話就加吧w

至於sqlite源碼是因為太重了所以才刪掉的XD

svn rev 92 投入確定。w

P.S.: #1的文成了 readme.txt 的內容，r93英譯完成。

作者: 時原砂 時間: 2009-7-24 12:00

不過Royさん的dll是怎麼壓縮的啊?
我的VS release版都在400K以上

Compiler設置這邊我還是新手...(滾滾)

作者: Roy 時間: 2009-7-24 12:19

引用:

原帖由 時原砂 於 2009-7-24 12:00 發表
不過Royさん的dll是怎麼壓縮的啊?
我的VS release版都在400K以上

Compiler設置這邊我還是新手...(滾滾)

複製內容到剪貼板

代碼:

UPX --best --lzama sqlori.dll

作者: 時原砂 時間: 2009-7-24 13:41

原來是加殼啊...(汗)

話說我要更新Sqlori的話要怎麼做呢?
現階段的Sqlori在OO上還不夠獨立
還有改進的空間...
(一開始寫得太隨便了...)

另外我也搞不懂為啥CSAORI要強制設定locale為Japaness
整個CSAORI專案似乎也沒有與之關聯的地方...

作者: Roy 時間: 2009-7-24 14:13

引用:

原帖由 時原砂 於 2009-7-24 13:41 發表
原來是加殼啊...(汗)

話說我要更新Sqlori的話要怎麼做呢?
現階段的Sqlori在OO上還不夠獨立
還有改進的空間...
(一開始寫得太隨便了...)

另外我也搞不懂為啥CSAORI要強制設定locale為Japaness
整個CSAORI專案似乎也 ...

現時是這樣：

先把csaori checkout到本機
http://code.google.com/p/csaori/source/checkout

在本機改好後把sqlori目錄打包上傳上來吧。
但是Debug/Release目錄中就得把*.obj/*.lib/*.exp/*.pch/*.pdb等刪除，剩下sqlori.dll
然後我再推到svn中。
之後就可以svn update了。

聯絡ぽなさん或ukiyaさん加你帳號後你就可以直接svn commit了。

作者: yinkit 時間: 2009-7-25 13:06

謝~ 好東西收下

作者: 貓魚 時間: 2009-7-25 18:13

重寫敗了……

複製內容到剪貼板

代碼:

OnRead

{

        _res = '';

        SQLori('OPEN', 'sqliori.db');

        _res = SQLori('EXEC', "SELECT 本子名,性質,優先級,死線,官方網站,天窗ID,備注 FROM iCalendar;");

        for _i = 0; _i < SQLori_row; _i++ {

                for _j = 0; _j < SQLori_col; _j++ {

                _res += SQLori.value(_i, _j) + ' ';

                }

        _res += '\n\n';

        }

        _res = SPLIT(_res,' ');

        _txt += "\b[2]\_q\f[bold,true]行事歷 - 列表\f[default]\n\n[150]/

                        \f[bold,true]稿件名：%(_res[0])\f[default] (性質：%(_res[1])) 優先級：%(_res[2])\n/

                        死線：%(_res[3])\n/

                        備注：%(_res[6])\n/

                        \_q";

        SQLori('CLOSE');

        _txt;

}

這樣寫出來只能讀取到第一條信息，第二條就會消失。
這個寫法肯定是錯的，但我不知道正確的該怎麼寫@@
分頁和列表讀取我一直不明白要怎麼做@@;;;
（看了很久瑪琳的代碼依然不明白OTZ）
求教了>_<;;

作者: 時原砂 時間: 2009-7-25 21:42

呃...其實只要記住SQLori.value(_i, _j)就夠了
代表的意思是第_i + 1筆第_j欄的資料

複製內容到剪貼板

代碼:

OnRead

{

        _res = '';

        SQLori('OPEN', 'sqliori.db');

        SQLori('EXEC', "SELECT 本子名,性質,優先級,死線,官方網站,天窗ID,備注 FROM iCalendar;");

        SQLori('CLOSE');

        _txt += "\b[2]\_q\f[bold,true]行事歷 - 列表\f[default]\n\n[150]/

                        \f[bold,true]稿件名：%(SQLori.value(0, 0))\f[default] (性質：%(SQLori.value(0, 1)) 優先級：%(SQLori.value(0, 2))\n/

                        死線：%(SQLori.value(0, 3))\n/

                        備注：%(SQLori.value(0, 6))\n/

                        \_q";



        _txt;

}

接下來只要把0的部份改用變數來實作即可
另外就是連線不必常常開開關關的
反正也只有你一個人在用...XD

[ 本帖最後由時原砂於 2009-7-25 21:46 編輯 ]

作者: 貓魚 時間: 2009-7-25 23:25

呃…照著做了，
但變成了這樣@@

複製內容到剪貼板

代碼:

SSP script 記錄：

\b[2]\_q\f[bold,true]行事歷 - 列表\f[default]\n\n[150]\f[bold,true]稿件名：%(SQLori.value(0, 0))\f[default] 性質：%(SQLori.value(0, 1) 優先級：%(SQLori.value(0, 2))\n死線：%(SQLori.value(0, 3))\n備注：%(SQLori.value(0, 6))\n\_q

直接被顯示出來了|||
哪里寫的不對嗎？|||
另外“把0的部份改用變數來實作”也不太明白，
我知道_i是行數，但如何讓行數自動的列出來？@@
抱歉，這方面完全是外行，看得有點暈暈的OTZ|||

[ 本帖最後由貓魚於 2009-7-26 00:32 編輯 ]

作者: Roy 時間: 2009-7-26 00:24

複製內容到剪貼板

代碼:

OnRead

{

        _res = '';

        SQLori('OPEN', 'sqliori.db');

        SQLori('EXEC', "SELECT 本子名,性質,優先級,死線,官方網站,天窗ID,備注 FROM iCalendar;");

        SQLori('CLOSE');

        _txt += "\b[2]\_q\f[bold,true]行事歷 - 列表\f[default]\n\n[150]"

        for _i = 0; _i < SQLori_row; _i++ {

                                _txt += "\f[bold,true]稿件名："+SQLori.value(_i, 0)+"\f[default] (性質："+SQLori.value(_i, 1)+" 優先級："+SQLori.value(_i, 2)+"\n/

                                死線："+SQLori.value(_i, 3)+"\n/

                                備注："+SQLori.value(_i, 6)+"\n";

        }

        _txt+= '\_q';



        _txt;

}

作者: 貓魚 時間: 2009-7-26 00:39

喔喔！！感謝！成功了！
不過 SQLori('CLOSE'); 應該要放到后頭去XD;;;;
不然無論如何都讀不出資料XDD

[ 本帖最後由貓魚於 2009-7-26 00:50 編輯 ]

作者: 時原砂 時間: 2009-7-26 00:58

嗯嗯...忘記%()的原意也只是變數取代
不能把它當eval用...XD

SQLori裡面的資料一旦再次呼叫後就會被重設
這確實是個盲點...
至於分頁的問題的話
其實也只是把迴圈的起始跟終止範圍再做一層變數而已
這部份倒是可以參考野菜園的語法查詢部份

總之請加油XD

作者: 貓魚 時間: 2009-7-26 04:11

經過不懈的努力，
基本上寫入、讀取、刪除都做好了QWQ

不過有一個疑問，我是按瑪琳的大體結構寫的，
在編輯資料的時候，會遇到按數據庫第N行的方式來讀取，
我現在是以_i來排列，可以正確的讀取到資料；
但是在刪除的時候，以_i為基準來刪的話會遇到行數與資料庫內ID不符的情況。

因此我現在是在編輯時使用_i，
但刪除時使用ID來刪除。

雖然能夠正確使用，但總覺得哪里怪怪的……
是否編輯時也用ID來判斷會比較好呢？
（但那樣要如何寫我不知道@@）

編輯的部分我還沒完全寫完（目前只做到能夠正確讀取即將編輯的資料），
想問問比較妥當的寫法@w@

作者: 時原砂 時間: 2009-7-26 10:08

基本上還是得養成全部用ID來處理的習慣
進行刪修時第一個動作就是取得那筆資料的ID並記下它
這樣才能保證唯一性
要指定時也只要加個 WHERE ID == %(_id) 就ok了
否則等資料的處理量變大之後
出了問題就很難找bug了

作者: 貓魚 時間: 2009-7-26 14:06

唔唔，我是這樣想的，
但在讀取需要編輯的資料時，由于是按照“資料庫的行數”來進行_i的讀取，
而不是按照“資料庫的ID”來讀取的。
（就和普通讀取列表一樣）

我是先以_i來正確讀取到即將編輯的資料，
然后再賦予SQLori.value(_i, 0)一個新的變數，使這個變數符合資料庫的ID，
然后再根據這個ID去進行修改～

不過這樣會被迫用到2個全局變數TwT
刪除則不需要用到全局變數。

不過我現在遇到一個問題：
在編輯時，只有最后一欄的資料會編輯無效。
（我這邊的最后一欄欄位是9）
我查了很久，寫法和其他欄位都沒有任何區別，ID也和資料庫是一致的。
其他欄位也都有正常更新，為何只有欄位9會無效呢？@@
PS：寫入資料時，欄位9是可以正常寫入的。

哈哈哈抱歉，知道原因了，欄位字寫錯，
備註寫成了備注……

PS：STARRING目前是無效的嗎？

[ 本帖最後由貓魚於 2009-7-26 14:29 編輯 ]

作者: 時原砂 時間: 2009-7-26 15:45

我的意思應該跟你的意思是一樣的啊...XD
寫成程式碼就是
_id = SQLori.value(_selected, 0);

另外STARRING是什麼東西?

作者: 貓魚 時間: 2009-7-26 16:48

唔，看來是我理解還不夠XD
STARRING是……我是想修改欄位名稱（備註寫了錯字XD|||），
查SQLite手冊得到：

引用:

update film set starring='Jodie Foster' where starring='Jodee Foster';
就会把主角字段里，被打成'Jodee Foster'的那笔（或多笔）资料，改回成Jodie Foster。

我照著寫，但沒有效果……
難道不是這個命令？@@

作者: Roy 時間: 2009-7-26 19:07

引用:

原帖由貓魚於 2009-7-26 16:48 發表
唔，看來是我理解還不夠XD
STARRING是……我是想修改欄位名稱（備註寫了錯字XD|||），
查SQLite手冊得到：

我照著寫，但沒有效果……
難道不是這個命令？@@ ...

這個是改內容。
要改table結構請用ALTER TABLE。
http://www.sqlite.org/lang_altertable.html

作者: 貓魚 時間: 2009-7-26 21:19

原來是ALTER TABLE @w@ 感謝感謝～

另，
我對照著瑪琳和野菜園參考，還是沒看懂分頁的模式;w;
應該說是一頭霧水吧……
可否更面向初心者的說明一下呢？QWQ

作者: 貓魚 時間: 2009-8-9 13:29

我現在遇到了真正的問題（原來編碼問題只是幌子XD）

即我突然發現sqlori的db在我的小筆記本上無法被正確讀取。
TAMA返回：

引用:

C:\tssp\ghost\TC_musume\ghost\master\system/yaya_shiori3.dic(870) : warning W0013 : 処理に失敗しました. : LOADLIB
C:\tssp\ghost\TC_musume\ghost\master\TCmusume_dic\database.dic(26) : warning W0009 : 引数の型が不正です. : SPLIT
C:\tssp\ghost\TC_musume\ghost\master\system/yaya_shiori3.dic(870) : warning W0013 : 処理に失敗しました. : LOADLIB
C:\tssp\ghost\TC_musume\ghost\master\TCmusume_dic\database.dic(26) : warning W0009 : 引数の型が不正です. : SPLIT

但在臺式機上，TAMA返回：

引用:

// request to library
// name : E:\tssp\ghost\TC_musume\ghost\master\sqlori.dll
EXECUTE SAORI/1.0
Charset: UTF-8
Sender: AYA
SecurityLevel: Local
Argument0: OPEN
Argument1: sqliori.db

// response (Execution time : 0[ms])
SAORI/1.0 7667815 Unknown Error
Charset: UTF-8
Result: 0

// request to library
// name : E:\tssp\ghost\TC_musume\ghost\master\sqlori.dll
EXECUTE SAORI/1.0
Charset: UTF-8
Sender: AYA
SecurityLevel: Local
Argument0: EXEC
Argument1: CREATE TABLE data (ID integer primary key, 姓名, 年齡);

// response (Execution time : 0[ms])
SAORI/1.0 7667815 Unknown Error
Charset: UTF-8
Result: 0

// request to library
// name : E:\tssp\ghost\TC_musume\ghost\master\sqlori.dll
EXECUTE SAORI/1.0
Charset: UTF-8
Sender: AYA
SecurityLevel: Local
Argument0: EXEC
Argument1: INSERT INTO data VALUES(null, '張三', '20');

// response (Execution time : 0[ms])
SAORI/1.0 4522067 Unknown Error
Charset: UTF-8
Result: 0

// request to library
// name : E:\tssp\ghost\TC_musume\ghost\master\sqlori.dll
EXECUTE SAORI/1.0
Charset: UTF-8
Sender: AYA
SecurityLevel: Local
Argument0: EXEC
Argument1: INSERT INTO data VALUES(null, '李四', '18'); INSERT INTO data VALUES(null, '王五', '25'); INSERT INTO data VALUES(null, '許功蓋', '90');

// response (Execution time : 0[ms])
SAORI/1.0 4522067 Unknown Error
Charset: UTF-8
Result: 0

// request to library
// name : E:\tssp\ghost\TC_musume\ghost\master\sqlori.dll
EXECUTE SAORI/1.0
Charset: UTF-8
Sender: AYA
SecurityLevel: Local
Argument0: EXEC
Argument1: UPDATE data SET 年齡 = '23' WHERE 姓名 == '張三';

// response (Execution time : 15[ms])
SAORI/1.0 4259908 Unknown Error
Charset: UTF-8
Result: 0

// request to library
// name : E:\tssp\ghost\TC_musume\ghost\master\sqlori.dll
EXECUTE SAORI/1.0
Charset: UTF-8
Sender: AYA
SecurityLevel: Local
Argument0: EXEC
Argument1: SELECT * FROM data;

// response (Execution time : 0[ms])
SAORI/1.0 4259908 Unknown Error
Charset: UTF-8
Result: 0ID姓名年齡1張三232李四183王五254許功蓋90

// request to library
// name : E:\tssp\ghost\TC_musume\ghost\master\sqlori.dll
EXECUTE SAORI/1.0
Charset: UTF-8
Sender: AYA
SecurityLevel: Local
Argument0: EXEC
Argument1: DELETE FROM data WHERE ID < 3;

// response (Execution time : 16[ms])
SAORI/1.0 7667815 Unknown Error
Charset: UTF-8
Result: 0

// request to library
// name : E:\tssp\ghost\TC_musume\ghost\master\sqlori.dll
EXECUTE SAORI/1.0
Charset: UTF-8
Sender: AYA
SecurityLevel: Local
Argument0: EXEC
Argument1: SELECT count(*) FROM data;

// response (Execution time : 0[ms])
SAORI/1.0 7667815 Unknown Error
Charset: UTF-8
Result: 0count(*)2

// request to library
// name : E:\tssp\ghost\TC_musume\ghost\master\sqlori.dll
EXECUTE SAORI/1.0
Charset: UTF-8
Sender: AYA
SecurityLevel: Local
Argument0: EXEC
Argument1: DROP TABLE data;

// response (Execution time : 15[ms])
SAORI/1.0 7667815 Unknown Error
Charset: UTF-8
Result: 0

// request to library
// name : E:\tssp\ghost\TC_musume\ghost\master\sqlori.dll
EXECUTE SAORI/1.0
Charset: UTF-8
Sender: AYA
SecurityLevel: Local
Argument0: CLOSE
Argument1:

// response (Execution time : 0[ms])
SAORI/1.0 7667815 Unknown Error
Charset: UTF-8
Result: 0

// response (Execution time : 297[ms])
SHIORI/3.0 200 OK
Sender: AYA
Charset: UTF-8
Value: 0\n0\n0\n0\n0\n\n0\n = \n0\n

可以看到最終人格只說出了“0\n0\n0\n0\n0\n\n0\n = \n0\n”，且有一個錯誤：“SAORI/1.0 7667815 Unknown Error”
這個錯誤在臺式機上是更新了YAYA535-2，確切的說是535-2同捆的yaya_shiori3.dic、yaya_compatible.dic等文件才出現的；
而在筆記本上則一開始就報了LOADLIB和SPLIT錯誤。
不知要如何修改shiori3來解決？（這塊我真的是一竅不通啦囧；；；）

PS：兩臺機子上的都是TSSP (SSP/2.01.76 (20090425-2; Windows NT 5.1))
再PS：SPLIT錯誤那行的代碼是 _data = SPLIT(_ret[0], CHR(0x1));

[ 本帖最後由貓魚於 2009-8-9 13:41 編輯 ]

作者: Roy 時間: 2009-8-9 22:32

引用:

原帖由貓魚於 2009-8-9 13:29 發表
我現在遇到了真正的問題（原來編碼問題只是幌子XD）

即我突然發現sqlori的db在我的小筆記本上無法被正確讀取。
TAMA返回：

但在臺式機上，TAMA返回：

可以看到最終人格只說出了“0\n0\n0\n0\n0\n\n0\n = \n0\n”，且有一個錯 ...

舊版。

最新版在Google Code發布中。
http://code.google.com/p/csaori/ ... qlori_1.1.10%2B.zip

作者: 時原砂 時間: 2009-8-10 00:04

最近電腦爆掉加上回老家搞得忙不過來
暫時可能不會更新了...(汗)

另外關於分頁及SQLori腳本部份
我寫了很久都覺得很不順心
龜毛的毛病一發作
又開始好高騖遠(Lua、Javascript V8)起來
結果目前仍一事無成...orz

作者: 貓魚 時間: 2009-8-10 01:00

裝了新版依然測試不通過@w@；；

這次則是直接在臺式機上返回：

引用:

// request
GET SHIORI/3.0
Charset: UTF-8
Sender: SSP
SecurityLevel: local
ID: OniCalendar
Reference0:
Reference1: Open

E:\tssp\ghost\TC_musume\ghost\master\system/yaya_shiori3.dic(870) : warning W0013 : 処理に失敗しました. : LOADLIB
E:\tssp\ghost\TC_musume\ghost\master\TCmusume_dic\database.dic(26) : warning W0009 : 引数の型が不正です. : SPLIT
E:\tssp\ghost\TC_musume\ghost\master\system/yaya_shiori3.dic(870) : warning W0013 : 処理に失敗しました. : LOADLIB
E:\tssp\ghost\TC_musume\ghost\master\TCmusume_dic\database.dic(26) : warning W0009 : 引数の型が不正です. : SPLIT
// response (Execution time : 31[ms])
SHIORI/3.0 200 OK
Sender: AYA
Charset: UTF-8
Value: \_q\p[2]\s[-1]\b[2]\f[bold,true]■行事歷 - 列表■\f[default]\n\n[half]\!
\q[新增資料,OniCalendar,New,Insert]\n[150]\_b[img/back.png,inline]\q[返回,OnOpenMenu,天窗娘的公文包,0,1] \_b[img/close.png,inline]\q[結束,OnCloseMenu]\_q\e

筆記本上還未測試，估計是一樣的錯誤@@

我我我覺得SQLori腳本不必想太多，
不管東西好不好，生出來再說……XD（毆）

作者: Roy 時間: 2009-8-10 10:48

引用:

原帖由貓魚於 2009-8-10 01:00 發表
裝了新版依然測試不通過@w@；；

這次則是直接在臺式機上返回：

筆記本上還未測試，估計是一樣的錯誤@@

我我我覺得SQLori腳本不必想太多，
不管東西好不好，生出來再說……XD（毆） ...

忘了改位置?

#define SQLORI_PATH 'saori\sqlori.dll'

作者: 貓魚 時間: 2009-8-10 11:14

呃，雖然我的確是忘了改位置，但修正之後還是無法顯示出來。
TAMA顯示所有寫入行為都正常（利用SQLiteSpy也檢查過了，的確有正確寫入~），但人格的確說不出來：

引用:

……太長了省略……
// request to library
// name : E:\tssp\ghost\TC_musume\ghost\master\saori\sqlori.dll
EXECUTE SAORI/1.0
Charset: UTF-8
Sender: AYA
SecurityLevel: Local
Argument0: EXEC
Argument1: INSERT INTO data VALUES(null, '李四', '18'); INSERT INTO data VALUES(null, '王五', '25'); INSERT INTO data VALUES(null, '許功蓋', '90');

// response (Execution time : 188[ms])
SAORI/1.0 200 OK
Charset: UTF-8
Result: 0
……太長了省略……

而人格只會返回：

引用:

// response (Execution time : 1015[ms])
SHIORI/3.0 200 OK
Sender: AYA
Charset: UTF-8
Value: 0\n0\n0\n0\n0\n\n0\n = \n0\n

看來是輸出的時候有不正確的地方，但究竟是哪裡錯了呢？@w@；；

[ 本帖最後由貓魚於 2009-8-10 11:29 編輯 ]

作者: Roy 時間: 2009-8-10 12:05

引用:

原帖由貓魚於 2009-8-10 11:14 發表
呃，雖然我的確是忘了改位置，但修正之後還是無法顯示出來。
TAMA顯示所有寫入行為都正常（利用SQLiteSpy也檢查過了，的確有正確寫入~），但人格的確說不出來：

而人格只會返回：

看來是輸出的時候有不正確的地方，但究竟是哪裡錯 ...

select沒返回的話就有問題了。

複製內容到剪貼板

代碼:

// request to library

// name : C:\Documents and Settings\Roy\Desktop\sqloritest\sqlori.dll

EXECUTE SAORI/1.0

Charset: UTF-8

Sender: AYA

SecurityLevel: Local

Argument0: EXEC

Argument1: SELECT * FROM data;





// response (Execution time : 0[ms])

SAORI/1.0 200 OK

Charset: UTF-8

Result: 0ID姓名年齡1張三232李四183王五254許功蓋90

作者: 貓魚 時間: 2009-8-10 15:16

複製內容到剪貼板

代碼:

// request to library

// name : E:\tssp\ghost\TC_musume\ghost\master\saori\sqlori.dll

EXECUTE SAORI/1.0

Charset: UTF-8

Sender: AYA

SecurityLevel: Local

Argument0: EXEC

Argument1: SELECT * FROM data;





// response (Execution time : 0[ms])

SAORI/1.0 200 OK

Charset: UTF-8

Result: 0ID姓名年齡1張三232李四183王五254許功蓋90



……省略



// request to library

// name : E:\tssp\ghost\TC_musume\ghost\master\saori\sqlori.dll

EXECUTE SAORI/1.0

Charset: UTF-8

Sender: AYA

SecurityLevel: Local

Argument0: EXEC

Argument1: SELECT count(*) FROM data;





// response (Execution time : 0[ms])

SAORI/1.0 200 OK

Charset: UTF-8

Result: 0count(*)2



……省略



// request to library

// name : E:\tssp\ghost\TC_musume\ghost\master\saori\sqlori.dll

EXECUTE SAORI/1.0

Charset: UTF-8

Sender: AYA

SecurityLevel: Local

Argument0: CLOSE

Argument1: 





// response (Execution time : 0[ms])

SAORI/1.0 200 OK

Charset: UTF-8

Result: 0





// response (Execution time : 797[ms])

SHIORI/3.0 200 OK

Sender: AYA

Charset: UTF-8

Value: 0\n0\n0\n0\n0\n\n0\n = \n0\n





// request

GET SHIORI/3.0

ID: OnTranslate

Charset: UTF-8

Sender: SSP

SecurityLevel: local

Reference0: 0\n0\n0\n0\n0\n\n0\n = \n0\n





// response (Execution time : 0[ms])

SHIORI/3.0 200 OK

Sender: AYA

Charset: UTF-8

Value: 0\n0\n0\n0\n0\n\n0\n = \n0\n

有正確返回沒錯啊。
但人格就是讀不到@@

[ 本帖最後由貓魚於 2009-8-10 15:18 編輯 ]

作者: Roy 時間: 2009-8-10 16:14

SQLori換這個看看吧，CHR(1)被轉成","了。

複製內容到剪貼板

代碼:

SQLori

{

    SQLori_result = SQLITE_OK;

    SQLori_fields = IARRAY;

    SQLori_values = IARRAY;

    SQLori_col = 0;

    SQLori_row = 0;



    _ret =  FUNCTIONEX(SQLORI_PATH, _argv[0], _argv[1]);



    _data = SPLIT(_ret, ',');

    SQLori_result = TOINT(_data[0]);

   

    if SQLori_result != SQLITE_OK {

        SQLori_fields[0] = 'Error';

        SQLori_values[0] = _data[1];

        SQLori_col = 1;

        SQLori_row = 1;

    }

    else {

        if (ARRAYSIZE(_data) >= 3) {

            SQLori_fields = SPLIT(_data[1], CHR(0x2));

            SQLori_values = SPLIT(_data[2], CHR(0x2));

            SQLori_col = ARRAYSIZE(SQLori_fields);

            if SQLori_col != 0

                SQLori_row = ARRAYSIZE(SQLori_values) / SQLori_col;

        }

    }

}

作者: 貓魚 時間: 2009-8-10 16:23

出來了啊啊啊啊啊啊～～～～～
感謝！！

作者: Roy 時間: 2009-8-10 16:38

引用:

原帖由貓魚於 2009-8-10 16:23 發表
出來了啊啊啊啊啊啊～～～～～
感謝！！

下一版sqlori的回傳格式會改為「回傳嗎(0x2)[欄位名稱[(0x3)欄位名稱...]](0x2)[數值[(0x3)數值...]]」以避免 (0x1) 轉碼問題，所以以上方法不久後就失效了。

作者: Roy 時間: 2009-8-10 16:46

乾脆發布新版好了。
http://code.google.com/p/csaori/ ... e=sqlori_1.2.13.zip

作者: 貓魚 時間: 2009-8-10 17:57

真快，立刻更新新版XD

----
已更新，沒任何問題。YEAH~
辛苦啦~❤

[ 本帖最後由貓魚於 2009-8-10 18:09 編輯 ]

作者: Roy 時間: 2009-8-16 20:59

port了一份用SQLite 2.8.17的sqlori-sqlite2.dll作為debeso.dll的drop-in replacement XD
但是 -r 還是沒有啦 XD

EDIT:有下載了 XD
http://code.google.com/p/csaori/ ... -sqlite2_1.2.13.zip

作者: 蔡孟哲 時間: 2009-9-21 20:08

我也要來研究看看=ˇ=

歡迎光臨中文偽春菜後援會論壇 (http://cuc.moe.hm/)