Delphi, Wie man alle lokalen IPs?

Jeder weiß eine Möglichkeit in delphi erhalten, eine einfache Liste (z.B. tstrings) der lokalen ip-Adresse.

Ich habe einen Blick auf die andere Frage, und kann nicht scheinen, um meinen Kopf herum konvertieren zu delphi.

  • Würde es helfen, wenn Sie würde link zu den Lösungen arbeiten bereits. Sie sind sich nicht zu Fragen, wie man eine Liste von IP-Adressen; Sie Fragen sich, wie zu konvertieren anderen code Delphi. So zeigen Sie den original-code.
  • Es ist schwierig, am besten... hängt davon ab, welche Betriebssysteme der code funktionieren sollte... es ist wohl Pufferüberlauf/crash-anfällig. Zum Glück späteren os-es von windows die haben wenigstens bessere apis/support für diese.
InformationsquelleAutor Christopher Chase | 2009-02-23
  1. 15

    in indy 9, es ist eine Einheit IdStack mit der Klasse TIdStack

    fStack := TIdStack.CreateStack;
try
  edit.caption := fStack.LocalAddress;  //the first address i believe
  ComboBox1.Items.Assign(fStack.LocalAddresses); //all the address'
finally
  freeandnil(fStack); 
end;

    funktioniert Super 🙂

    von Remy Lebeau ' s Kommentar

    Das gleiche gibt es in Indy 10, aber die
    code ist ein wenig anders: 

    TIdStack.IncUsage; 
try 
  GStack.AddLocalAddressesToList(ComboBox1.Items); 
  Edit.Caption := ComboBox1.Items[0]; 
finally 
  TIdStack.DecUsage; 
end;
    • Das gleiche gibt es in Indy 10, aber der code ist ein wenig anders: TIdStack.IncUsage; versuchen GStack.AddLocalAddressesToList ("ComboBox1".Elemente); Bearbeiten.Caption : = "ComboBox1".Items[0]; schließlich TIdStack.DecUsage; end;
    • Ich versuche das mit Indy 10 in der XE2-ohne Erfolg (mit beiden TStringList und TStrings - ich bin immer Abstract Error nur beim Aufruf AddLocalAddressesToList(L);
    • Seltsam, wie das Verfahren ist Abstrakt, wo es erklärt: procedure AddLocalAddressesToList(AAddresses: TStrings); virtual; abstract;
    • Es ist abstract im TIdStack, die Implementierung in abgeleiteten Klassen). Sie sollen nicht instanziieren TIdStack direkt. Die statische TIdStack.IncUsage() Methode erstellt die entsprechende Instanz, wenn erforderlich, und weist der globalen GStack variable auf es zu deuten. Die meisten Zugang zu TIdStack getan werden muss, um durch die GStack variable.
    • warum das Ergebnis zeigt 4 Zeilen? 1 Zeile ist eine eindeutige ipv4-ip-Adresse und anderen zu sein scheinen ipv6 lieben.
    InformationsquelleAutor Christopher Chase
  2. 8

    Wenn Sie ICS verwenden für die socket-Kommunikation, die Sie verwenden können, LocalIPList Funktion, definiert in der OverbyteIcsWSocket Einheit.

    Selbst wenn Sie es nicht verwenden, können Sie den Quellcode herunterladen und schauen bei der Umsetzung. Es verwendet die WinSock-intern.

    • danke, Sie gab mir den Tipp, den ich brauchte, im mit indy9 und so hatte ich einen snoop herum und fand meine Antwort 🙂
    InformationsquelleAutor gabr
  3. 4

    Die Jedi Code Library enthält ein Verfahren

    procedure GetIpAddresses(Results: TStrings);

    in der Einheit JclSysInfo

    InformationsquelleAutor mjn
  4. 2

    Kann es auch mithilfe von WinApi (notwendigen Header sind in den Jedi-ApiLib). Dies ist, wie ich es in meinem TSAdminEx Anwendung:

    function EnumerateIpAddresses(var IPList: TStringList): Boolean;
var
  IPAddrTable: PMIB_IPADDRTABLE;
  Size: DWORD;
  Res: DWORD;
  Index: Integer;
  Addr: IN_ADDR;
begin
  Result := False;

  IPList.Duplicates := dupIgnore;

  Size := 0;
  // Get required Size
  if GetIpAddrTable(nil, Size, False) <> ERROR_INSUFFICIENT_BUFFER then Exit;

  // Reserve mem
  GetMem(IPAddrTable, Size);
  Res := GetIpAddrTable(IPAddrTable, Size, True);

  if Res <> NO_ERROR then Exit;

  for Index := 0 to IPAddrTable^.dwNumEntries-1 do
  begin
    // Convert ADDR to String and add to IPList
    Addr.S_addr := IPAddrTable^.table[Index].dwAddr;
    // Prevent implicit string conversion warning in D2009 by explicit cast to string
    IPList.Add({$IFDEF UNICODE}String({$ENDIF UNICODE}inet_ntoa(Addr){$IFDEF UNICODE}){$ENDIF UNICODE});
  end;

  // Free Mem
  FreeMem(IPAddrTable);

  Result := True;
end;
    InformationsquelleAutor Remko
  5. 1

    Aus der Delphi 7-Indy 9 Quelle finde ich etwas, dass das problem mit GStack. Es ist ein bisschen anders von vorherigen post.

    function GetLocalIPAddress(List: TStringlist): Integer;
begin     
  if Assigned(GStack) then
    List.Assign(TStringlist(GStack.LocalAddresses))
  else
  begin
    GStack := GStackClass.Create;
    List.Assing(TStringlist(GStack.LocalAddresses));
    FreeAndNil(GStack);
  end;
end;

    Ich denke, dass das arbeiten mit Indy 10 zu.

    InformationsquelleAutor Kikone jacob
Schreibe einen Kommentar