Get string from 3rd party device by TCPIP

Hello,

I am using Wiser to communication with 3rd party device.

I would like to build up the LOGIC and open the port for the message rerceiving.

The string are,

repeat
ReadClientSocket (1, ABC, #13#10);
if ABC = '1' then
begin
SetLightingState(1, ON);
end;
until ABC = '0';

However, it cannot pass the complies test and I don't know what's going wrong on this!

Thank you for all buddy help!

 

If you declare a string called ABC, then the code you have provided will compile. To do this, in the Global Variables section, add this line:

Code:

ABC : string;

Although this will make it compile, it will not make the code work. You need to put a delay in the loop, something like this:

Code:

repeat
  ReadClientSocket (1, ABC, #13#10);
  if ABC = '1' then
  begin
    SetLightingState(1, ON);
  end;
  delay(0.2);
until ABC = '0';

 

Sorry, thank a lot!

But i don't know where can i place the "ABC : string;" as well.

However, I have follow the "LOGIC ENGINE" for the following statement, it still not pass the complie.

ReadClientSocket(1, ReceivedCommand, #13#10);
ReceivedCommand := string;

if length(ReceivedCommand) > 0 then
begin
if pos('on', ReceivedCommand) = 1 then
begin
Copy(GroupString, ReceivedCommand, 4, 3);
Group := StringToInt(GroupString);
SetLightingState(Group, ON);
end
else
if pos('off', ReceivedCommand) = 1 then
begin
Copy(GroupString, ReceivedCommand, 5, 3);
Group := StringToInt(GroupString);
SetLightingState(Group, OFF);
end
else
end;

How can I solve it?

Thank a lot for your help since I just the begin to be the programmer!

 

To do this, in the Global Variables section, add this line:
{Enter Variable definitions here}
Groupstring : string;
ReceivedCommand : string;
Group : integer;

then in the module part put; two things try indenting your code, makes it easyier to read and debug also do not use things that can be reserver words like "group", maybe use some thing like "mygroup".

ReadClientSocket(1, ReceivedCommand, #13#10);

if length(ReceivedCommand) > 0 then
begin
if pos('on', ReceivedCommand) = 1 then

begin
Copy(GroupString, ReceivedCommand, 4, 3);
Group := StringToInt(GroupString);
SetLightingState(Group, ON);
end​

else
if pos('off', ReceivedCommand) = 1 then

begin
Copy(GroupString, ReceivedCommand, 5, 3);
Group := StringToInt(GroupString);
SetLightingState(Group, OFF);
end​

end;


and it will compile.

Dave

 

Thank a lot!

But, still have a lot of error, how can I solve it?



https://skydrive.live.com/redir.aspx?cid=9ab298d10c5ecf8c&resid=9AB298D10C5ECF8C!234&parid=root

 

Of coarse you do as you have not used the Global Variables section

To do this, in the Global Variables section, add this line:
{Enter Variable definitions here}
Groupstring : string;
ReceivedCommand : string;
Group : integer;