u_web_dm_wy.pas

以前写的一个利用P2P 技术的一个通讯的例子。里面用到了 DBISAM 、INDY 控件。

unit U_WEB_DM_WY;

interface

uses
   SysUtils, Classes, DB, DBTables;

type
   TF_WEB_DM_WY = class(TDataModule)
    StoredProc1: TStoredProc;
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   F_WEB_DM_WY: TF_WEB_DM_WY;

implementation
uses u_web_dm;
{$R *.dfm}

end.