开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
PSMFWLog.pas
资源名称：00011511.rar　[点击查看]
上传用户：xiuanze55
上传日期：2017-08-03
资源大小：1080k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

PSMFWLog.pas：源码内容
  1. unit PSMFWLog;
  3. interface
  4. uses
  5.        Windows, Registry,SysUtils,Classes,StrUtils,IdTrivialFTPBase,WinSock;
  6. type TPSMFWLog=class
  7. public
  8.      mTime: string;
  9.      mDirection:string;
  10.      mPermit:String;
  11.      mIP:string;
  12.      mHostName:string;
  13.      mPort:String;
  14.      mPath:string;
  15.      mToltalRec:String;
  16.      mToltalSen:String;
  17.      mTotalRecSen:String;
  18.      mSockNo:String;
  20.      procedure AssignLogItems(LogLine: Pchar);
  21. end;
  22. implementation
  24. function NameFromIP(ip:string;var hostname:string): Boolean;
  25. var
  26.      WSAData: TWSAData;
  27.      InetAddr: u_long;
  28.      HostEntPtr: PHostEnt;
  29.      HostEnt: THostEnt;
  30.      retVal:Boolean;
  32.      len: Integer;
  34. begin
  35.      WSAStartUp( $101, WSAData );
  36.      HostEntPtr:=Nil;
  37.      try
  38.           InetAddr := inet_addr( PChar(ip));
  39.           if InetAddr = SOCKET_ERROR then
  40.                raise Exception.Create( 'Invalid address entered' );
  42.           HostEntPtr := GetHostByAddr( @InetAddr, len, AF_INET );
  43.           if HostEntPtr = NIL then
  44.                raise Exception.Create( 'WinSock error: ' + IntToStr( WSAGetLastError() ) );
  46.           // Insert hostname into list
  47.           hostname := String( HostEntPtr^.h_name );
  48.           retVal:=True;
  49.      except
  50.           on E: Exception do begin
  51.               retVal:=False;
  52.           end;
  53.      end;
  54.      Result:=retVal;
  55. end;
  57. Procedure  TPSMFWLog.AssignLogItems(LogLine:Pchar);
  58. var
  59.      logItems: TStringList;
  60. begin
  61.      logItems:=TStringList.Create;
  63.      ExtractStrings([#9],[' '],LogLine,logItems);
  66.      //'sdsdf'#9'sfsdfsdf'
  67.      mTime:=logItems[0];
  68.      mDirection:=logItems[1];
  69.      {
  70.      if Trim(logItems[2])='DENY' then
  71.           mPermit:=0
  72.      else
  73.           mPermit:=1;
  74.      }
  75.      mPermit:=logItems[2];
  76.      mIP:=logItems[3];
  78.      //if(not NameFromIP(mIP,mHostName)) then
  79.       //   mHostName:= mIP;
  80.      if(logItems.Count>9) then//New update for hostname
  81.              mHostName:=logItems[10];
  83.      mPort:=logItems[4];
  84.      mPath:=logItems[5];
  85.      mToltalRec:=logItems[6];
  86.      mToltalSen:=logItems[7];
  87.      mTotalRecSen:=logItems[8];
  88.      mSockNo:=logItems[9];
  90.      logItems.Free;
  91. end;
  95. end.