delphi中间件

摘要： The data types allowed to be transfered in DataSnap 2009 is limited to the dbExpress data types, but in DataSnap 2010 part of Delphi 2010 you are allowed to transfer any kind of object.Let’s define the object we would like to transfer, class TCustomerunit Customer;interfaceuses DBXJSON, DBXJSONRefle 阅读全文

摘要： typeTMember = recordName : string[50];eMail : string[30];Posts : LongInt;end;var Members : array[1..50] of TMember;var F : file of TMember;write datavarF : file of TMember;i : integer;beginAssignFile(F,'members.dat') ;Rewrite(F) ;tryfor j:= 1 to 50 doWrite (F, Members[j]) ;finallyCloseFile(F 阅读全文

摘要： function UnicodeEncode(Str:string;CodePage:integer):WideString;var Len:integer;begin Len:=Length(Str)+1; SetLength(Result,Len); Len:=MultiByteToWideChar(CodePage,0,PChar(Str),-1,PWideChar(Result),Len); SetLength(Result,Len-1); //end is #0end;function UnicodeDecode(Str:WideString;CodePage:integer):st 阅读全文

摘要： 1.创建一个全局的HASH表initialization g_hash := THashedStringList.Create;finalization FreeAndNil(g_hash);2.往全局HASH表里面写入 INI文件的指定小节(字符串定义集中放在一个小节里面)读取到的所有行，每次更选择语言以后都要执行此操作。ini.ReadSectionValues('messages', g_hash);3.所有需要使用字符串变量从这个全局HASH表中检索function GetHashStr(const key: string): string;begin Result : 阅读全文

摘要： 一、有必要了解 INI 文件的结构：;注释 [小节名] 关键字=值...INI文件允许有多个小节，每个小节又允许有多个关键字，“=”后面是该关键字的值。 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。注释以分号“;”开头。二、定义 1、在Interface的Uses节增加IniFiles；2、在Var变量定义部分增加一行：myinifile:Tinifile; 然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了。 三、打开INI文件myinifile:=Tinifile.create('PRog 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); 阅读全文

摘要： { For example :procedure TForm1.ComboBox1Change(Sender: TObject);begin SetActiveLanguage(ComboBox1.Text);end;procedure TForm1.FormCreate(Sender: TObject);begin ComboBox1.Items.AddStrings(SearchLanguagePack);end;}unit uLanguage;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, F 阅读全文

摘要： Delphi中Socket的操作方式Delphi分別使用TClientSocket元件和TServerSocket元件來操縱用戶端 Socket和伺服器段Socket的連接和通信。根據連接發起的方式以及本地 Socket要連接的目標，Socket之間的連接可以分為：用戶端連接、監聽連接以及伺服器端連接。(1)所謂用戶端連接，是指由用戶端的 Socket提出連接請求，要連接的目標是伺服器端的Socket。為此，用戶端的Socket首先要描述它要連接的伺服器端Socket，主要是伺服器端Socket的位址和埠號，然後再定位所要連接的伺服器端Socket。找到以後，就向伺服器端Socket請求連接。 阅读全文

摘要： //数据集串行化function RecordsetToXML(const Recordset: _Recordset): string;var RS: Variant; Stream: TStringStream;begin Result := ''; if Recordset = nil then Exit; Stream := TStringStream.Create(''); try RS := Recordset; // adPersistADTG保存为二进制文件 adPersistXML保存为xml。二进制的传输效率要高于XML RS.Save(TS 阅读全文