Sending Single characters using sockets

[HanwellChris]

Hi,

I am trying to simulate a piece of equipment with a Delphi program for test purposes. The equipment that I am trying to simulate connects via ethernet and communicates through a defined socket (3033). The command protocol that this device uses is very basic and it involves waiting for single ASCII character commands, to which it responds with a single ASCII acknowledge character (I think the equipment must have evolved from an old RS232 based system).

I am used to using sockets for sending CRLF delimited strings, but in trying to write a simulation of this equipment, I have had no success at all in detecting incoming single characters which are not terminated in CRLF.

I am using Delphi 5, and I am trying to implement the simulated equipment as a server, and have tried the built in socket component as well as IPRO, but there doesnt seem to be any equivalent of "GetChar" for sockets.

Can anyone point me in the right direction please.

Thanks

 

[Griffyn]

Indy 10's (

http://www.indyproject.org)

TidTCPServer has a ReadChar method.

In your OnExecute event, have this sort of code:

[b]procedure[/b] TMainForm.IdTCPServer1Execute(AContext: TIdContext);
[b]var[/b]
  k : Char;
[b]begin[/b]
  [b]with[/b] AContext.Connection.IOHandler [b]do[/b]
  [b]begin[/b]
    k := ReadChar;
    [b]case[/b] k [b]of[/b]
      [navy]// snip[/navy]
    [b]end[/b];  
  [b]end[/b];
[b]end[/b];