Форум: "Начинающим";
Текущий архив: 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.44 MB
Время: 0.035 c