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

[forumsad]

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]

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.