TClientSocket komut dizesi göndermek

[AliCinkilic]

Merhaba,

TClientSocket ile aşağıdaki şekilde komut göndermem lazım. Ancak her komut gönderiminden sonra gelen cevap ACK ise sonraki komuta geçmem NAK ise ENQ gönderip tekrar ACK beklemem lazım eğer NAK gelirse tekrar ENQ gitmeli.

Komutlar sıra ile gönderilirken cevap gelmeden diğer komuta geçmemeli.
Burada bekleme işlemini en efektif nasıl yapabilirim?

[G.Arkas]

ClientSocketin OnRead eventine komutları sıralarsın. Gelen komuta göre yeni komut gönderirsin. Zaten OnRead sunucudan yanıt bekler senin beklemek için bişey yapmana gerek yok. Burada kullanacağın olay ReceiveText dir. Bunu bekleyeceksin.

Kod: Tümünü seç

procedure OnRead();
var
sCmd:String;
begin
sCmd:=Socket.ReceiveText;

if sCmd = 'ACK' then
Socket.Sendtext('Sonraki komut');

İlk komutu Button ile göndereceğin için gelen cevap zaten OnRead'e düşecek. Buradan gelen komuta göre komut gönderirsin. Socket mantığı bu şekilde çalışır.

[AliCinkilic]

Komut gönderim işlemini onread da değil de başka bir procedure üzerinden yapmam gerekiyor.

[mrmarman]

Hayır @G.Arkas haklı.
OnRead ile verinin geldiği Socket üzerinden cevap yollayacak, karşı tarafın da alıp almadığını teyid ederseniz işlem gerçekleşti kabul edersiniz.

Kendi projelerimde anladım manasındaki bu kabul işlemini tek bir tilda ( ~) işareti kullanırım.

Bu şekilde eğer dediğiniz ikincil işlem lazım gelse de önce anladım deyip beklentiye cevap verip ondan sonra aynı socket üzerinden ikincil işlevi hayata geçirirsiniz.

[AliCinkilic]

Komutları array e doldurup mecburen onread e taşıdım artık.