VPF::входящее соединение на порт - Форум программистов

asvr

Дата 8.5.2006, 20:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 8.5.2006

Репутация: нет
Всего: нет

Как узнать есть ли входящее соединение на опредиленный порт. Т.е. суть такая, на моей машине работает radmin-сервер, и я хочу узнать, когда ко мне приконнектилась клиентская часть. Как это реализовать?

Демо

Дата 8.5.2006, 23:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 3
Всего: 50

asvr,
Для RAdmin устанавливаешь нестандартный порт(например, 4900), пишешь свою программу-сервер, слушающий на порте 4899, делаешь в ней Port-Mapping 4899->4900.

Это сообщение отредактировал(а) Демо - 8.5.2006, 23:19

--------------------

Демо

Дата 8.5.2006, 23:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 3
Всего: 50

Вот даже решил набросать примерный код-)

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    cs: TClientSocket;
    ss: TServerSocket;
    procedure FormCreate(Sender: TObject);
    procedure ssClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ssClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ssClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure csRead(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ss.Port := 4900;
  ss.Open;
end;

procedure TForm1.ssClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  cs.Port := 4899;
  cs.Address := '127.0.0.1';
  Memo1.Lines.Add('Client connect, Address='+Socket.RemoteAddress);
end;

procedure TForm1.ssClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('Client disconnect, Address='+Socket.RemoteAddress);
  cs.Close;
end;

procedure TForm1.ssClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  s: String;
  Len: Integer;
begin
  if not cs.Active then
  begin
    cs.Open;
    while not cs.Active do Application.ProcessMessages;
  end;

  repeat
    Len := Socket.ReceiveLength;
    Memo1.Lines.Add('ss: Принято байт '+IntToStr(Len));
    if Len=0 then break;
    SetLength(s,Len);
    Socket.ReceiveBuf(s[1],Len);
    cs.Socket.SendBuf(s[1],Len);
  until Len=0;
end;

procedure TForm1.csRead(Sender: TObject; Socket: TCustomWinSocket);
var
  s: String;
  Len: Integer;
begin
  repeat
    Len := Socket.ReceiveLength;
    Memo1.Lines.Add('cs: Принято байт '+IntToStr(Len));
    if Len=0 then break;
    SetLength(s,Len);
    Socket.ReceiveBuf(s[1],Len);
    ss.Socket.Connections[0].SendBuf(s[1],Len);
  until Len=0;
end;

end.

Конечно, код сыроват(нет обработки ошибок, например), но рабочий.

--------------------

Mechanic

Дата 10.5.2006, 01:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: нет
Всего: 7

Если речь о Remote Administrator'е, то в нем, в опциях сервера есть настройка на вопрос при подключении. К тому же, иконка серверной части становится красной вместо синей. smile

А прокси - это круто для какого-никакого процессинга данных. А для обычной сигнализации сойдет какой-нить простенький RAW/IP снифер (на основе того же WinPCap), или можно штатную стену настроить на выдачу сообщений при коннекте на определенный порт. ;)

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »