Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

« önceki sonraki »
Sayfa: [1]   Aşağı git

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

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Kıdemli Üye
  • *****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
Internet - (IP To Int) ve (Int To IP)
« : 21 Ekim 2005 16:06:09 »
Kod: Delphi
  1.  
  2. Function IpToInt(Const AIpAddress: String): LongWord;
  3. Var
  4.    Retvar, i, iShift: LongWord;
  5.    sData, sSeg: String;
  6.  
  7. Begin
  8.   Retvar := 0;
  9.   iShift := 24;
  10.   sData := trim(AIpAddress);
  11.  
  12.   while sData <> '' do begin
  13.     i := pos('.',sData);
  14.  
  15.     if i <> 0 then begin
  16.       sSeg := copy(sData,1,i - 1);
  17.       sData := copy(sData,i+1,length(sData));
  18.     end
  19.     else begin
  20.       sSeg := sData;
  21.       sData := '';
  22.     end;
  23.  
  24.     Retvar := Retvar + (longword(StrToIntDef(sSeg,0)) shl iShift);
  25.     dec(iShift,8);
  26.   end;
  27.  
  28.   Result:= Retvar;
  29. End;
  30.  
  31.  


Kod: Delphi
  1.  
  2. Function IntToIp(AIpValue: LongWord): String;
  3. Var
  4.    Retvar: String;
  5.    iSeg, iShift, i, iMask: LongWord;
  6.  
  7. Begin
  8.   Retvar := '';
  9.   iShift := 24;
  10.   iMask := $FF000000;
  11.  
  12.   for i := 1 to 4 do begin
  13.     iSeg := (AIpValue and iMask) shr iShift;
  14.     Retvar := Retvar + IntToStr(iSeg);
  15.     if i <> 4 then Retvar := Retvar + '.';
  16.     iMask := iMask shr 8;
  17.     dec(iShift,8);
  18.   end;
  19.  
  20.   Result:= Retvar;
  21. End;
  22.  
  23.  
« Son Düzenleme: 30 Temmuz 2007 19:33:26 by kocaturk »
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::

Çevrimdışı sanalboq

  • Kıdemli Üye
  • *****
  • İleti: 73
  • Rep: +0/-0
Ynt: Internet - (IP To Int) ve (Int To IP)
« Yanıtla #1 : 30 Temmuz 2007 18:23:45 »
bu kodlar tam olarak ne işe yarıyor?? acabilirmisniz ??
« Son Düzenleme: 24 Haziran 2009 00:55:12 by Kocaturk »
Kayıtlı

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: Internet - (IP To Int) ve (Int To IP)
« Yanıtla #2 : 30 Temmuz 2007 19:47:41 »
Bu kodlar ne işe yarıyor ?? :_ds 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.
« Son Düzenleme: 11 Eylül 2007 23:20:07 by kocaturk »
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »