ağ haberleşmesi

[sadikacar60]

arkadaşlar bir konuda fikir almam lazım.
1 ana bilğisayar var 6 adet ağa bağlı pc var

ana bilğisayardan istenen bilğisayara aşagıdaki kod ile veri gönderiyorum. her zaman olmasada bazen bilği yolda kayboluyor.
gönderdiğim bilğinin karşı tarafa ulaştığını teyit edebileceğim bir iletişim sistemi var mı. aynı zamanda sık sık ağ kopması gibi kilitlenmelere neden oluyor.

bu konuda ne yapabilirim ne tür bir haberleşme kullanmalıyım 
saygılarımla

procedure ResepsiyonPCdataGonder(etiket,data:string);
begin
try

dmL1tcp .tcpGiden1.Host:=_LanePcIP;

dmL1tcp .tcpGiden1.Disconnect;
if not dmL1tcp.tcpGiden1.Connected then
dmL1tcp.tcpGiden1.Connect;

dmL1tcp.tcpGiden1.WriteLn(etiket);;
dmL1tcp.tcpGiden1.WriteLn(data);;

dmL1tcp.tcpGiden1.WriteLn('*dur*');
dmL1tcp.tcpGiden1.Disconnect;
except     //hata bölümü
    begin
    errorKaydet('ResepsiyonPCdataGonder');
    end;
    end;
end;

[frmman]

TCP soket haberleşmesini kullanabilirsiniz. Kısaca hata aldıysanız veri gitmemiş demektir. Buna göre hareket edebilirsiniz.
Not: Bahsettiğiniz kod örneğini eklemeyi unuttunuz.

[glagher]

eğer veri tabanı olarak sql server kullanıyorsan ağdaki bilgisayarlara veri göndermek için kod yazmana gerek yok.Ağ paylaşımı üzerinden veri tabanını paylaşabilirsin.

[SercanTEK]

Hocam haberleşme yöntemi nedir? Udp TCP ? Arada kullanılan switch nedir? Detaylı Bilgi verirseniz yardımcı olan sayısı artacaktır .

[yazilimuzmani]

Yöntem Olarak TCP Ip mi kullanıyorsunuz?

[sadikacar60]

IdTCPClient1
IdTCPServer1
indy client ve indy server elemanlarından kullanıyorum.
TCP ip kullanıyorum

[sadikacar60]

hocam anlattığınız olayı deneyip öğrenmeye çalışacağım. inşallah başarılı olurum.

fakat aklımda bir fikir var

aşağıdaki kod ile bilğisayara bağlanıp data okumaya çalışıyorum data okuya biliyorsam bağlantı var kabul ediyorum ve işleme devam 
ediyorum. fakat bağlantı yavaş olduğu zamanlarda hata ya neden oluyor program kitleniyor 1-2 dk sonra hata satırına düşüyor.

bunu yerine UDP ile bağlantıyı kontrol etsem UDP kitlenmeye neden olmaz diye biliyorum UDT ile data gönderip cevap alabilirsem bağlantı var kabul edip işleme devam ederim.  diye düşünüyorum.

sizin dediğiniz olay anladığım kadarıyla " try-except blogunda  bağlantı hatasını algıla ona göre tekrar işlem yap "  burda sorun programın kitlenmesi try-expect de işe yaramıyor 

saygılarımla

if DMlaneDBCON_Func_YarimOyunVarmi(1)=0 then begin end;  //önce l1 bağlantı var mı kontrol edelim



//*****************************************************************
function DMlaneDBCON_Func_YarimOyunVarmi(aLane:integer): integer;
var
sonuc:integer;
begin
try
 AktifLaneVTbaglan(aLane);
 DMlaneDBCON.IBQuery1.SQL.Clear;
 DMlaneDBCON.IBQuery1.SQL.Add('select * from TBL_OYUNDURUM where ID=1');
 DMlaneDBCON.IBQuery1.Open;
 if DMlaneDBCON.IBQuery1.fieldbyname('OYNDRM').value<>Null then
   begin
   sonuc:=StrToInt(DMlaneDBCON.IBQuery1.fieldbyname('OYNDRM').value);
   end;
   Result :=sonuc;
except//**
begin
end;
end; //**
end;
//*****************************************************************
//*****************************************************************

[sadikacar60]

teşekkürler hocam bahsettiğiniz konuları araştırıp öğrenmeye çalışacağım
saygılarımla