新版的e-Book什麼時間會出來 |
|
阿子
站務副站長 ![]() ![]() ![]() ![]() 發表:120 回覆:230 積分:201 註冊:2002-03-18 發送簡訊給我 |
|
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
引言: 老大 新版的e-Book什麼時間會出來,本來想說新版快出來了,所以一些資料都先放著不用成目前E-Book的格式,沒想到還沒出來。 @@" 不知大約什麼時間會出來。 從思考取勝一切~q哈哈!站長最近"妻管嚴"!所以... 想與站長一起開發的人寫個E-Mail給我,我來分配工作好不好! 請寄至: ktleemas@ms28.hinet.net (我要加入E-Book研發團隊,並附上經歷資歷簡介) ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~ |
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
E-Book v2.0研發團隊
召募時間:至2002/06/26(三)之前
召募方法:發E-Mail給站長,主旨請寫:我要加入E-Book研發團隊,並附上經歷資歷簡介
研發目標:協力開發e-Book v2.0 Free版
研發方式:志願無酬開發,並願簽署著作權利分享同意書
研發時間:利用下班時間(私人時間),於07/26(五)之前開發出e-Book v2.0
研發功能:
1.個人日記功能:可以依月份與日期分類,可編.txt/.html/.rtf/.doc等日記檔 2.閱讀書籤功能:保留上次離開時的閱讀畫面,或自訂某本書的書籤,方便日後查閱 3.自動捲動閱讀功能:可依照使用者設定的速度,向下捲動頁面,讓您不用動手就可閱讀整篇文章到底 4.產生獨立電子書執行檔功能:可將電子書檔封包成為一獨立執行檔.EXE,方便散播電子書(此點的技術問題站長已完全克服) 5.畫面調整設定儲存:會將您的個人化設定存檔,如:各區大小配置,工具列排列,內定首頁設定,自動捲動的速度設定,書籤的設定,資料根目錄位置設定... 6.自動產生電子書首頁目錄功能:會自動將您所選的電子書目錄所有的htm檔,設定為一首頁的目錄頁(index.htm) 7.自動產生詞句索引頁:會自動搜尋所有的.html檔內重覆出現的詞句產生一索引頁,方便尋找特定詞句出現的篇文位置 8.上下篇文章移動功能:上方的工具列會出現可上下移動篇文的按鈕,如上一篇文章/下一篇文章/回目錄頁... 9.轉檔功能:可將.TXT文字檔依照某特定HTML模版產生好看的.HTM檔,或將HTML檔轉為.TXT純文字檔... 10.印表前預視功能:可於IE5.5版以後環境,支援印表預視功能 11.Frame網頁的列印功能:針對Frame式的網頁列印解決方案 12.我的背景音樂庫:增加收藏音樂檔的功能,並可於閱讀時選擇撥放,如:MID/MP3/WAV... 13.加密層級管理:可以針對壓縮的電子書檔,進行不同層級的密碼保護功能,尤其是個人日記的安全防護! 14.自動上傳下載電子書:可自動通知新書報到,可上傳發表您的大作! 15.自動更新新版e-Book:可自動通知新版e-Book,並自動下載執行更新! 16.Linux版e-Book:未來若能力所及,可以考慮發行Linux版 17.支援產生與讀取.CHM檔 19.可設定個人e-Mail(呼叫OutLook) 20.不要將subfolder中的檔案都show出來,只將特定命名規則的檔案show出來, 例如index.htm及ch*.htm之類的 21.不同的 .zip 有設不同層級的密碼,這樣就可以限制閱讀層級 22.網路下載電子書的同時,由伺服器依購買者的帳號動態產生一個密碼,再依該密碼對該 e-book 加密後,再由購買者下載,同時將這個密碼用 email 的方式傳到購買者的 email-addr P.S:有些功能是預計,要配合技術成熟才行! 有心人士請與站長連絡,愈時不候! ~~~Delphi K.Top討論區站長~~~ 發表人 - 領航天使 於 2002/06/25 19:32:34
------
~~~Delphi K.Top討論區站長~~~ |
Tomi
一般會員 ![]() ![]() 發表:35 回覆:42 積分:15 註冊:2002-03-13 發送簡訊給我 |
|
kynix
初階會員 ![]() ![]() 發表:37 回覆:100 積分:37 註冊:2002-06-01 發送簡訊給我 |
|
AHK
一般會員 ![]() ![]() 發表:0 回覆:2 積分:0 註冊:2002-03-16 發送簡訊給我 |
|
kynix
初階會員 ![]() ![]() 發表:37 回覆:100 積分:37 註冊:2002-06-01 發送簡訊給我 |
|
unice
一般會員 ![]() ![]() 發表:0 回覆:1 積分:0 註冊:2002-05-27 發送簡訊給我 |
|
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
非常感謝各位新進對加入團隊的熱望,目前參加報名的網友已經超過20名了,站長選出10名左右加入團隊,是為了考量團隊整體進度,一定要在7/26以前寫出另人滿意的e-Book2.0才行,所以站長對許多Delphi設計模式,做一個示範與合作的開始,若這一次實驗能順利成功,我想以後還會有許許多多的合作機會,讓大家的知識與力量結合,一直是本站的目標!
為了照顧Delphi的新進人員,站長也不排除會再舉辦同類型不同主題但是較適合入門者參加的專案,不讓各位有遺珠之憾,好不好!
站長再次感謝各位熱烈的反應! ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~ |
ye_top1
一般會員 ![]() ![]() 發表:22 回覆:22 積分:9 註冊:2002-05-25 發送簡訊給我 |
|
JackTasy
初階會員 ![]() ![]() 發表:22 回覆:97 積分:28 註冊:2002-06-06 發送簡訊給我 |
|
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|
bruce0211
版主 ![]() ![]() ![]() ![]() ![]() 發表:157 回覆:668 積分:279 註冊:2002-06-13 發送簡訊給我 |
站長 針對您提到的一個議題,也是小弟從 DOS 時代以來就很好奇的問題...
....產生獨立電子書執行檔功能:可將電子書檔封包成為一獨立執行檔.EXE,方便散播電子書(此點的技術問題站長已完全克服)... 我們的 AP (*.EXE) 如何再產生另一個 EXE 檔,是否要有高深的編譯器技術 ? 同理可證, 有這種技術就可自己創造程式語言(姑且不論有沒市場)然後用自己設計的編譯器把它編譯成 EXE 檔 ? 可否告知小弟大概的原理或資料收集方向呢 ?
如果真的跟寫一個編譯器沒兩樣 , 那就不用回答小弟了
謝謝
|
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
引言: 站長 針對您提到的一個議題,也是小弟從 DOS 時代以來就很好奇的問題... ....產生獨立電子書執行檔功能:可將電子書檔封包成為一獨立執行檔.EXE,方便散播電子書(此點的技術問題站長已完全克服)... 我們的 AP (*.EXE) 如何再產生另一個 EXE 檔,是否要有高深的編譯器技術 ? 同理可證, 有這種技術就可自己創造程式語言(姑且不論有沒市場)然後用自己設計的編譯器把它編譯成 EXE 檔 ? 可否告知小弟大概的原理或資料收集方向呢 ? 如果真的跟寫一個編譯器沒兩樣 , 那就不用回答小弟了 謝謝沒什麼特殊的技巧啦! 寫兩個程式A與B,A是主程式用來產生獨立電子書的執行檔,B是BODY程式用來被與電子書檔合併成為一個獨立的執行檔,B程式中讀出自身的尾檔部份還原成一電子書檔,並叫出此檔案來閱讀! 程式碼如下: Function MakeExeFile(ExeFileName,HeadExeFile,BodyFile:string):boolean; Function GetBodyFile(OutputDir:string;var FileName:string):boolean; MakeExeFile會將HeadExeFile(可從自身的執行檔尾取出.ZIP檔並閱覽的程式)與BodyFile(.ZIP壓縮檔)合併成為獨立的執行檔(ExeFileName) GetBodyFile用於獨立執行檔內解開壓縮檔於outputDir目錄下檔名為FileNmae,如此就可以用e-Book叫出瀏覽了 以上兩個Function就可以產生獨立的電子書 Function MakeExeFile(ExeFileName,HeadExeFile,BodyFile:string):boolean; var FromF, ToF: file; NumRead, NumWritten: Integer; Buf: array[1..2048] of Char; filerec:record filename:string[80]; filesize:integer; end; ok:boolean; begin ok:=true; AssignFile(ToF, ExeFileName); { Open output file } try Rewrite(ToF, 1); { Record size = 1 } // Save HeadExeFile assignfile(fromf,HeadExeFile); FileMode := 0; {Set file access to read only } reset(fromf,1); repeat BlockRead(FromF, Buf, SizeOf(Buf), NumRead); BlockWrite(ToF, Buf, NumRead, NumWritten); until (NumRead = 0) or (NumWritten <> NumRead); CloseFile(FromF); if NumWritten <> NumRead then ok:=false; // Save Body File assignfile(fromf,BodyFile); FileMode := 0; {Set file access to read only } reset(fromf,1); FileRec.filename:=extractfilename(BodyFile); FileRec.filesize:=0; repeat BlockRead(FromF, Buf, SizeOf(Buf), NumRead); BlockWrite(ToF, Buf, NumRead, NumWritten); FileRec.filesize:=FileRec.filesize NumWritten; until (NumRead = 0) or (NumWritten <> NumRead); CloseFile(FromF); if NumWritten <> NumRead then ok:=false; // Save File Record BlockWrite(ToF,filerec,sizeof(filerec)); except ok:=false; end; CloseFile(ToF); result:=ok; end; Function GetBodyFile(OutputDir:string;var FileName:string):boolean; var FromF, ToF: file; NumRead, NumWritten: Integer; Buf: array[1..2048] of Char; filerec:record filename:string[80]; filesize:integer; end; writetot:integer; ok:boolean; begin ok:=true; // open file assignfile(fromf,application.ExeName); FileMode := 0; {Set file access to read only } reset(fromf,1); // get file record seek(fromf,filesize(fromf)-sizeof(filerec)); BlockRead(FromF,filerec,sizeof(filerec)); FileName:=filerec.filename; // caption:=filerec.filename ' ' inttostr(filerec.filesize); seek(fromf,filesize(fromf)-sizeof(filerec)-filerec.filesize); // write file AssignFile(ToF, OutputDir '\' filerec.filename); try Rewrite(ToF, 1); writetot:=0; repeat BlockRead(FromF, Buf, SizeOf(Buf), NumRead); if writetot NumRead>filerec.filesize then NumRead:=(filerec.filesize-writetot); BlockWrite(ToF, Buf, NumRead, NumWritten); writetot:=writetot NumWritten; until (NumRead = 0) or (NumWritten <> NumRead); CloseFile(ToF); if writetot<>filerec.filesize then ok:=false; except ok:=false; end; CloseFile(FromF); result:=ok; end;不知看得懂嗎? ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~ |
天外來客
初階會員 ![]() ![]() 發表:22 回覆:199 積分:44 註冊:2001-11-27 發送簡訊給我 |
|
ReaderFrank
一般會員 ![]() ![]() 發表:1 回覆:4 積分:1 註冊:2002-04-24 發送簡訊給我 |
|
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|
whpai
一般會員 ![]() ![]() 發表:0 回覆:1 積分:0 註冊:2002-07-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |