delphi中间件

摘要： 当你选择Oracle作数据库服务器时，客户端一般需要装一个肥硕的200M左右客户端，而且还要做连接配置，尤其是C/S模式，客户端多的时候非常不便。当然，网上也有一个10M左右的Oracle精简客户端，性能和稳定性和官方版差不多。Oracle还提供了Direct Mode（直连模式），只要你的客户端机子支持TCP/IP协议，完全可以不用安装Oracle客户端及其连接配置。幸运的是，UniDAC也提供了Direct Mode。只需要如下简单配置：1、在TUniConnection控件上点击右键，选择菜单“Connection Editor”，在弹出的对话框中选择分页“Options”，“Optio 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, DBAccess, Uni, MemDS, UniProvider, InterBaseUniProvider;type TForm1 = class(TForm) UniConnTest: TUniConnection;//用于数据库的连接 InterBaseUniProTest: TInterBaseUniProvi 阅读全文

摘要： delphi中move函数的正确理解 收藏 我们能看到以下代码var pSource,pDest:PChar; len: integer;.......................//一些代码Move(pSource,pDest,len); //错误Move(pSource^,pDest^,len); //正确看起来确实好像是传值，而不是传地址，但是各位别忘了，这不是C，C++，而是DelphiObject Pascal,所以，绝不能从函数调用的方法判断是传值还是串地址！！必须看函数的定义，只有定义才能说明是传值还是传地址，再说一遍，这不是C，C++！！我们看到的函数定义是这样的proce 阅读全文

摘要： function ReadFileToBuffer(const AFileName: string; var AFileSize: Cardinal; var AData): Boolean;varFileHandle: THandle;MappingHandle: THandle;FindData: TWin32FindData;MappingName: string;TheCreationTime: TFileTime;FileAttrs: DWORD;ThisSize: Cardinal;CommitSize: Cardinal;Segment: Cardinal;PFileData, 阅读全文

摘要： function WriteFileFromBuffer(const AFileName: string; AFileSize: Cardinal; var AData; AIsAppend: Boolean = False): Boolean;typePTQWord = ^TQWord;TQWord = packed record case Boolean of False: (QWORD: Int64); True: (LODWORD: DWORD; HIDWORD: DWORD);end;varDriveName: string;MappingName: string;DiskFreeS 阅读全文

摘要： 1.组件对象的序列化从TCOMPONENT继承下来的组件对象序列化都简单，因为它本身支持流化，通过流化也就达到了序列化组件对象的目的。TReader和TWriter都只支持Tcomponent流化,除非你自己写个TReader和TWriter,就有可能支持TPersiten的流化. function ComponentToString(Component: TComponent): string; var BinStream:TMemoryStream; StrStream: TStringStream; s: string; begin BinStream := ... 阅读全文

摘要： object FormChoose: TFormChoose Left = 331 Top = 269 BorderStyle = bsDialog Caption = #36873#25321 ClientHeight = 242 ClientWidth = 439 Color = clBtnFa 阅读全文

摘要： 湘潭真武山陈氏 鼻祖晓苍公，讳晚，江西永新人，以世乱于明洪武16年（1383）移籍湖广宝庆府邵阳县杨柳冲西萼塘，置水田三百六十亩，得业承差，遂为邵人，生子数人，昂公居长。时靖难兵起，邵差繁重，公不堪其苦，遂以家产付兄弟，于景泰2年（1451）徙于湘潭草叶桥，虑邵役追及，尝改姓萧，家道日昌。昂公有七孙，五阙，仅得长孙添祯、七孙添华。添祯之后世居中湘，至孙辈别为三房：柳桥祖玉爵、近桥祖玉受、仲桥祖玉管；添华孙玉珠为还溪房祖，玉珍为儒溪房祖。清嘉庆24年（1819）再建宗祠于十四都八甲真武山，门联：灵钟真武，瑞映德星。明天启7年（1627）创修族谱，清乾隆50年（1785）续修，道光25年（1845 阅读全文

摘要： Delphi6中的TServerSocket在线程阻塞模式(TThreadBlocking)下，OnRead/OnWrite事件的是在主线程中执行的，虽为多线程，实际效率不高。故我们若需要利用TServerSocket来开发真正多线程的服务器，则需要写TServerClientThread的子类，在这个子类中，自行处理数据的接收与发送，而重写的的重点在ClientExecute方法。下面为代码描述了这种编程思路。type TServerForm=class(TForm) ... private procedure GetThread(Sender: TObject; ClientSocket: 阅读全文

摘要： 标准的Socket的应用程序框架如下：Server方： Socket()[ 新建一个Socket]－－Bind()[ 同服务器地址邦定 ]－－Listen() －－Accept()－－block wait－－read()[接受消息，在windows平台中，方法为send(TCP),或者是sendto(UDP)]－－处理服务请求－－Write()[发送消息，在windows平台中，方法为send(TCP), 或者为sendto(UDP)。Client方相对简单：Socket()－－Connect()[通过一定的port连接特定的服务器，这是与服务器建立连接]－－Write()－－Read()。　 阅读全文