Hallo Leute,
also es geht darum , dass ich die
Unit SysUtils so weit wie mödlich mir ersparen möchte, deshalb suche ich nach einer möglichkeit folgendes Problem ohne Format oder IntToStr zu lösen:
Delphi-Quellcode:
function LookupDomain(const Domain : String ) : String;
var
Host : PHostEnt;
Addr : array[0..3] of String;
begin
{ Host-Daten einholen }
Host := GetHostByName(PChar(Domain));
{ Die Adresse formaieren }
Result := Format('%d.%d.%d.%d', [Ord(Host.h_addr^[0]),
Ord(Host.h_addr^[1]),
Ord(Host.h_addr^[2]),
Ord(Host.h_addr^[3])]);
end;
Es egth darum die 4 Wert zu eine gültigen
IP zusammen zu fassen , ohne die
Unit SysUtils zu verwenden.
Danke für die hilfe^^