zoukankan      html  css  js  c++  java
  • Datasnap 获取客户端IP

    uses Data.DBXTransport;
    
    //ServerContainer
    procedure TServerContainer.DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);
    var
      ci: TDBXClientInfo;
      ClientID: Integer;
    begin
      ci := DSConnectEventObject.ChannelInfo.ClientInfo;
      ClientID := DSConnectEventObject.ChannelInfo.Id;
      FrmMain.getUser(IntToStr(ClientID), DateTimeToStr(Now), ci.IpAddress, ci.ClientPort);
    end;
    
    //FrmMain
    procedure TFrmMain.getUser(strID, strDateTime, strIP, strPort: string);
    var
      item: TListItem;
    begin
      ListView1.Items.BeginUpdate;
      item := ListView1.Items.Add;
      item.Caption := strDateTime;
      item.SubItems.Add(strID);
      item.SubItems.Add(strIP);
      item.SubItems.Add(strPort);
      ListView1.Items.EndUpdate;
    end;

    localhost是网页访问rest服务

  • 相关阅读:
    论财务的意义
    项目忙乱的原因
    回家的路
    但问耕耘
    做自己的主角
    坚持的意义
    觉醒的意义
    梦想的力量
    把自己当作一件艺术品
    九宫格年度计划
  • 原文地址:https://www.cnblogs.com/liessay/p/11254964.html
Copyright © 2011-2022 走看看