www.pudn.com > QQ_FACE.rar > dm_share.pas

unit dm_share; 
 
interface 
 
uses 
  SysUtils, Classes, ImgList, Controls, DB, TinyDB, NMUDP; 
 
type 
  TDMShare = class(TDataModule) 
    ImgLarge: TImageList; 
    ImgSmall: TImageList; 
    TblUsers: TTinyTable; 
    TblFriends: TTinyTable; 
    TblChatLog: TTinyTable; 
    TblSystemMsg: TTinyTable; 
    Udp: TNMUDP; 
    IconList: TImageList; 
    procedure UdpDataReceived(Sender: TComponent; NumberBytes: Integer; 
      FromIP: String; Port: Integer); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  DMShare: TDMShare; 
 
implementation 
 
uses Var_Share; 
 
{$R *.dfm} 
 
procedure TDMShare.UdpDataReceived(Sender: TComponent; 
  NumberBytes: Integer; FromIP: String; Port: Integer); 
begin 
   Exit; 
end; 
 
end.