Konu: Internet - (IP To Int) ve (Int To IP) (Okunma sayısı 1508 defa)

CMNSOFT · « : 21 Ekim 2005 16:06:09 »

Kod: (delphi) [Seç]


Function IpToInt(Const AIpAddress: String): LongWord; 
Var 
   Retvar, i, iShift: LongWord; 
   sData, sSeg: String;

Begin 
  Retvar := 0; 
  iShift := 24; 
  sData := trim(AIpAddress); 

  while sData <> '' do begin 
    i := pos('.',sData); 

    if i <> 0 then begin 
      sSeg := copy(sData,1,i - 1); 
      sData := copy(sData,i+1,length(sData)); 
    end 
    else begin 
      sSeg := sData; 
      sData := ''; 
    end; 

    Retvar := Retvar + (longword(StrToIntDef(sSeg,0)) shl iShift); 
    dec(iShift,8); 
  end; 

  Result:= Retvar; 
End;

Kod: (delphi) [Seç]


Function IntToIp(AIpValue: LongWord): String; 
Var
   Retvar: String; 
   iSeg, iShift, i, iMask: LongWord;

Begin 
  Retvar := ''; 
  iShift := 24; 
  iMask := $FF000000; 

  for i := 1 to 4 do begin 
    iSeg := (AIpValue and iMask) shr iShift; 
    Retvar := Retvar + IntToStr(iSeg); 
    if i <> 4 then Retvar := Retvar + '.'; 
    iMask := iMask shr 8; 
    dec(iShift,8); 
  end; 

  Result:= Retvar; 
End;

sanalboq · « **Yanıtla #1 :** 30 Temmuz 2007 18:23:45 »

bu kodlar tam olarak ne işe yarıyor?? acabilirmisniz ??

Kocaturk · « **Yanıtla #2 :** 30 Temmuz 2007 19:47:41 »

Bu kodlar ne işe yarıyor ??

güzel bir soru ama yaptığı işbelli yani IP adresini Longword tipinde bir veriye çeviriyor, girilen IP adresi String tipinde bir veri ve dönen değer Longword tipinde yani 15 byte lık string tipinde bir veriyi 4 byte lık Longword tipinde bir veriye dönüştürüyor düşünün ki bir siteniz var ve veri tabanında üyelerin IP adreslerini de saklıyorsunuz 10.000 üyeli bir site IP adreslerini Longword çevirip sakladığınızda (15 - 4 ) x 10.000 byte daha az yer işgal ediyor demektir.

Gönderen Konu: Internet - (IP To Int) ve (Int To IP) (Okunma sayısı 1508 defa)

CMNSOFT

Internet - (IP To Int) ve (Int To IP)

sanalboq

Ynt: Internet - (IP To Int) ve (Int To IP)

Kocaturk

Ynt: Internet - (IP To Int) ve (Int To IP)