其他

 procedure TEditProduct.BitBtn2Click(Sender: TObject);var  I : integer;  T,NewMake : string;  MS:TMemoryStream;  MS2:TMemoryStream;    bmp : Tbitmap;  jpeg : Tjpegimage;begin    if not ImageEnView1.IsEmpty then    begin      MS:=TMemoryStream.Create;

<?if(!function_exists(pageft)){ function pageft($totle,$displaypg=20,$url=''){global $page,$firstcount,$pagenav,$_SERVER;$GLOBALS["displaypg"]=$displaypg;if(!$page) $page=1;if(!$url){ $url=$_SERVER["REQUEST_URI"];}$parse_url=parse_url($url);$url_q

 Use

 自從畢業後就從事了 軟體開發行業 轉眼幾年過去了 因為喜歡 所有能走到今天 一路走來 有很多感觸 做軟體難  寫優秀的軟體更難  困難在哪呢？ 技術+團隊+需求  畢竟不應該是一個人戰鬥了 可我還是有激情 當我的作品發布的時候 成就感 油然而生 畢竟我的軟體解決了實際問題 滿足了客戶的需要 運行穩定... 幾年來 我也做了不少軟體  大到產品 小到工具exe   今天決定要寫點什麼來記錄我的開發過程 與大家分享開發的快樂 我也要整理幾個小軟體 如 圖書編目Marc編輯器(圖書館行業軟體) 

在國內大部分的圖書管理軟體都支援Marc交換資料，圖書館和書商與Marc的資料加工最為密切而客戶能免費的marc資源越來越少，不少圖書館選擇外包書商加工，書商選擇每年花大筆銀子購買Marc資料。webmarc為您提供了全新的marc資料來源，您可以在國家圖書館，以及幾百所國內重點大學的匯文OPAC免費擷取Marc了，該示範版支援掃描槍掃描圖書isbn條碼及10/13位isbn。軟體特點：速度快，命中率高，格式標準可有效提高編目資料品質，降低編目人員勞動強度。一次性註冊永久免費，性價比高。客服QQ

為了更好的服務新老客戶決定升級WebMarc。在開發過程中遇到了諸多技術問題現在回過頭來總結一下。注:我的開發環境是Winxp+sp3 開發工具是 Delphi 7.0新版本中增加了一站式檢索也就是一個isbn會在多個網站搜尋假如國圖未命中就自動轉入CSLN再沒有就去搜尋依此類推目的就是提高命中率最大限度減少客戶的勞動量。可是當初開發時由於時間緊沒有好好規劃介面上已經拖拽了N個WebBrowser控制項要把多個網站銜接起來十分困難就是普通的維護和升級也變的極為瑣碎，痛下決心放棄了舊版本從新開發。

從網上搜尋很多類似的函數 大都是一個函數  SbctoDbc  測試時確發現很多有問題 比如全形符號 句號 方括弧等。 其實知道了 全形編碼範圍 可以自己著手寫一個  測試通過    代碼如下：function TFrm_Main.ToDBC(input: string): WideString;var  c: WideString;  i: Integer;begin  c := input;  for i := 1 to Length(Input) do  begin    if (Ord(

    在好多的傳統型應用程式中，會使用到菜單和工具列按鈕，不同的使用者登入到應用系統中會依據其許可權顯示相應的菜單與工具列按鈕，在顯示出來的菜單與按鈕中又會根據程式的狀態來設定其有效性。舉個簡單的例子，通常儲存按鈕是在編輯內容發生變化後才可以使用，資料集的儲存需要在編輯狀態下才可以使用。     剛開始編寫程式時，代碼中到處都是這些狀態控制碼，如在資料集的“編輯”按鈕、菜單的單擊事件中啟用“儲存”和“取消”按鈕、菜單，同時要禁止“編輯”按鈕、菜單，以防止使用者在編輯狀態下再次點擊編輯按鈕、菜單

unit MyRec;interface  uses  windows,messages,classes,forms,sysutils;type  TPersonRec=packed record    id:string[11];    path:string[6];    pic:string[35];    tdate:string[10];  end;  TMyrec=class(Tfilestream)  private    function GetNumRecs:longint; 

Delphi提供了豐富的VCL組件供編程人員使用，同時還允許編程人員根據實際需要進行自訂群組件的編寫。組件的代碼編寫和我們平常寫的類很相似，但也有幾點不同，一個是需要從TComponent類繼承而來，另一個是要使用Published關鍵字定義我們想要出現在對象觀察器中的屬性是事件，再一個就是我們要把這些代碼添加到一個設計包中，之後通過對這個包進行編譯和安裝來發布我們編寫的組件。組件中事件的定義和屬性定義一樣，使用Property關鍵字，事件的類型可以使用Delphi標準的事件類型如TNofify

unit serverUnit;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls, jpeg, IdBaseComponent, IdComponent,  IdTCPServer, ComCtrls, DB, DBAccess, MyAccess,MyRec;type  TDataState = (dstNo

原理 ：在windows中，中文和全形字元都佔兩個位元組，並且使用了ascii　chart 2 (codes 128 - 255 )。全形字元的第一個位元組總是被置為163，而第二個位元組則是相同半形字元碼加上128（不包括空格）。如半形a為65，則全形a則是163（第一個位元組）、 193 （第二個位元組， 128 + 65 ）。而對於中文來講，它的第一個位元組被置為大於163，（如 ' 阿 ' 為: 176   162 ）,我們可以在檢測到中文時不進行轉換。 function

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, DB, DBAccess, MyAccess, StdCtrls, ComCtrls, ExtCtrls, MemDS,  MyRec, OBRARCompress, IdBaseComponent, IdComponent, IdTCPConnection,  IdTCPCl

大家都知道 TComboBox  AddObject 是個好東西。最近由於資料庫結構設計設計上的原因(有很多諸如字典表) 如 國家代碼錶 語種表 而需要TComboBox  儲存兩列資料 一個 代碼 一個值  如  中國  chi   而這些值是資料庫讀取填入的 AddObject 的詬病也顯露無疑 經過一天努力寫了一個類   unit Mccb;interfaceuses adodb, StdCtrls;type Tarr = array of string;type TMycbb =

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Label1: TLabel;Label2: TLabel;Label3: TLabel;procedure Button1Click(Sender: TObject);private

 procedure TForm1.FormCreate(Sender: TObject);begin  with Session1 do  begin    ConfigMode := cmSession;    try    AddStandardAlias('bendix', ExtractFilePath(ParamStr(0))+'db', 'PARADOX');    finally    ConfigMode := cmAll;    end;  end;  Query1.Data

使用TActionList 控制項將要控制的控制項的ACTION指向ACTIONLIST1設定好每個的TAGModuleData.MyPower為資料模組中的變數procedure TForm1.FormShow(Sender: TObject);var  I:Integer;  Hstr:string;  SStr:string;begin  for I:= 0 to ActionList1.ActionCount - 1 do  begin    TAction(ActionList1.Ac

 winexec(PChar(command),SW_MAXIMIZE)ShellExecute(self.Handle, PChar('open'), PChar('mysql.exe'), PChar(p), 'C:/Program Files/MySQL/MySQL Server 5.0/bin',

 procedure TForm3.FormCreate(Sender: TObject);var  RegI: String;  F: TextFile;  Cipher: TDCP_blockcipher;  S: string;begin  AssignFile(F, GetSysDir+'test.txt');  Reset(F);  Readln(F,S);  CloseFile(F);  Cipher:= TDCP_blockcipher(DCP_cast2561);  Cipher

Imageen方法ImageenView1.Bitmap.Canvas.StretchDraw(Rect(0, 0, 200, 156),ImageenView1.Bitmap);//==========================JPEGprocedure r;varj: TJpegImage;b: TBitmap;begintryj := TJpegImage.create;b := TBitmap.create;b.Width := 1024;b.Height :=