ip адреса [D6, 95/98, XP]
валет © (2006-08-31 14:37:00)
здравствуйте!такой вопрос:пользователь соединяется по модему с
сервером, CISCO присваивает этому пользователю определенный ip
адрес. подскажите как можно отловить этот ip адрес на стороне
пользователя. если можно то с примером!!! заранее спасибо за любую
помощь.
Elen (2006-08-31 14:51:00) [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
Наверх 
ЧАТ |
Орешник |
|
