Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
2 Bilgisayar arası haberleşme
#1
Merhaba,

Aynı modeme bağlı iki PC arası mesaj gönderme arasında veri gönderip almak istiyorum ve bu konuda birçok video ve örnek kod inceledim fakat çıkamadım işin içinden.
yardımlarınızı rica ederim.


procedure TMainForm.Button1Click(Sender: TObject);
begin
  try
    IdTCPClient1.Host := '127.0.0.1';
    IdTCPClient1.Port := 80;
    IdTCPClient1.Connect;
  except
    ShowMessage('Connection Unsuccessful: ');
  end;
  IdTCPClient1.IOHandler.WriteLn('deneme);
end;


begin
  IdTCPServer1 := TIdTCPServer.Create(nil);
  IdTCPServer1.DefaultPort := 80;
  IdTCPServer1.OnExecute := IdTCPServer1Execute;
  IdTCPServer1.Active := True;
Cevapla
#2
Selamlar
aşağıdaki linki bir takip ederseniz bir fikir edinebilirsiniz.

http://docwiki.embarcadero.com/CodeExamp...t_(Delphi)
Yazılımcı, kahveyi koda çeviren bir organizmadır.
Cevapla
#3
Merhaba ekli dosyadaki örnek kodlar sizin için çözüm olacaktır.


Ek Dosyalar
.zip   microclient.zip (Dosya Boyutu: 63,42 KB / İndirme Sayısı: 18)
.zip   microserver.zip (Dosya Boyutu: 63,9 KB / İndirme Sayısı: 16)
NUH EROĞLU
Elektrik-Elektronik Yük. Müh.
Cevapla
#4
(05-05-2021, Saat: 00:01)nuheroglu Adlı Kullanıcıdan Alıntı: Merhaba ekli dosyadaki örnek kodlar sizin için çözüm olacaktır.



Çok teşekkür ederim. Son bir sorum olacak.  

'Socket Error # 10060 Connection timed out. Hatası alıyorum. Bu konuda bilgi sahibi değilim  Rolleyes  Sanırım sorun ip ve portan kaynaklı oluyor bu sorunu nasıl çözerim?


idTCPClient.Host := '192.168.11.1';

 idTCPClient.Port := 1445; 
Cevapla
#5
(05-05-2021, Saat: 14:34)Mete Adlı Kullanıcıdan Alıntı:
(05-05-2021, Saat: 00:01)nuheroglu Adlı Kullanıcıdan Alıntı: Merhaba ekli dosyadaki örnek kodlar sizin için çözüm olacaktır.



Çok teşekkür ederim. Son bir sorum olacak.  

'Socket Error # 10060 Connection timed out. Hatası alıyorum. Bu konuda bilgi sahibi değilim  Rolleyes  Sanırım sorun ip ve portan kaynaklı oluyor bu sorunu nasıl çözerim?


idTCPClient.Host := '192.168.11.1';

 idTCPClient.Port := 1445; 


Bağlanmak istediğiniz IP yoksa yada port numarası hatalıysa bu hata kodunu alırsınız.
bağlanmak istediğiniz IP adresine ping atmayı deneyin. Eğer ping atıyorsa port numaranız hatalıdır. Yada network kablonuzda problem olabilir.
Kendi bilgisayarınızdaki Network kartının yapılandırması yani IP gurubu aynı mı ? Bu yüzden den hata alırsınız.
Cevapla
#6
Server'in dinleme portu 

   // ... listening port : GUEST CLIENT
   const GUEST_PORT = 20010;

şeklinde belirtilmiş.


Aşağıdaki şekilde denemek isteyebilirsiniz. 
    // ... set properties
    idTCPClient.Host            := '192.168.11.1'; // Server'in IP'si
    idTCPClient.Port            := GUEST_PORT; // 1445;
    // ... etc..
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#7
Sorun çözüldü emeklerinize sağlık
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Runtime'da Dinamik Form Oluşturma ve Formlar Arası Haberleşme Syntax 2 310 22-04-2021, Saat: 22:20
Son Yorum: Syntax
  Database ile haberleşme Atomkarınca 3 601 08-03-2021, Saat: 22:23
Son Yorum: tmrksmt
  Ödeme kaydedici cihaz ile haberleşme. tuna 4 904 06-03-2021, Saat: 10:58
Son Yorum: elixir84
  ÖKC ile haberleşme Aktolgali 8 918 24-02-2021, Saat: 22:35
Son Yorum: tmrksmt
  python, c++ for delphi tarzında eğitim, delphi ile diller arası entegrasyon eroniko 12 3.187 01-10-2020, Saat: 23:46
Son Yorum: eroniko



Konuyu Okuyanlar: 1 Ziyaretçi