Kendi IP adresim

[recepuncu]

Merhaba arkadaşlar programın kurulu olduğu bilgisayarın IP adresini alıp servera göndercem ama IP adresini nasıl alcam? İlginize teşekkürler..

İyi Çalışmalar.

[mussimsek]

Merhaba,

Adım adım anlatmaya çalışıyim :

1. Arama linkine tıklanır.
2. ip adresi yazılır
3. Bütün terimler için ara seçilir ve Arama tuşuna basılır

Kolay gelsin.

[recepuncu]

Rica etsem hazırda olan varsa şuraya yapıştırıversin...

İyi çalışmalar..

[hdayi]

Rica etsem hazırda olan varsa şuraya yapıştırıversin...

İyi çalışmalar..

Burası lokanta değil, mutfak. Hazır yemek çok nadir bulunur. Genelde yemeğin nasıl yapıldığı anlatılır.

Kolay Gelsin...

[recepuncu]

Pardon burası teker varken tekeri yeniden icad edenlerin mekanıymış!

[sadettinpolat]

Pardon burası teker varken tekeri yeniden icad edenlerin mekanıymış!

buranin belescilerin yeri olmadigini cok iyi biliyorum.

[MicroChip]

Merhaba,

Adım adım anlatmaya çalışıyim :

1. Arama linkine tıklanır.
2. ip adresi yazılır
3. Bütün terimler için ara seçilir ve Arama tuşuna basılır

Kolay gelsin.

süpersin

[aslangeri]

Pardon burası teker varken tekeri yeniden icad edenlerin mekanıymış!

hazır teker istiyorsan hazır tekerler bölümüne bakacaksın
sanırım adresi şuraydı
hazir teker servisi

[recepuncu]

ulen üyeliklerin açılmasını boşuna beklemişiz..
sanırsın cevap vercekler... bunların hepsi çocuk.. programcılık nasıl gelişcek Türkiye'de?... ne deyim Allah yolunuzu açık etsin...bu arada başlığı açtık bari boşa gitmesin cevap aşağıda...

Kod: Tümünü seç

uses Winsock;

function DetectHostIP(var IP: string): Boolean;
var
  wsdata : TWSAData;
  hostName : array [0..255] of char;
  hostEnt : PHostEnt;
  addr : PChar;
begin
  WSAStartup ($0101, wsdata);
  try
    gethostname (hostName, sizeof (hostName));
    hostEnt := gethostbyname (hostName);
    if Assigned (hostEnt) then
      if Assigned (hostEnt^.h_addr_list) then begin
        addr := hostEnt^.h_addr_list^;
        if Assigned (addr) then begin
          IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
          byte (addr [1]), byte (addr [2]), byte (addr [3])]);
          Result := True;
        end
        else
          Result := False;
      end
      else
        Result := False
    else begin
      Result := False;
    end;
  finally
    WSACleanup;
  end
end;

// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
var IPAdres: string;
begin
  if DetectHostIP(IPAdres) then
   Label1.Caption := IpAdres
  else
   Label1.Caption := 'Ip Adresi alinamadi';
end;

[aslangeri]

s.a.
burada
sizin verdiğiniz kodun aynısı (+) sı ve (-) si ile var.
amacınız öğrenmek ise araştırmalı, soruşturmalısınız.
amacınız ben biliyorum ya bakalım burdaki elemanların durumu nedir
şeklinde bizleri (tüm forumdaki arkadaşlardan bahsediyorum sadece kendim ve yönetim kademesinden değil) tartmaksa gene eski mesajlara tartabilirsin.

ulen üyeliklerin açılmasını boşuna beklemişiz..

kimse size zorla üye olun demedi.

sanırsın cevap vercekler

5 tane cevap gelmiş. 5 i de forumda sayılan kişiler ve 5 i de aynı şeyi söylemiş. biraz düşün neden acaba...

bunların hepsi çocuk

unutmaki akıl yaşta değil baştadır. çocuk mocuk ama adamlar forum yapmış her hangi bir karşılık beklemeden yetişen programcılara destek olmaya çalışıyorlar. (sen bir arama tuşuna basmaya bil eriniyorsun (eriniyorsun diyorum çünki artniyet aramıyorum))

programcılık nasıl gelişcek Türkiye'de?

delphiturkiye (gibi forumlar, burdaki gibi programcılığa gönül vermiş insanlar) olduğu müddetce gelişmeye devam edecek. Programcı olmak için biraz araştırmacı olmak gerek. Bizde seni araştırmaya teşvik ettik ama

ne deyim Allah yolunuzu açık etsin

sağol Allah razı olsun. seninde yolun açık olsun.

bu arada şimdi ben sana ipadresimi nasıl öğrenirim diye sorsam ne dersin.?

[mussimsek]

Tartışma kısmını okumadım artık ruhum sıkılıyor sadece şunun belirtmek isterim, benim verdiğim cevabın hazır kod yapıştırmaktan çok daha faydalı olduğu inancındayım. Yoksa arar, hazır kodlardan birini yapıştırırdım.

Bir insanın bilgisi : Bildikleri + Nerde, nasıl bulacağını bildikleri olduğuna inanıyorum.

Kolay gelsin.

[recepuncu]

A.S. aslangeri saolasın kardiş, zahmet etmiş aramış bulmuşsun cevabı, bu duyarlılığı başında gösterseydin keşke, hepimiz programcıyız bazen acil lazım oluveriyo, vatandaşlarım duyarlı olmak yerine sözüm onlara dalga geçer gibi cevaplar verdiler..

İyi Çalışmalar.

[aslangeri]

s.a.
önemli değil.
valla işin açıkçası fazlada bi zahmet olmadı.
adminim verdiği cevapta söylediklerini yaptım.
5 dk. bile sürmedi. eğer acele lazımsa arama yaptığın zaman daha çabuk bulursun inan...
bide burda kimse kimseyle dalga geçmez.
geçilmesine müsade edilmez. birisi bu kuralı ihlal ettiği zaman yönetim tarafından gerekli müdahale yapılır.


ama sen soruma hala cevap vermedin.
ip adresimi nasıl öğrenebilirim.

[aLonE CoDeR]

ama sen soruma hala cevap vermedin.
ip adresimi nasıl öğrenebilirim.

süperdi