Newsgroups : Borland : borland.public.delphi.internet.winsock : 2006 Sep : Re: GStack

www.cryer.info
Managed Newsgroup Archive

Re: GStack

Subject:Re: GStack
Posted by:"Roberto Meneghini" (rmeneghi..@separationsystems.com)
Date:Wed, 27 Sep 2006 15:28:22

Hello Gambit,

This is the code that I wrote inside an "OnClick" event. As I mentioned the
only INDY10 component that I've dropped on my form is "TIdTCPServer". It is
listening at port 500 and it is active.

Regards,

Roberto

var
  I:Integer;
  Item: TListItem;
begin
  lvLog.Items.BeginUpdate;

  for I := 0 to GStack.LocalAddresses.Count - 1 do
  begin
    Item := lvLog.Items.Add;
    Item.Caption(GStack.LocalAddresses.Strings[0]);
  end;
  lvLog.Items.EndUpdate;


"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message
news:451ad234$1@newsgroups.borland.com...
>
> "Roberto Meneghini" <rmeneghini@separationsystems.com> wrote in message
> news:451ac4e5@newsgroups.borland.com...
>
>> I do have at least one adapter installed in my computer. I can see all
>> the information when I use "ipconfig " from the command prompt or
>> via windows "Show all connections".
>
> Then there is no way the LocalAddresses property could be giving you
> '0.0.0.0' and nothing else, without throwing an exception.  What does your
> actual code look like?
>
>
> Gambit

Replies:

In response to:

www.cryer.info
Managed Newsgroup Archive