---

Hej
Hvordan kan man læse IPadressen på den maskine et program afvikles på?
Programmet ligger på en anden PC og bliver kørt fra andre PCere, som jeg vil
logge IP nr. fra.
Og hvordan læser man hvilket Windows logon der er pålogget.
Det skal lige siges at det drejer sig om et Turbo pascal program.

Calle

---

"Calle." <Calle@jyde.dk> skrev i en meddelelse
news:3c780e29$0$39820$edfadb0f@dspool01.news.tele.dk...
> Hej
> Hvordan kan man læse IPadressen på den maskine et program afvikles på?
> Programmet ligger på en anden PC og bliver kørt fra andre PCere, som jeg
vil
> logge IP nr. fra.
> Og hvordan læser man hvilket Windows logon der er pålogget.
> Det skal lige siges at det drejer sig om et Turbo pascal program.
>
> Calle
>
Hej

Er der virkelig ikke nogen der kan svare på ovenstående mail?

Calle

---

"Calle." <Calle@jyde.dk> wrote in message news:<3c7f113c$0$204$edfadb0f@dspool01.news.tele.dk>...
> "Calle." <Calle@jyde.dk> skrev i en meddelelse
> news:3c780e29$0$39820$edfadb0f@dspool01.news.tele.dk...
> > Hej
> > Hvordan kan man læse IPadressen på den maskine et program afvikles på?
> > Programmet ligger på en anden PC og bliver kørt fra andre PCere, som jeg
> vil
> > logge IP nr. fra.
> > Og hvordan læser man hvilket Windows logon der er pålogget.
> > Det skal lige siges at det drejer sig om et Turbo pascal program.
> >
> > Calle
> >
> Hej
>
> Er der virkelig ikke nogen der kan svare på ovenstående mail?
>
> Calle

Jeg forstår ikke helt dit spørgsmål, så hvis jeg svare lidt i vest må
du have mig undskyldt.

Der er en fyldig beskrivelse af hvordan man får IP-adressen på ens
egen maskine på nyhedsgruppen alt.winsock, men det er bestemt ikke
nemt.

Hvis du gerne vil have IP-adressen på den klient der kontakter
serveren så får du den når du kalder Accept på serveren, ellers kan
gethostname vist nok bruges.

/Casper

---

"Casper A. Hansen" <cah@skygate.dk> skrev i en meddelelse
news:d581ee7f.0203010305.47acc77c@posting.google.com...
> "Calle." <Calle@jyde.dk> wrote in message
news:<3c7f113c$0$204$edfadb0f@dspool01.news.tele.dk>...
> > "Calle." <Calle@jyde.dk> skrev i en meddelelse
> > news:3c780e29$0$39820$edfadb0f@dspool01.news.tele.dk...
> > > Hej
> > > Hvordan kan man læse IPadressen på den maskine et program afvikles på?
> > > Programmet ligger på en anden PC og bliver kørt fra andre PCere, som
jeg
> > vil
> > > logge IP nr. fra.
> > > Og hvordan læser man hvilket Windows logon der er pålogget.
> > > Det skal lige siges at det drejer sig om et Turbo pascal program.
> > >
> > > Calle
> > >
> > Hej
> >
> > Er der virkelig ikke nogen der kan svare på ovenstående mail?
> >
> > Calle
>
> Jeg forstår ikke helt dit spørgsmål, så hvis jeg svare lidt i vest må
> du have mig undskyldt.
>
> Der er en fyldig beskrivelse af hvordan man får IP-adressen på ens
> egen maskine på nyhedsgruppen alt.winsock, men det er bestemt ikke
> nemt.
>
> Hvis du gerne vil have IP-adressen på den klient der kontakter
> serveren så får du den når du kalder Accept på serveren, ellers kan
> gethostname vist nok bruges.
>
> /Casper

Hej
gethostname vil Turbo Pascal ikke kendes ved >

Calle

---

"Calle." <Calle@jyde.dk> skrev i en meddelelse
news:3c7f77c2$0$46123$edfadb0f@dspool01.news.tele.dk...
> > > Er der virkelig ikke nogen der kan svare på ovenstående mail?
Har du prøvet med det eksterne program ipconfig?

M.v.h.
Olav

---

---

Få IPCONFIG til at skrive sine oplysninger i en fil, som du efterfølgende
analyserer, således at du kan isolere IP-adressen.

Fx
IPCONFIG /Batch c:\log.txt
vil skrive oplysningerne i filen c:\log.txt. Ved efterfølgende at læse denne
fil - linie for linie - kan du finde linien med de ønskede oplysninger. Fx
IP-adresse ....: 181.181.23.23
Problemet med denne fremgangsmåde kan være afhængigheden af den
Windows-version, der benyttes. (Her vist med Win98SE DK).

MEN det må kunne gøres meget lettere..............?

Mvh
Sven

> Mit problem består i, at programmet skal søge IP, og give accept hvis det
er
> indeholdt i acceptlisten. Hvordan kan jeg få (WIN)IPCONFIG til det?
>
> Calle

---

Du vil altså have en anden måde at finde din IP eller ?

For dette kan gøres således:

uses
Winsock;

{...}

function getIPs: Tstrings;
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: array[0..63] of Char;
I: Integer;
GInitData: TWSAData;
begin
WSAStartup($101, GInitData);
Result := TstringList.Create;
Result.Clear;
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
if phe = nil then Exit;
pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
while pPtr^[I] <> nil do
begin
Result.Add(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;


og kan fx bruges således


procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines := GetIps;
end;



"Sven Storm" <sven.storm@skolekom.dk> wrote in message
news:acd6to$eg6$1@news.net.uni-c.dk...
>
> Få IPCONFIG til at skrive sine oplysninger i en fil, som du efterfølgende
> analyserer, således at du kan isolere IP-adressen.
>
> Fx
> IPCONFIG /Batch c:\log.txt
> vil skrive oplysningerne i filen c:\log.txt. Ved efterfølgende at læse
denne
> fil - linie for linie - kan du finde linien med de ønskede oplysninger. Fx
> IP-adresse ....: 181.181.23.23
> Problemet med denne fremgangsmåde kan være afhængigheden af den
> Windows-version, der benyttes. (Her vist med Win98SE DK).
>
> MEN det må kunne gøres meget lettere..............?
>
> Mvh
> Sven
>
> > Mit problem består i, at programmet skal søge IP, og give accept hvis
det
> er
> > indeholdt i acceptlisten. Hvordan kan jeg få (WIN)IPCONFIG til det?
> >
> > Calle
>
>
>
>