Socket Problemi

[m_ekici]

s.a.
TServerSocket'e ve TClientSocket'dan aşağıdaki kod ile text gönderiyorum.

Kod: Tümünü seç

LSocket.Host := dbf.DllHost;
LSocket.Port := dbf.DllPort;
LSocket.Active := true;
STxt := 'info : ('+IntToStr(Tur) + ')(' + IntToStr(AkN) + ')';
LSocket.Socket.SendText(STxt);
LSocket.Socket.SendText('2.Satır-------');
LSocket.Socket.SendText('3.Satır-------');
LSocket.Socket.SendText('4.Satır-------');
LSocket.Close;

Server (TServerSocket ) tarafından OnAccept, OnClientConnnect, OnClientDisconnect eventleri tetikleniyor, fakat OnClientRead tetiklenmiyor. Neden olabilir?

[freeman35]

unicode problem yaratabilir belki, göndereceğin string i ansistring e çevirip göndermeyi dene
kolay gele

[m_ekici]

Denemiştim onu. onRead de hiçbirşey gelmiyor. Daha doğrusu OnClientRead procedurune hiç gitmiyor.

[SimaWB]

ServerType := stNonBlocking şeklinde kullanıyorsanız TClientSocket'i aktif eder-etmez mesaj göndermemelisiniz. TClientSocket'in OnConnect eventini beklemek zorundasınız. Tahminim problemin kaynağı bu.

[mrmarman]

@SimaWB haklı,

Her Connect işlemiyle yapılacak gönderiden sonra socket'i close ediyorsanız; SENDTEXT kodlarınızı TClientSocket'in OnConnect eventine yazmalısınız. Direkt

Kod: Tümünü seç

Socket.SendText( strGonderi );

şeklinde yazabilirsiniz.

[m_ekici]

onConnect de gönderdiğimde yine gitmedi. (zannettim) Fakat ard arda 2 adet gönderdim 2.si gitti. 1. si kayboluyor. ?

[mrmarman]

Merhaba.

Sana küçük bir örnek hazırladım. Bu mesajın ekinde.

- Örnekte
1. Bir ServerSocket projesi bir de ClientSocket projesi iki farklı klasörde yer alıyor.
2. ServerSocket açık değilken ClientSocket bağlantısı başarısız olduğunda hata kodu ile algılanması.
3. Gönderilen mesajın ulaştığına ilişkin geri-besleme teyit edilmesi mekanizması.

ele alınmıştır.

ServerSocket


ClientSocket

[mrmarman]

Sorduğun sorudan şunu unuttuğumu fark ettim.

Bağlanır bağlanmaz mesaj gönderip bağlantıyı kesmesi.

Aşağıdaki örneği de eklersen; ClientSocket projesinde xGonderi global değişkenine bir değer verir ondan sonra bağlantı kurarsan sistem bu değeri gördüğünden otomatik olarak SENDTEXT ile gönderir ve bağlantıyı sonlandırır.

Kod: Tümünü seç

Var
  xGonderi : String;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  xGonderi := 'Bağlandım ve Gönderdim...';
  ClientSocket1.Address := Edit1.Text;
  ClientSocket1.Port    := SpinEdit1.Value;
  ClientSocket1.Active  := True;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  if xGonderi <> '' then begin
    Socket.SendText( xGonderi );
    xGonderi := '';
    TClientSocket(Sender).Active := False;
  end;
end;

Başarlar.

[mrmarman]

Merhaba.

Forumda ve netteki diğer forumlarda oldukça fazla Delphi XE5 sorusu görünce ben de embarcadero'dan indirip bilgisayarıma kurdum...
Bu örneği XE5'de açtım ve çalıştırdım. Sorunsuz çalışıyor. TEST edildi, onaylandı.