求助:::如何利用程序来实现NAT?-CSDN论坛

求助:::如何利用程序来实现NAT?

C++ Builder > 网络及通讯开发

收藏回复

[问题点数：100分，结帖人zhuangbin]

⋅散分：3G手机的开发和增殖运营服务？？？（交流拿分） ⋅如何利用winpcap实现远程监测？ ⋅在vc中如何创建和编辑资源文件 更多帖子 关注私信空间博客 zhuangbin 等级 本版专家分：10 结帖率 100%: 如何利用程序来控制NAT设备,建立端口映射.

有人说在c++ builder 6.0中有一个控件:IdMappedPortTCP可以实现.

可是我对这个控件一点也不熟悉,大家可以给写个简单的NAT程序吗?

谢谢了.

2005-07-12 11:32:49

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅散分：3G手机的开发和增殖运营服务？？？（交流拿分） ⋅如何利用winpcap实现远程监测？ ⋅在vc中如何创建和编辑资源文件 更多帖子 关注私信空间博客 zhuangbin 等级 本版专家分：10: 对于NAT的原理和类型我已经看过了,
但就是不知道该如何使用这个控件实现.

希望大家帮忙,在线等.

2005-07-12 11:35:06

点赞只看TA 引用举报 #1得分 0

⋅关于wince5的PPPoE拨号问题 ⋅wince6的问题 ⋅读GPGDAT没响应？ 更多帖子 关注私信空间博客 constantine 等级 本版专家分：66092 勋章 红花 2005年8月 C++ Builder大版内专家分月排行榜第一 2005年6月 C++ Builder大版内专家分月排行榜第一 2005年5月 C++ Builder大版内专家分月排行榜第一 2005年4月 C++ Builder大版内专家分月排行榜第一 2005年3月 C++ Builder大版内专家分月排行榜第一 2004年11月 C++ Builder大版内专家分月排行榜第一 2004年10月 C++ Builder大版内专家分月排行榜第一 2004年9月 C++ Builder大版内专家分月排行榜第一 2004年8月 C++ Builder大版内专家分月排行榜第一 黄花 2007年6月 C++ Builder大版内专家分月排行榜第二 2007年3月 C++ Builder大版内专家分月排行榜第二 2007年1月 C++ Builder大版内专家分月排行榜第二 2006年1月 C++ Builder大版内专家分月排行榜第二 2005年12月 C++ Builder大版内专家分月排行榜第二 2005年11月 C++ Builder大版内专家分月排行榜第二 2005年7月 C++ Builder大版内专家分月排行榜第二 2004年12月 C++ Builder大版内专家分月排行榜第二 蓝花 2007年2月 C++ Builder大版内专家分月排行榜第三 2007年6月 Delphi大版内专家分月排行榜第三 2006年2月 C++ Builder大版内专家分月排行榜第三 2005年10月 C++ Builder大版内专家分月排行榜第三 2004年7月 C++ Builder大版内专家分月排行榜第三: 这个网上有一个端口映射的代码，应该是出到3.0版吧，有代码，不过是delphi的
好像再www.playicq.com就有你找找

2005-07-12 12:22:50

点赞只看TA 引用举报 #2得分 10

⋅关于wince5的PPPoE拨号问题 ⋅wince6的问题 ⋅读GPGDAT没响应？ 更多帖子 关注私信空间博客 constantine 等级 本版专家分：66092 勋章 红花 2005年8月 C++ Builder大版内专家分月排行榜第一 2005年6月 C++ Builder大版内专家分月排行榜第一 2005年5月 C++ Builder大版内专家分月排行榜第一 2005年4月 C++ Builder大版内专家分月排行榜第一 2005年3月 C++ Builder大版内专家分月排行榜第一 2004年11月 C++ Builder大版内专家分月排行榜第一 2004年10月 C++ Builder大版内专家分月排行榜第一 2004年9月 C++ Builder大版内专家分月排行榜第一 2004年8月 C++ Builder大版内专家分月排行榜第一 黄花 2007年6月 C++ Builder大版内专家分月排行榜第二 2007年3月 C++ Builder大版内专家分月排行榜第二 2007年1月 C++ Builder大版内专家分月排行榜第二 2006年1月 C++ Builder大版内专家分月排行榜第二 2005年12月 C++ Builder大版内专家分月排行榜第二 2005年11月 C++ Builder大版内专家分月排行榜第二 2005年7月 C++ Builder大版内专家分月排行榜第二 2004年12月 C++ Builder大版内专家分月排行榜第二 蓝花 2007年2月 C++ Builder大版内专家分月排行榜第三 2007年6月 Delphi大版内专家分月排行榜第三 2006年2月 C++ Builder大版内专家分月排行榜第三 2005年10月 C++ Builder大版内专家分月排行榜第三 2004年7月 C++ Builder大版内专家分月排行榜第三: 记错了是源码中国：www.Cn700.com

2005-07-12 12:24:45

点赞只看TA 引用举报 #3得分 0

⋅散分：3G手机的开发和增殖运营服务？？？（交流拿分） ⋅如何利用winpcap实现远程监测？ ⋅在vc中如何创建和编辑资源文件 更多帖子 关注私信空间博客 zhuangbin 等级 本版专家分：10: 谢谢你,constantine(飘遥的安吉儿)

我刚才下载看了,使用vb写的.
但不知道是何原因无法运行.

关于IdMappedPortTCP这个控件你可以简单地给我说一下他是如何使用的吗?
我刚接触CB没多久,很多东西都不熟,请你多多指教.

2005-07-12 14:27:45

点赞只看TA 引用举报 #4得分 0

⋅散分：3G手机的开发和增殖运营服务？？？（交流拿分） ⋅如何利用winpcap实现远程监测？ ⋅在vc中如何创建和编辑资源文件 更多帖子 关注私信空间博客 zhuangbin 等级 本版专家分：10: 我刚才看的是NAT.
现在刚找到你说的这个.
有可执行的程序.
但是没有代码.

2005-07-12 14:37:07

点赞只看TA 引用举报 #5得分 0

⋅关于wince5的PPPoE拨号问题 ⋅wince6的问题 ⋅读GPGDAT没响应？ 更多帖子 关注私信空间博客 constantine 等级 本版专家分：66092 勋章 红花 2005年8月 C++ Builder大版内专家分月排行榜第一 2005年6月 C++ Builder大版内专家分月排行榜第一 2005年5月 C++ Builder大版内专家分月排行榜第一 2005年4月 C++ Builder大版内专家分月排行榜第一 2005年3月 C++ Builder大版内专家分月排行榜第一 2004年11月 C++ Builder大版内专家分月排行榜第一 2004年10月 C++ Builder大版内专家分月排行榜第一 2004年9月 C++ Builder大版内专家分月排行榜第一 2004年8月 C++ Builder大版内专家分月排行榜第一 黄花 2007年6月 C++ Builder大版内专家分月排行榜第二 2007年3月 C++ Builder大版内专家分月排行榜第二 2007年1月 C++ Builder大版内专家分月排行榜第二 2006年1月 C++ Builder大版内专家分月排行榜第二 2005年12月 C++ Builder大版内专家分月排行榜第二 2005年11月 C++ Builder大版内专家分月排行榜第二 2005年7月 C++ Builder大版内专家分月排行榜第二 2004年12月 C++ Builder大版内专家分月排行榜第二 蓝花 2007年2月 C++ Builder大版内专家分月排行榜第三 2007年6月 Delphi大版内专家分月排行榜第三 2006年2月 C++ Builder大版内专家分月排行榜第三 2005年10月 C++ Builder大版内专家分月排行榜第三 2004年7月 C++ Builder大版内专家分月排行榜第三: unit UMain;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ScktComp, StdCtrls, TypInfo, AppEvnts;
type
  TChState = (csReady,
    csInUse,
    csShutDown, csError);
  TSktState = (ssReady,
    ssStart, ssInit, ssWork,
    ssFinish, ssError);
  TSrvSkt = class
  protected
    FChId: Integer;
    FActive: Boolean;
    FConnected: Boolean;
    FClient: TClientSocket;
    procedure SetChId(const Value: Integer);
    procedure SetActive(const Value: Boolean);
    procedure SetConnected(const Value: Boolean);
    procedure SetClient(const Value: TClientSocket);
  public
    State: TSktState;
    Skt2: TSrvSkt;
    BuffSize: Integer;
    RecvBuff: String;
    SendBuff: String;
    LastTick: Integer;
    RecvBytes: Integer;
    SendBytes: Integer;
    Socket: TCustomWinSocket;
    Params: TStringList;
    function Elapsed: Integer;
    function Receive(var Buff: String): Integer; virtual;
    function InitSkt: Boolean; virtual;
    procedure CleanUp; virtual;
    procedure Timer; virtual;
    procedure Event(SocketEvent: TSocketEvent); virtual;
    procedure Error(ErrorEvent: TErrorEvent;
      var ErrorCode: Integer); virtual;
    function Transfer: Integer; virtual;
    property ChId: Integer read FChId write SetChId;
    property Active: Boolean read FActive write SetActive;
    property Client: TClientSocket read FClient write SetClient;
    property Connected: Boolean read FConnected write SetConnected;
    constructor Create; virtual;
    destructor Destroy; override;
  end;
  TClientSkt = class(TSrvSkt)
  public
    function InitSkt: Boolean; override;
    procedure CleanUp; override;
    procedure Event(SocketEvent: TSocketEvent); override;
  end;

  TChanel = record
    Skt1: TSrvSkt;
    Skt2: TSrvSkt;
    State: TChState;
    SessId: String;
  end;

  TMainFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    ListBox1: TListBox;
    Button3: TButton;
    Button4: TButton;
    Server1: TServerSocket;
    Client1: TClientSocket;
    Timer1: TTimer;
    ApplicationEvents1: TApplicationEvents;
    Button5: TButton;
    Label3: TLabel;
    Label4: TLabel;
    CheckBox1: TCheckBox;
    Label5: TLabel;
    Label6: TLabel;
    procedure Server1Listen(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
    procedure Server1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Server1ClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Server1ClientError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure Server1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure Server1ClientWrite(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Client1Connect(Sender: TObject; Socket: TCustomWinSocket);
    procedure Client1Disconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure Client1Error(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure Client1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure Client1Write(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);
    procedure Button5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label5DblClick(Sender: TObject);
    procedure Label4DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    MaxDelayCt: Integer;
    LastChId: Integer;
    RemoteAddr: String;
    RemotePort: Integer;
    Chns: array of TChanel;
    { Public declarations }
    procedure LogMsg(S: String);
    function InitChanels(AMaxs: Integer): Integer;
    function NewChanel(var LastId: Integer): Integer;
    function FreeChanel(ChnId: Integer): Integer;
    function CheckChanel(ChnId: Integer): Integer;
    function ScanDelays(AMaxWait: Integer): Integer;
  end;

var
  MainFrm: TMainFrm;

implementation

{$R *.dfm}

{ TSrvSkt }

procedure TSrvSkt.CleanUp;
begin
  if Assigned(Socket) and
    (Socket is TServerClientWinSocket) then
  begin
    if Socket.Connected then
      Socket.Close;
    Socket := nil;
  end;
  RecvBuff := '';
  SendBuff := '';
  State := ssReady;
end;

constructor TSrvSkt.Create;
begin
  Params := TStringList.Create;
  BuffSize := 10*1024;
  LastTick := GetTickCount;
end;

destructor TSrvSkt.Destroy;
begin
  Active := False;
  Params.Free;
  inherited;
end;

function TSrvSkt.Elapsed: Integer;
begin
  Result := Integer(GetTickCount) - LastTick;
end;

procedure TSrvSkt.Error(ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  State := ssError;
  if Assigned(Socket) and
    Socket.Connected then
  begin
    Socket.Close;
  end;
  Socket := nil;
  LastTick := GetTickCount;
end;

procedure TSrvSkt.Event(SocketEvent: TSocketEvent);
begin
  case SocketEvent of
    seConnect:
    begin
      State := ssWork;
      Skt2.Connected := True;
      LastTick := GetTickCount;
    end;
    seDisconnect:
    begin
      if State = ssWork then
        State := ssFinish;
      Socket := nil;
      LastTick := GetTickCount;
    end;
    seRead:
    begin
      Skt2.Transfer;
      LastTick := GetTickCount;
    end;
    seWrite:
    begin
      if Transfer > 0 then
        LastTick := GetTickCount;
    end;
  end;
end;

function TSrvSkt.InitSkt: Boolean;
begin
  State := ssStart;
  RecvBuff := '';
  SendBuff := '';
  RecvBytes := 0;
  SendBytes := 0;
  LastTick := GetTickCount;
  Params.Clear;
  Result := True;
end;

function TSrvSkt.Receive(var Buff: String): Integer;
var
  s: String;
begin
  Result := 0;
  if Assigned(Socket) and
    (State <> ssError) and
    (Socket.ReceiveLength > 0) then
  begin
    if (Length(Buff) < BuffSize) or
      (State = ssFinish) then
    begin
      s := Socket.ReceiveText;
      Result := Length(s);
      if Result > 0 then
      begin
        Buff := Buff + s;
        Inc(RecvBytes, Result);
      end;
    end;
  end;
end;

procedure TSrvSkt.SetActive(const Value: Boolean);
begin
  if FActive <> Value then
  begin
    if Value then
    begin
      FActive := InitSkt;
      SetChId(FChId);
    end
    else
    begin
      CleanUp;
      FActive := Value;
    end;
  end;
end;

procedure TSrvSkt.SetChId(const Value: Integer);
begin
  FChId := Value;
  if Assigned(Socket) then
  begin
    Socket.Data := Pointer(Value);
  end;
end;

procedure TSrvSkt.SetClient(const Value: TClientSocket);
begin
  if Assigned(FClient) then
  begin
    FClient.OnConnect := Value.OnConnect;
    FClient.OnDisconnect := Value.OnDisconnect;
    FClient.OnError := Value.OnError;
    FClient.OnRead := Value.OnRead;
    FClient.OnWrite := Value.OnWrite;
  end;
end;

2005-07-12 14:47:11

点赞只看TA 引用举报 #6得分 20

⋅关于wince5的PPPoE拨号问题 ⋅wince6的问题 ⋅读GPGDAT没响应？ 更多帖子 关注私信空间博客 constantine 等级 本版专家分：66092 勋章 红花 2005年8月 C++ Builder大版内专家分月排行榜第一 2005年6月 C++ Builder大版内专家分月排行榜第一 2005年5月 C++ Builder大版内专家分月排行榜第一 2005年4月 C++ Builder大版内专家分月排行榜第一 2005年3月 C++ Builder大版内专家分月排行榜第一 2004年11月 C++ Builder大版内专家分月排行榜第一 2004年10月 C++ Builder大版内专家分月排行榜第一 2004年9月 C++ Builder大版内专家分月排行榜第一 2004年8月 C++ Builder大版内专家分月排行榜第一 黄花 2007年6月 C++ Builder大版内专家分月排行榜第二 2007年3月 C++ Builder大版内专家分月排行榜第二 2007年1月 C++ Builder大版内专家分月排行榜第二 2006年1月 C++ Builder大版内专家分月排行榜第二 2005年12月 C++ Builder大版内专家分月排行榜第二 2005年11月 C++ Builder大版内专家分月排行榜第二 2005年7月 C++ Builder大版内专家分月排行榜第二 2004年12月 C++ Builder大版内专家分月排行榜第二 蓝花 2007年2月 C++ Builder大版内专家分月排行榜第三 2007年6月 Delphi大版内专家分月排行榜第三 2006年2月 C++ Builder大版内专家分月排行榜第三 2005年10月 C++ Builder大版内专家分月排行榜第三 2004年7月 C++ Builder大版内专家分月排行榜第三: procedure TSrvSkt.SetConnected(const Value: Boolean);
begin
  if Assigned(Client) then
  begin
    Client.Active := Value;
  end;
end;

procedure TSrvSkt.Timer;
begin
  if State = ssWork then
  begin
    Transfer;
    if Skt2.State in [ssFinish, ssError] then
    begin
      if not Assigned(Socket) then
        State := ssFinish
      else if Socket.Connected and
        (Length(SendBuff) <= 0)  then
      begin
        State := ssFinish;
      end;
    end;
  end;
end;

function TSrvSkt.Transfer: Integer;
begin
  Result := 0;
  if Assigned(Socket) and
    (State = ssWork) and
    Socket.Connected then
  begin
    Skt2.Receive(SendBuff);
    Result := Socket.SendText(SendBuff);
    if Result > 0 then
    begin
      Delete(SendBuff, 1, Result);
      Inc(SendBytes, Result);
      LastTick := GetTickCount;
    end;
  end;
end;

{ TMainFrm }

function TMainFrm.InitChanels(AMaxs: Integer): Integer;
var
  i, m, n: Integer;
begin
  m := AMaxs;
  if m <= -1 then m := -1;
  n := Length(Chns);
  for i := m + 1 to n - 1 do
  begin
    Chns[i].Skt1.Free;
    Chns[i].Skt2.Free;
  end;
  SetLength(Chns, m + 1);
  for i := n to m do
  begin
    Chns[i].Skt1 := TSrvSkt.Create;
    Chns[i].Skt2 := TClientSkt.Create;
    Chns[i].Skt1.Skt2 := Chns[i].Skt2;
    Chns[i].Skt2.Skt2 := Chns[i].Skt1;
    Chns[i].State := csReady;
    Chns[i].SessId := '';
  end;
  Result := Length(Chns) - 1;
end;

procedure TMainFrm.LogMsg(S: String);
var
  t: String;
begin
  if CheckBox1.Checked then
  begin
    t := FormatDateTime('hh:nn:ss.zzz', Now) + ' ' + s;
    ListBox1.ItemIndex := ListBox1.Items.Add(t);
  end;
end;

procedure TMainFrm.Server1Listen(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  LogMsg('Start listen ...');
end;

procedure TMainFrm.Button1Click(Sender: TObject);
var
  Len: Integer;
begin
  RemoteAddr := Edit1.Text;
  RemotePort := StrToIntDef(Edit2.Text, 1009);
  Timer1.Enabled := True;
  Len := InitChanels(20);
  MaxDelayCt := Len * 5;
  Server1.Active := True;
end;

function TMainFrm.FreeChanel(ChnId: Integer): Integer;
var
  i: Integer;
begin
  i := ChnId;
  if (i > 0) and (i < Length(Chns)) then
  begin
    Chns[i].Skt1.Active := False;
    Chns[i].Skt2.Active := False;
    Chns[i].State := csReady;
  end;
  LogMsg(Format('[%d,0]FreeChanel', [i]));
  Result := ChnId;
end;

function TMainFrm.NewChanel(var LastId: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  if LastId < 1 then LastId := 1;
  if LastId >= Length(Chns) then
    LastId := 1;
  for i := LastId to Length(Chns) - 1 do
  begin
    if Chns[i].State = csReady then
    begin
      Result := i;
      Break;
    end;
  end;
  if Result <= 0 then
  begin
    for i := 1 to LastId - 1 do
    begin
      if Chns[i].State = csReady then
      begin
        Result := i;
        Break;
      end;
    end;
  end;
  LastId := Result;
end;

procedure TMainFrm.Server1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  i, t: Integer;
begin
  Timer1Timer(Sender);
  t := Integer(Socket.Data);
  i := NewChanel(LastChId);
  if (t < 0) and (i <= 0) then
  begin
    Socket.Data := Pointer(t);
  end
  else
  if (i > 0) and (i < Length(Chns)) then
  begin
    Socket.Data := Pointer(i);
    Chns[i].State := csInUse;
    Chns[i].Skt1.Active := True;
    Chns[i].Skt1.Socket := Socket;
    Chns[i].Skt1.ChId := i;
    Chns[i].Skt2.Active := True;
    Chns[i].Skt2.ChId := i;
    Chns[i].Skt2.Client.Host := RemoteAddr;
    Chns[i].Skt2.Client.Port := RemotePort;
    Chns[i].Skt2.Client := Client1;
    Chns[i].Skt1.Event(seConnect);
    LogMsg(Format('[%d,1]Connect %s:%d',
      [i, Socket.RemoteAddress,
      Socket.RemotePort]));
  end
  else if Server1.Socket.ActiveConnections < MaxDelayCt then
  begin
    // 如果连接总数没有超过延迟总数,
    // 进行延迟处理
    LogMsg(Format('[%d,1]Delay %s:%d',
      [i, Socket.RemoteAddress,
      Socket.RemotePort]));
    Socket.Data := Pointer(-1);
  end
  else
  begin
    // 如果没有空闲通道,
    // 并且如果连接总数超过延迟限额
    // 立即断开此连接
    LogMsg(Format('[%d,1]Refused %s:%d',
      [i, Socket.RemoteAddress,
      Socket.RemotePort]));
    Socket.Data := nil;
    if Socket.Connected then
      Socket.Close;
  end;
end;

procedure TMainFrm.Server1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  i: Integer;
begin
  i := Integer(Socket.Data);
  if (i > 0) and (i < Length(Chns)) then
  begin
    Chns[i].Skt1.Event(seDisconnect);
  end;
  LogMsg(Format('[%d,1]Disconnect %s:%d',
    [i, Socket.RemoteAddress,
    Socket.RemotePort]));
end;

procedure TMainFrm.Server1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
var
  i, m: Integer;
  t: String;
begin
  i := Integer(Socket.Data);
  m := ErrorCode;
  t := GetEnumName(TypeInfo(TErrorEvent), Ord(ErrorEvent));
  LogMsg(Format('[%d,1]Error %s:%d Err: %s, Code: %d',
    [i, Socket.RemoteAddress,
    Socket.RemotePort, t, m]));
  if (i > 0) and (i < Length(Chns)) then
  begin
    Chns[i].Skt1.Error(ErrorEvent, ErrorCode);
  end;
  ErrorCode := 0;
end;

procedure TMainFrm.Server1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  i, m: Integer;
begin
  i := Integer(Socket.Data);
  m := Socket.ReceiveLength;
  if (i > 0) and (i < Length(Chns)) then
  begin
    Chns[i].Skt1.Event(seRead);
  end;
  LogMsg(Format('[%d,1]OnRead %s:%d R: %5d B',
    [i, Socket.RemoteAddress,
    Socket.RemotePort, m]));
end;

2005-07-12 14:47:52

点赞只看TA 引用举报 #7得分 20

⋅关于wince5的PPPoE拨号问题 ⋅wince6的问题 ⋅读GPGDAT没响应？ 更多帖子 关注私信空间博客 constantine 等级 本版专家分：66092 勋章 红花 2005年8月 C++ Builder大版内专家分月排行榜第一 2005年6月 C++ Builder大版内专家分月排行榜第一 2005年5月 C++ Builder大版内专家分月排行榜第一 2005年4月 C++ Builder大版内专家分月排行榜第一 2005年3月 C++ Builder大版内专家分月排行榜第一 2004年11月 C++ Builder大版内专家分月排行榜第一 2004年10月 C++ Builder大版内专家分月排行榜第一 2004年9月 C++ Builder大版内专家分月排行榜第一 2004年8月 C++ Builder大版内专家分月排行榜第一 黄花 2007年6月 C++ Builder大版内专家分月排行榜第二 2007年3月 C++ Builder大版内专家分月排行榜第二 2007年1月 C++ Builder大版内专家分月排行榜第二 2006年1月 C++ Builder大版内专家分月排行榜第二 2005年12月 C++ Builder大版内专家分月排行榜第二 2005年11月 C++ Builder大版内专家分月排行榜第二 2005年7月 C++ Builder大版内专家分月排行榜第二 2004年12月 C++ Builder大版内专家分月排行榜第二 蓝花 2007年2月 C++ Builder大版内专家分月排行榜第三 2007年6月 Delphi大版内专家分月排行榜第三 2006年2月 C++ Builder大版内专家分月排行榜第三 2005年10月 C++ Builder大版内专家分月排行榜第三 2004年7月 C++ Builder大版内专家分月排行榜第三: procedure TMainFrm.Server1ClientWrite(Sender: TObject; Socket: TCustomWinSocket);
var
  i: Integer;
begin
  i := Integer(Socket.Data);
  if (i > 0) and (i < Length(Chns)) then
  begin
    Chns[i].Skt1.Event(seWrite);
  end;
  LogMsg(Format('[%d,1]OnWrite %s:%d',
    [i, Socket.RemoteAddress,
    Socket.RemotePort]));
end;
procedure TMainFrm.Client1Connect(Sender: TObject; Socket: TCustomWinSocket);
var
  i: Integer;
begin
  i := Integer(Socket.Data);
  if (i > 0) and (i < Length(Chns)) then
  begin
    Chns[i].Skt2.Event(seConnect);
  end;
  LogMsg(Format('[%d,2]Connect %s:%d',
    [i, Socket.RemoteAddress,
    Socket.RemotePort]));
end;
procedure TMainFrm.Client1Disconnect(Sender: TObject;  Socket: TCustomWinSocket);
var
  i: Integer;
begin
  i := Integer(Socket.Data);
  if (i > 0) and (i < Length(Chns)) then
  begin
    Chns[i].Skt2.Event(seDisconnect);
  end;
  LogMsg(Format('[%d,2]Disconnect %s:%d',
    [i, Socket.RemoteAddress,
    Socket.RemotePort]));
end;
procedure TMainFrm.Client1Error(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
var
  i, m: Integer;  t: String;
begin
  i := Integer(Socket.Data);
  m := ErrorCode;
  t := GetEnumName(TypeInfo(TErrorEvent), Ord(ErrorEvent));
  LogMsg(Format('[%d,2]Error %s:%d Err: %s, Code: %d',
    [i, Socket.RemoteAddress,
    Socket.RemotePort, t, m]));
  if (i > 0) and (i < Length(Chns)) then
  begin
    Chns[i].Skt2.Error(ErrorEvent, ErrorCode);
  end;
  ErrorCode := 0;
end;
procedure TMainFrm.Client1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  i, m: Integer;
begin
  i := Integer(Socket.Data);
  m := Socket.ReceiveLength;
  if (i > 0) and (i < Length(Chns)) then
  begin
    Chns[i].Skt2.Event(seRead);
  end;
  LogMsg(Format('[%d,2]OnRead %s:%d R: %5d B',
    [i, Socket.RemoteAddress,
    Socket.RemotePort, m]));
end;
procedure TMainFrm.Client1Write(Sender: TObject; Socket: TCustomWinSocket);
var
  i: Integer;
begin
  i := Integer(Socket.Data);
  if (i > 0) and (i < Length(Chns)) then
  begin
    Chns[i].Skt2.Event(seWrite);
  end;
  LogMsg(Format('[%d,2]OnWrite %s:%d',
    [i, Socket.RemoteAddress,
    Socket.RemotePort]));
end;
function TMainFrm.CheckChanel(ChnId: Integer): Integer;
var
  i, m: Integer;
begin
  i := ChnId;
  Result := 0;
  if (i > 0) and (i < Length(Chns)) then
  begin
    Chns[i].Skt1.Timer;
    Chns[i].Skt2.Timer;
    if Chns[i].State = csInUse then
    begin
      if (Chns[i].Skt1.State = ssFinish) or
        (Chns[i].Skt1.State = ssFinish) then
      begin
        Chns[i].State := csShutDown;
      end;
      if (Chns[i].Skt1.State = ssError) or
        (Chns[i].Skt1.State = ssError) then
      begin
        Chns[i].State := csError;
      end;
    end;
    m := 0;
    if (Chns[i].Skt1.State in [ssFinish, ssError]) and
      (Chns[i].Skt2.State in [ssFinish, ssError]) and
      ((Chns[i].Skt1.Elapsed > 100) or
        (Chns[i].Skt2.Elapsed > 100)) then
    begin
      m := m + 1;
    end
    else
    if (Chns[i].State in [csShutDown, csError]) and
      ((Chns[i].Skt1.Elapsed > 1000) or
        (Chns[i].Skt2.Elapsed > 1000)) then
    begin
      m := m + 1;
    end;
    if m > 0 then
    begin
      FreeChanel(i);
    end;
  end;
end;
function TMainFrm.ScanDelays(AMaxWait: Integer): Integer;
var
  i, m, n, t: Integer;  Socket: TCustomWinSocket;
begin
  m := Server1.Socket.ActiveConnections;
  Result := 0;
  // 处理延迟的连接
  for i := 0 to m - 1 do
  begin
    Socket := Server1.Socket.Connections[i];
    n := Integer(Socket.Data);
    if n < 0 then
    begin
      Socket.Data := Pointer(n);
      t := NewChanel(LastChId);
      if t > 0 then
      begin
        Server1ClientConnect(Self, Socket);
      end
      else
      begin
        Break;
      end;
    end;
  end;
  for i := m - 1 downto 0 do
  begin
    Socket := Server1.Socket.Connections[i];
    n := Integer(Socket.Data);
    if n < 0 then
    begin
      Result := Result + 1;
      n := -n;
      n := n + 1;
      if n >= AMaxWait then
      begin
        LogMsg(Format('[%d,1]Delay timeout %s:%d',
          [-n, Socket.RemoteAddress,
          Socket.RemotePort]));
        if Socket.Connected then
        begin
          Socket.Close;
        end;
      end;
    end;
  end;
end;
procedure TClientSkt.CleanUp;
begin
  inherited;
  if Assigned(FClient) then
    FreeAndNil(FClient);
  Socket := nil;
end;
procedure TClientSkt.Event(SocketEvent: TSocketEvent);
begin
  case SocketEvent of
    seConnect:
    begin
      State := ssWork;
      if Skt2.State = ssWork then
      begin
        Transfer;
      end;
    end;
    seDisconnect:
    begin
      if State = ssWork then
      begin
        State := ssFinish;
        Skt2.Transfer;
      end;
    end;
    else
    begin
      inherited;
    end;
  end;
end;
function TClientSkt.InitSkt: Boolean;
begin
  Result := inherited InitSkt;
  FClient := TClientSocket.Create(nil);
  Socket := FClient.Socket;
end;
procedure TMainFrm.Button2Click(Sender: TObject);
begin
  InitChanels(-1);
  Server1.Active := False;
end;
procedure TMainFrm.Timer1Timer(Sender: TObject);
var
  i, ct, st: Integer;
begin
  ct := Server1.Socket.ActiveConnections;
  st := 0;
  for i := 1 to Length(Chns) - 1 do
  begin
    if Chns[i].State <> csReady then
    begin
      CheckChanel(i);
      st := st + 1;
    end;
  end;
  if Assigned(Sender) and
    (Sender is TTimer) then
  begin
    i := ScanDelays(15*1000 div Timer1.Interval);
    if i > Label6.Tag then Label6.Tag := i;
    Label6.Caption := IntToStr(Label6.Tag);
    Caption := Format('Connections: %d,' +
      ' Sessions: %d, Delays: %d', [ct, st, i]);
    Application.Title := Format('C: %d (S: %d, D: %d)', [ct, st, i]);
  end;
end;
procedure TMainFrm.Button4Click(Sender: TObject);
begin
  ListBox1.Clear;
end;
procedure TMainFrm.Button3Click(Sender: TObject);
var
  i, m: Integer;
  s, t, t1, t2: String;
begin
  for i := 1 to Length(Chns) - 1 do
  begin
    if Chns[i].State <> csReady then
    begin
      m := GetTickCount;
      t1 := GetEnumName(TypeInfo(TSktState), Ord(Chns[i].Skt1.State));
      t2 := GetEnumName(TypeInfo(TSktState), Ord(Chns[i].Skt2.State));
      s := Format('[%d,S], Sock1: $%s, Sock2: $%s, S: %d, R: %d',
        [
        i,
        IntToHex(Integer(Chns[i].Skt1.Socket), 8),
        IntToHex(Integer(Chns[i].Skt2.Socket), 8),
        Chns[i].Skt2.SendBytes,
        Chns[i].Skt1.SendBytes
        ]);
      LogMsg(s);
      t := GetEnumName(TypeInfo(TChState), Ord(Chns[i].State));
      s := Format(
        '  %s, S1: %s, S2: %s, SdBf: %d, RvBf: %d',
        [
        t, t1, t2,
        Length(Chns[i].Skt2.SendBuff),
        Length(Chns[i].Skt1.SendBuff)
        ]);
      LogMsg(s);
      s := Format('  Tick1: %d, Tick2: %d, Now: %d',
        [Chns[i].Skt1.Elapsed, Chns[i].Skt2.Elapsed, m]);
      LogMsg(s);
    end;
  end;
end;
procedure TMainFrm.ApplicationEvents1Exception(Sender: TObject;  E: Exception);
begin
  LogMsg('Error: ' + E.Message);
  Label3.Tag := Label3.Tag + 1;
  Label3.Caption := IntToStr(Label3.Tag);
  LogMsg('Track:');
  Button3Click(Sender);
end;
procedure TMainFrm.Button5Click(Sender: TObject);
begin
  ListBox1.Items.SaveToFile('c:\ports.log');
end;
procedure TMainFrm.FormCreate(Sender: TObject);
begin
  Button4Click(Sender);
end;
procedure TMainFrm.Label5DblClick(Sender: TObject);
begin
  Label6.Tag := 0;
  Label6.Caption := '';
end;
procedure TMainFrm.Label4DblClick(Sender: TObject);
begin
  Label3.Tag := 0;
  Label3.Caption := '';
end;
end.

2005-07-12 14:50:31

点赞只看TA 引用举报 #8得分 20

⋅散分：3G手机的开发和增殖运营服务？？？（交流拿分） ⋅如何利用winpcap实现远程监测？ ⋅在vc中如何创建和编辑资源文件 更多帖子 关注私信空间博客 zhuangbin 等级 本版专家分：10: 谢谢你,我先看看.

有问题,再麻烦你.

2005-07-12 15:27:18

点赞只看TA 引用举报 #9得分 0

⋅散分：3G手机的开发和增殖运营服务？？？（交流拿分） ⋅如何利用winpcap实现远程监测？ ⋅在vc中如何创建和编辑资源文件 更多帖子 关注私信空间博客 zhuangbin 等级 本版专家分：10: 你好,我想问一下在<端口映射3.0版（支持请求延迟功能）>

中的目标地址和目标端口是否指的是公网的IP?

它所实现的是不是NAPT(网络地址端口转换)?

2005-07-12 15:44:36

点赞只看TA 引用举报 #10得分 0

1 2 3

收起

收藏回复

zhuangbin

等级：

关注私信 TA的帖子

NDIS协议驱动应用之（另类的NAT路由程序开发）: by fanxiushu 2019-02-23 转载或引用请注明原始作者。在上一篇文章中，描述了windows7以上平台下NDIS协议驱动的开发过程。...本文将描述NDIS协议驱动的其中一个用途，用于实现一个介于应用层和驱动层的混...

NAT转换: iptables -t nat -I POSTROUTING -o 外网网卡 -s 内网网段 -j SNAT --to-source 外网ip地址 DNAT转换： iptables -t nat -I PREROUTING -i 外网网卡 -d 外网ip -p tcp --dport 发布的端口 -j DNAT --to-...

CCNA课堂练习：nat的介绍及利用nat来实现地址转换: 浅谈nat的介绍及利用nat来实现地址转换 NAT（network address tranrlation）网络地址转换，还有一个PAT（port address tranrlation）端口地址转换 nat的设置分为静态地址转换、动态地址转换、复用动态地址转换那...

NAT模式实现虚拟机共享主机网络: 上一节我们在虚拟机上搭建了linux系统，并利用桥接模式访问互联网，这一节，我们来配置一下通过NAT模式访问互联网。说到这里有些小伙伴可能要问了，NAT模式和桥接模式有什么区别呢？桥接模式：虚拟机虚拟出来的...

NAT的实现: 可以使用 iptables nat 表来实现网络地址转换（NAT）。NAT 包括 SNAT （源地址转换）和 DNAT （目的地址转换）。两者的区别在于做地址转换是在路由前还是路由后： 1）SNAT：路由 - 转换 - 发出数据经过时, 源地址...

网络互联技术与实践-习题解答: 第一章练习题1、考虑线序的问题，主机和主机直连应该用下列哪种线序的双胶线连接？A、直连线；B、交叉线；C、全反线；D、各种线均可2、、OSI是由哪一个机构提出的？A、IETF； B、IEEE； C、ISO；...

webrtc进阶-信令篇-之三：信令、stun、turn、ice: 需要处理NAT（网络地址转换）或防火墙，这是公网上通讯首要处理的问题。所以我们需要了解服务端相关的知识：信令、Stun、trun、ice。一、什么是信令信令就是协调通讯的过程，为了建立一个w

CSDN回帖得分大全（近两年）: √vs2005调用dll的时候Initialize()函数返回错误 [VC/MFC ... [VC/MFC 界面] 40 chencheng8095 05-23 00:2911 xianglitian06-10 11:51管理√CFileFind::FindFile 支持通配符么？ [VC/MFC 基础类] 100 wysbk002 05-22

[转]高负载并发网站架构分析: 由于自己正在做一个高性能大用户量的论坛程序，对高性能高并发服务器架构比较感兴趣，于是在网上收集了不少这方面的资料和大家分享。希望能和大家交流 msn: defender_ios@hotmail.com ——————————————...

[精彩] vmware 网络配置实例二 windows xp host + linux guest: http://www.chinaunix.net 作者:yunqing 发表于：2007-08-09 15:36:02

linux常见命令: =劫=机=岁=月=<!--<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:trackback="http://madskills.com/public/xml/rss/module/trackback/" xmlns:dc="http://purl.

高负载高并发网站架构分析: 由于自己正在做一个高性能大用户量的论坛程序，对高性能高并发服务器架构比较感兴趣，于是在网上收集了不少这方面的资料和大家分享。希望能和大家交流 msn: defender_ios@hotmail.com ————————————...

一些笔试题: MSRA Interview Written Exam（December 2003，Time：2.5 Hours） ----------------------------------------------------------------------------(1)int Calc(unsigned int x){ int count...

在rhas3.0上建立一个完整的邮件系统（内含四部分）修正版 V: http://www.chinaunix.net 作者:llzqq 发表于：2004-02-28 07:39:56rhas3.0 + qmail + mysql + smtp + vpopmail + igenus + qmailadmin 一、安装说明。为了方便安装我在安装Redhat3.0时选了apache、...

计算机英语名词简释（转）: 计算机英语名词简释一、著名公司及其商标名　Microsoft: 有时缩略为MS，是全球最著名的软件商，美国软件巨头微软公司的名字。Microsoft其实是由两个英语单词组成：Micro意为“微小”，Soft意为“软的”，此处应为...

注册表知识and技巧大全: 注册表知识和技巧大全注册表基础： ...AppData C:＼Windows＼Application Data 应用程序 Cache C:＼Windows＼Temporary Internet Files 浏览器缓存 Cookies C:＼Windows＼Cookies Desktop Desk

计算机英语名词简释（转载）: 计算机英语名词简释一、著名公司及其商标名　Microsoft: 有时缩略为MS，是全球最著名的软件商，美国软件巨头微软公司的名字。Microsoft其实是由两个英语单词组成：Micro意为“微小”，Soft意为“软的”，此处应为...

注册表知识与技巧大全: 注册表基础： ...AppData C:＼Windows＼Application Data 应用程序 Cache C:＼Windows＼Temporary Internet Files 浏览器缓存 Cookies C:＼Windows＼Cookies Desktop Desktop 桌面 Favorites Favorites

WebRTC知识分享——信令服务: 开始视频通话前发起端和接收端需要一些交互,如通知对方开始视频,接收视频,视频参数协商(SDP信息),NAT地址交换,这个过程我们称之为信令交互,WEBRTC没有定义标准信令格式,既可以使用SIP也可以使用XMPP,还可以使用...

计算机英语名词简释(轉載): 计算机英语名词简释一、著名公司及其商标名　Microsoft: 有时缩略为MS，是全球最著名的软件商，美国软件巨头微软公司的名字。Microsoft其实是由两个英语单词组成：Micro意为“微小”，Soft意为“软的”，此处应为...

linux常用命令-part3: 中文怎么发音 Ubuntu 有奔头，乌版图 Fedora 费德勒，菲朵拉 Debian 迪扁，德槟 CentOS 桑托斯森头斯 Linux发展历史: 1) RedHat ---> 1.RedHat 2.CentOS 3.Fedora 桌面图形系统 ...2)

linux常用命令-part2: Ubuntu,Fedora,Debian,CentOS中文怎么发音有奔头，费德勒，迪扁，桑托斯。乌版图菲朵拉德槟森头斯 ...================================ ...使用find和wc命令统计代码行数 ...wc -l `find ....

个人电脑详细的安全设置方法: 由于现在家用电脑所使用的操作系统多数为Win XP 和Win2000 pro（建议还在使用98的朋友换换系统，连微软都放弃了的系统你还用它干嘛？）所以后面我将主要讲一下基于这两个操作系统的安全防范。...

WebRtc中ICE原理: 需要处理NAT（网络地址转换）或防火墙，这是公网上通讯首要处理的问题。所以我们需要了解服务端相关的知识：信令、Stun、trun、ice。一、什么是信令信令就是协调通讯的过程，为了建立一个webRTC的通讯...

千万级并发实现的秘密：内核不是解决方案，而是问题所在！: 我们现在已经搞定了 C10K并发连接问题，升级一下，如何支持千万级的...　要了解这是如何做到的，我们得求助于Errata Security的CEO Robert Graham，看一下他在 Shmoocon 2013 的绝对奇思妙想的演讲，题目是 C10M Defen

一些面试题目: MSRA Interview Written Exam（December 2003，Time：2.5 Hours） ----------------------------------------------------------------------------(1)int Calc(unsigned int x){ int count...

（转载）计算机英语名词简释: 计算机英语名词简释一、著名公司及其商标名　Microsoft: 有时缩略为MS，是全球最著名的软件商，美国软件巨头微软公司的名字。Microsoft其实是由两个英语单词组成：Micro意为“微小”，Soft意为“软的”，此处应...

FreeSWITCH核心命令: FreeSWITCH核心命令简介下面的是根据最新的版本r14778（九月九号）中mod_commands模块提供的命令，这些命令可以使用方式有很多种，如下：控制台具体查看下面内容。译者注：通过FreeSWITCH控制台使用 ...

大学英语四级单词: a [Ai, 4, 1n, 4n] art.一(个)；任何一(个)；每一(个) abandon [4'b1nd4n] vt.离弃，丢弃；遗弃，抛弃；放弃 ability [4'biliti] n.能力，本领；...able ['Aib4l] a....aboard [4'b3:d] prep....about [4'b2ut

金蝶K/3产品性能稳定性优化指导手册: 金蝶K/3产品性能稳定性优化指导手册 2011-08-15 11:43:05| 分类： ERP应用|字号订阅 ...金蝶软件(中国)有限公司研发中心K/3产品事业部....本手册在于指导技术支持人员、分支机构实施服务人员和客户处理K

相关热词 c# 打印等比缩放 c#弹出右键菜单 c# 系统托盘图标 c#结构体定义 c# 根据网络定位 c# 清除html标签 c# uwp最小化 c#和java的区别 64位转换 c# 十进制 c# 点击保存草稿的实现