169.254.60.12 port:1651 port açıkmı değil mi? problemi

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
forumsad
Üye
Mesajlar: 296
Kayıt: 29 Tem 2010 09:47

169.254.60.12 port:1651 port açıkmı değil mi? problemi

Mesaj gönderen forumsad » 28 Ara 2017 03:13

arkadaşlar projemde aşagıdaki kodu netden buldum fakat bir sorun yaşıyorum. kodu çalıştırdıgımda portda sorun oluyor sonraki gönderi yolda kayboluyor tekrar gönderdiğimde gidiyor sorun ne olabilir acaba acil yardım lütfen saygılarımla

Kod: Tümünü seç

function IsPortActive(AHost : string; APort : Word): boolean;
var
  IdTCPClient : TIdTCPClient;
begin
  Result := False;
  try
    IdTCPClient := TIdTCPClient.Create(nil);
    try
      IdTCPClient.Host := AHost;
      IdTCPClient.Port := APort;
      IdTCPClient.Connect;
      Result := True;
      IdTCPClient.Disconnect;
    finally
      IdTCPClient.Free;
    end;
  except
    //Ignore exceptions
  end;
end;

Kod: Tümünü seç

drm:=IsPortActive(_ip1,1561);
if drm=false then exit;

ertank
Üye
Mesajlar: 1044
Kayıt: 11 Eyl 2015 11:45

Re: 169.254.60.12 port:1651 port açıkmı değil mi? problemi

Mesaj gönderen ertank » 28 Ara 2017 11:01

Merhaba,

Eğer karşı taraftaki sunucu sizin yazdığınız veya iletişiminin teknik detaylarını bildiğiniz bir sunucu ise biraz daha detay bilgi vermenizi rica ediyorum.

Aksi halde bağlantıda sorun olmayıp. Sunucu tarafından "iletişim şekliniz" sebebi ile red ediliyor olabilirsiniz. Şahsen yazdığım sunucuları herkesin kullanmasını önlemek için başlangıçta bilinen bir uygulama ile iletişim kurduğumu anlamak adına şifreli bir bilgi bekleyip gelen bilgide sorun yok ise esas işlemin yapılmasına geçmek gibi bir adetim vardır. Böylece gereksiz saldırı ve bant genişliği harcamalarını önleyebiliyorum.

Kısacası, test fonksiyonu her zaman başarılı olup iletişim sırasında sunucu bağlantıyı koparıyor olabilir.

Cevapla