摘要： 一、Delphi与Socket计算机网络是由一系列网络通信协议组成的，其中的核心协议是传输层的TCPIP和UDP协议。TCP是面向连接的，通信双方保持一条通路，好比目前的电话线，使用telnet登陆BBS，用的就是TCP协议；UDP是无连接的，通信双方都不保持对方的状态，浏览器访问Internet时使用的HTTP协议就是基于UDP协议的。TCP和UDP协议都非常复杂，尤其是TCP协议，为了保证网络传输的正确性和有效性，必须进行一系列复杂的纠错和排序等处理。Socket是建立在传输层协议(主要是TCP和UDP)上的一种套接字规范，最初是由美国加州Berkley大学提出，它定义两台计算机间进行通信 阅读全文

摘要： 1、根据条件更改某一单元格的颜色[delphi]procedureTMainFrm.First_DGDrawColumnCell(Sender:TObject;constRect:TRect;DataCol:Integer;Column:TColumn;State:TGridDrawState);beginifDM.FirstListStatus.AsString='生产'thenbeginFirst_DG.Canvas.Font.Color:=clGreenendelsebeginFirst_DG.Canvas.Font.Color:=clRed;end;ifDataCol= 阅读全文

摘要： procedure SetRowNumber(var ASender: TcxGridTableView; AViewInfo: TcxCustomGridIndicatorItemViewInfo;var ACanvas: TcxCanvas; var ADone: boolean);uses cxLookAndFeelPainters;procedure SetRowNumber(var ASender: TcxGridTableView; AViewInfo: TcxCustomGridIndicatorItemViewInfo;var ACanvas: TcxCanvas; var A 阅读全文

摘要： FastReport（二）******在Delphi程序中访问报表对象最基本的方法就是frxReport1.FindObject。然后把返回的对象强制转换成它的类型，当然，在报表中必须真的有这么个东东。如改变一个Tfrxmemoview的内容，可以这样写TfrxMemoView(frxReport1.FindObject('memo1')).Text:='jade';还可以用TfrxReportPage的FindBand方法，这个方法的参数是Band类，如报表抬头就可以直接使用这个方法，因为抬头一个页中只有一个，如果有多个同样的类。则不能使用这种方法。如果要使用 阅读全文

摘要： TfrxReport此为最主要的报表元件，一个 TfrxReport 元件组成一份报表。在设计时期，双击此元件可打开报表设计器(Report Designer)，此元件拥有所有载入、存盘、设计及来看报表必须的属性及方法。TfrxReport 提供的方法：procedure Clear; 清除报表function LoadFromFile(const FileName: String; ExceptionIfNotFound: Boolean = False): Boolean; 从给予的文件载入报表。假如第二个参数等于 “True”且文件不存在，将产生例外状况， 假如文件载入成功，返回值为”T 阅读全文

摘要： libraryProject1;usesSysUtils, Classes,Forms,windows,dialogs, Unit1in'Unit1.pas'{Form1};{$R *.res}functionshowform(formname:string):boolean;stdcall;var TheClass: TPersistentClass; aForm: TForm;beginresult:=false;{如果您的Dll中有很多FORM，请在这儿注册哦RegisterClasses([TForm1,TForm2,TForm3,...]);}RegisterClas 阅读全文

摘要： http://blog.csdn.net/tht2009/article/details/6954880?reload前两天编码遇到了要使用FindChildControl方法获取指定名称的TSpeedButton按钮，结果折腾了半天就是没得结果(基础不扎实，呵呵)，于是赶紧搜索了下，补习关于这两个方法的用法。 TWinControl类的FindChildControl方法在FWinControls中查找返回指定名称的可视且有窗体的组件(继承自TWinControl类)。该方法可以确定当前控件是否含有(contain)指定名称的继承自TWinControl类的子控件，其结果与指定要查找的控件的 阅读全文

摘要： varsl: TStringList;str: string;i: Integer;beginstr := 'aa,b b,cc,dd';sl := TStringList.Create;sl.Delimiter := ',';sl.DelimitedText := str;for i := 0 to sl.Count - 1 doShowMessage(sl[i]);sl.Freeend;这样写，对于有空格的字符会有BUG的可以采取下列做法：uses IdStringsvarsl: TStringList;str: string;i: Integer;begi 阅读全文

摘要： SelectDirectory 函数通过显示一个对话框来让用户选择一个目录。注意：在使用前要在Uses 语句中添加包含FileCtrl 的说明。函数原型如下：function SelectDirectory(const Caption: string; const Root: WideString;out Directory: string): Boolean; overload;function SelectDirectory(var Directory: string; Options: TSelectDirOpts;HelpCtx: Longint): Boolean; overload 阅读全文

摘要： var NetSource: TNetResource; Error: LongInt; a: Cardinal;begin with NetSource do begin dwType := RESOURCETYPE_ANY; lpLocalName := 'Z:'; lpRemoteName := '\\192.168.2.4\arc'; lpProvider := ''; end;// case WNetAddConnection3(Handle, NetSource, '','', CONNECT_UPDA 阅读全文