其他

.pmw 檔案的格式說明 輸入、輸出連接埠號碼按8進位。程式開始地址:15CH 如：X0-X7   -> 0-7(H)    X40-X47 -> 20-27(H)   X80-X87   -> 40-47(H)      X10-X17 -> 8-F(H)    X50-X57 -> 28-2F(H)   X90-X97   -> 48-4F(H)      X20-X27 -> 10-17(H)  X60-X67 -> 30-37(H)  

CodeCode highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->procedure CreateEnvironment(const ALIBPath, AINCPath: string);resourcestring  REG_C51_LIB = 'C51LIB';  REG_C51_INC = 'C51INC';  REG_PATH = 'PATH';  

 procedure Import(SourceDS, DestDS: Tadoquery);var  sFileName, sTableName: string;  sl: TStringList;  i: integer;  conn: TADOConnection;  dialog: TOpenDialog;begin  dialog := TOpenDialog.Create(Application);  if not dialog.Execute then Exit;  try   

今天有個同事問我個問題，他在用C#“Microsoft.Jet.OLEDB.4.0”讀取EXCEL檔案的時候，發現了一個問題，是這樣的，他讀出來的EXCEL資料在DATAGRID中顯示的時候，只有文本的資料能夠讀出來，比如某一個儲存格裡面的資料是純數位話，那麼在DATAGRID裡面顯示的空的，什麼都沒有，他讓我看看，我找了好半天的原因沒有找到，後來實在沒有辦法，就換個方法讀，用COM組件，引用了EXCEL組件之後，Excel.Applicatioin ea=new

 對於使用DLL包方式組織的項目，很多人都知道如果BUILD WITH RUNTIME PACKAGE不勾選上，會有很多的問題。所以一般會將所有的EXE和DLL項目的BUILD WITH RUNTIME PACKAGE勾選上。每當這時候，你以為萬事大吉了。興奮地編譯項目，滿懷期待地運行，往往一運行卻報錯：a class named Txxx exists。。。。。。，遇到這個問題的時候，很多人傻眼了，根本不知道該如何解決。 首先分析一下出現這個錯誤的原因：BUILD WITH RUNTIME

  function Decrypt(Src: string; Key: string): string;var  KeyLen, KeyPos, Offset, SrcPos, SrcAsc, TmpSrcAsc: Integer;  Dest: string;begin  KeyLen := Length(Key);  if KeyLen = 0 then    Key := cPasswordKey;  KeyPos := 0;  Offset := StrToInt('$' +

1: public enum TFileType 2: { 3: /// <summary> 4: /// JPEG圖片 5: /// </summary> 6: JPEG, 7: /// <summary> 8: /// JPG圖片 9: /// </summary> 10: JPG, 11: ///

{之前說到中介層通過向用戶端暴露方法的方式提供服務，實現資料庫資料的讀取和更新。方法調用的方式，其潛在的意義，就是說中介層不儲存用戶端狀態資訊，就像WEB服務一樣，用戶端需要自己儲存自己的狀態資訊。進一步說，就是中介層具體提供方法的業務對象執行個體，不是也不應該專屬於某個用戶端，它應該能夠為不同的用戶端調用提供服務。如果我們把業務對象執行個體放到對象池中集中存放，調用方法時隨用隨取，方法結束即放回池中。這樣就可以實現業務對象執行個體服務於不同的用戶端調用請求。更重要的是，利用對象池，能夠最大化伺

 在DBGrid 中嵌入一個 DBComboBox1procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);beginif (Field.FieldName = DBComboBox1.DataField ) thenbeginDBComboBox1.Left := Rect.Left+

//在後面介紹 TPerlRegEx 類的方法時, 關於對 (子運算式) 的引用還有更多話題.Delphi Regex文法(9): 臨界匹配 - 也叫"預搜尋"與"反向預搜尋" //匹配右邊varreg: TPerlRegEx;beginreg := TPerlRegEx.Create(nil);reg.Subject := 'Delphi 6; Delphi 7; Delphi 2007; Delphi Net';reg.RegEx   := 'Delphi (?=2007)'; //

HTML代碼：

最近做項目時出現個問題。在一個基類中，建立一個Handler對象用於主線程向子線程發送資料，代碼如下1 this.mThirdHandler = new Handler(){2 @Override3 public void handleMessage(android.os.Message msg) {4 super.handleMessage(msg);5

uses ZLibEx procedure VariantToStream(const V: OLEVariant; Stream: TStream);var  P : Pointer;begin  Stream.Position := 0;  Stream.Size := VarArrayHighBound (V, 1) - VarArrayLowBound (V, 1) + 1;  P := VarArrayLock (V);  Stream.Write (P^, Stream.Size);

HTML代碼：<div class="float" id="float">    我是個靦腆羞澀的浮動層...</div> JS代碼：var $smartFloat = function(elements) {    var position = function(element) {        var top = element.getPosition().y, pos = element.getStyle("position");        window.ad

Win7 和 IIS7 預設不支援WCF， 要使其支援WCF，需要執行如下操作：1. 以管理員（Administrator）方式運行C:\Windows\System32\cmd.exe 2. 執行命令：　　"%windir%\Microsoft.NET\Framework\v3.0\Windows Communication Foundation\ServiceModelReg.exe" -r -y   （其中windir需要替換為你的windows安裝目錄） 【參考文獻】1. Host a

 為了達到1:10000的串連，可以採用Server-Client的串連方式，而為了達到1:10000*100的串連，我們怎麼辦呢？一般會採用Client-> ConnServer -> LogicServer。這是技術背景。ConnServer在接受完Client 的串連後，將Logic Server 暴露給Client,並立刻中斷連線。以後的資料互動就和Conn

應用情境：使用BROKER伺服器來實現應用伺服器叢集的Server Load

 方法一：WebBrowser1.Silent := True;WebBrowser1.Navigate(URL);repeat  Application.ProcessMessages;until WebBrowser1.ReadyState = READYSTATE_COMPLETE;WebBrowser1.Navigate(        'javascript:document.getElementById("detailFormid").submit();');repeat 

今天做項目時遇到很鬱悶的事情，樣本如下：var a = json; /*一個JSON對象*/當我對a操作後，json一起改變。這可不是我想要的。 然後自己寫了一個複製JSON對象的方法。  1 cloneJSON: function(para){ 2             var rePara = null; 3             var type = Object.prototype.toString.call(para); 4             if(type.indexOf(

1.表單半透明： Alphablend屬性為true;Alphablendvalue的值為100 2.表單透明：formCreate:Self.TransparentColor := True;Self.TransparentColorValue := clBlack;self.color := clblack; 3.隱藏案頭表徵圖var  h: HWND;begin  h := FindWindow('Progman', nil);  {Progman