Adres IP w sieci lokalnej -

Witam!
Krótki opis mojej sieci lokalnej:
4 komputery połączone za pomocą HUB'a
Dostęp do Internetu: 1 server działający pod Linux'em, a dokładniej pod programem FreeSCO podłączony do SDI...
Problem polega na tym, że nie mogę odczytać adresu IP dostępowego do Internetu. Nie chodzi mi tu o adres IP mojego komputera.

Nie konfigurowałem servera i nie wiem czy jest Firewall. Ale raczej jest. W końcu jest to server.

Chciałbym zaznczyć, że odczytanie ma się odbyć za pomocą MOJEGO KOMPUTERA.

Jeszcze jedno, ja chcę to zrobić z poprzez program napisany w Delphi, chyba jest to logiczne, w końcu nie zamieszczałbym tego postu na forum "Delphi/Pascal". To by było na tyle...

A firewall masz bo jesli tak to nie odczytasz bo IP jest ukryty!!.A wiesz jak w ogóle IP odczytać?.Wiem cos na ten temat bo sam chciałem swój IP z jednego kompa ale ze firewall mi go ukrył to musisz go wyłączyć jeśli masz?.A jeśli nie to niewiem!!.Jestem nowy i mało doswiadczony!!.

Niech Ci ktoś odczyta IP z Inwigilatora w PowerGG :)
Nie wiem zresztą czy to będzie twoje IP :)

Najprościej wejść na stronę www.whatismyip.com :)
Tu masz kod w Delphi korzystający właśnie z tej stronki:

procedure TForm1.Button1Click(Sender: TObject);
var
InetIP: string;
WebAddress, SearchString: string;
Buff, P, FT: PChar;
BuffLen: Word;
StartPos, StringLength, TempInt: Integer;
begin
WebAddress := 'http://www.whatismyip.com/';
SearchString := 'Your ip is ';
Memo1.Clear;
try
NMHTTP1.Get(WebAddress);
except
on E: Exception do
begin
MessageDlg('Could not get IP Address! ' +
'Please ensure you are connected to ' +
'the Internet.', mtError, [mbOK], 0);
end;
end;
Memo1.Text := NMHTTP1.Body;
Memo1.SelStart := 0;
GetMem(FT, Length(SearchString) + 1);
StrPCopy(FT, SearchString);
BuffLen := Memo1.GetTextLen + 1;
GetMem(Buff, BuffLen);
Memo1.GetTextBuf(Buff, BuffLen);
P := Buff + Memo1.SelStart + Memo1.SelLength;
P := StrPos(P, FT);
if P = nil then MessageBeep(0)
else
begin
Memo1.SelStart := P - Buff;
Memo1.SelLength := Length(SearchString);
end;
StringLength := Memo1.SelLength;
StartPos := Memo1.SelStart + StringLength;
tempint := StartPos;
InetIP := '';
while ((Buff[TempInt] in ['0'..'9']) or
(Buff[TempInt] = '.')) do
begin
InetIP := InetIP + Buff[TempInt];
tempint := tempint + 1;
end;
FreeMem(FT, Length(SearchString) + 1);
FreeMem(Buff, BuffLen);
Edit1.Text := InetIP;
end;

Nie chcę pobierać adresu IP z jakiejś strony... chcę to zrobić przez sieć LAN...

Nie chcę pobierać adresu IP z jakiejś strony... chcę to zrobić przez sieć LAN...

A dlaczego nie? Skoro Twój server ma przypisywane zewnetrzne ip, to znaczy że ma dostęp do internetu... Zresztą męcz się sam, w końcu są święta...

Czy mi się wydaje, czy:
np:

123.45.67.89:102

123.45.67.89 - adres dostępowy
102 - końcówka adresu komputera z którego się łączysz (np. 10.0.0.102)

???

Pozdrawia
Cimak [cya]

Nie, po dwukropku jest wymuszony port dla połączenia.