Kullanıcı

Hoşgeldiniz Ziyaretçi. Lütfen giriş yapın veya kayıt olun.
E-posta adresinize aktivasyon iletisi gelmediyse lütfen buraya tıklayın.
03 Eylül 2010 13:50:52

Kullanıcı adınızı, şifrenizi ve aktif kalma süresini giriniz

Sohbet Penceresi

Son 5 Notlar:

fariz35
25 AÄŸustos 2010 16:11:57
slm beyler
alvin
27 AÄŸustos 2010 10:00:56
arkadaşlar delphi ile fax nasıl gönderilir şeklinde konuya cevaplarınızı bekliyorum...
  XLG
01 Eylül 2010 17:00:37
arkdaÅŸlar admin kim ya
  XLG
01 Eylül 2010 17:00:55
bi maruzatım olacak ta
aligel54
Bugün, 11:14:44
Arkadaşlar SUBHAN adlı arkadaşımızdan haberi olan var mı? Bir yıldır hiç siteye girmemiş? Sitesi de borçtan kapanmış. Başına bir şey mi geldi?

Show 50 latest
« önceki sonraki »
Sayfa: [1]   AÅŸağı git

Gönderen Konu: Internet - (IP To Int) ve (Int To IP)  (Okunma sayısı 1624 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) [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;

« 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 »