Eine "schöne" Lösung ohne Format

[Desmulator]

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^^

[DeddyH]

Versuch es doch mal mit Concat und Val.

[Desmulator]

Hm... Okay mit Concat kann ich die einzellstrings zusammen fügen, aber mit val kann ich nur ein string in ein integer umwandeln...
Wie hast du dir das vorgestellt?

[DeddyH]

Sry, hatte Val mit Str verwechselt :oops:

[Desmulator]

Jop thx,

nochmal für alle :

Delphi-Quellcode:

function LookupDomain(const Domain : String ) : String;
var
  Host : PHostEnt;
  Addr : array[0..3] of String;
  Test,Test2 : Integer;
begin

  { Host-Daten einholen }
  Host := GetHostByName(PChar(Domain));
  { Die Adresse formaieren }
  Str(Ord(Host.h_addr^[0]), Addr[0]);
  Str(Ord(Host.h_addr^[1]), Addr[1]);
  Str(Ord(Host.h_addr^[2]), Addr[2]);
  Str(Ord(Host.h_addr^[3]), Addr[3]);
  { Zusammen setzen }
  Result := Concat(Addr[0],'.',Addr[1],'.',Addr[2],'.',Addr[3]);
end;

Edit : Hach, is das ein schöne gefühl SysUtils aus der uses zu löschen 8)

[rawsoul]

Wieviel kb sparst du damit in der Echse zirka ein?

[Desmulator]

es geht mir nicht um die kb sondern darum nicht die SysUtils zu verwenden... ich mag nicht so gerne sachen von anderen leuten benutzen, ich mach lieber alles selber...

aber weil du es bist :-)
ohne : 93.696 Bytes
mit : 93.696 Bytes
;-)

[3_of_8]

Dafür ist die SysUtils.pas optimiert bis zum gehtnichtmehr, und dein Code vermutlich nicht. (Okay, bei Val, Str usw. ist es was anderes, die kommen ja auch aus der System.pas)

Aber warum willst du die nicht verwenden, ich meine, du darfst sie ja uneingeschränkt verwenden.

[Luckie]

Zitat:

Zitat von Desmulator

es geht mir nicht um die kb sondern darum nicht die SysUtils zu verwenden... ich mag nicht so gerne sachen von anderen leuten benutzen, ich mach lieber alles selber...

Hast du die Windows.pas und WinSock.pas auch schon selber geschrieben?

[Desmulator]

:wink:


öhm des ist stupide arbeit, bei der man ja nicht wirklich was lernen kann... es geht mir auch um den lern effeckt... und dlls kann ich einbinden^^