Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];

Вниз

ip адреса   Найти похожие ветки 

← →
валет   (2006-08-31 14:37) [0]

здравствуйте!такой вопрос:пользователь соединяется по модему с сервером, CISCO присваивает этому пользователю определенный ip адрес. подскажите как можно отловить этот ip адрес на стороне пользователя. если можно то с примером!!! заранее спасибо за любую помощь.

---

← →
Elen ©   (2006-08-31 14:51) [1]

Например так :
unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   ClientSocket1: TClientSocket;
   NMMsg1: TNMMsg;
   NMMSGServ1: TNMMSGServ;
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
caption:=NMMsg1.LocalIP;
end;

end.

Где NMMsg1 из вкладки  FastNet

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.063 c