NetIPC 3000/XL Programmer's Reference Manual (5958-8600)

Chapter 4 147
NetIPC Examples
Example 2
if messag1[i] <> expect[i] then
error := true;
if error then
begin
writeln ('did not receive expected single vector data, got:');
writeln ( messag1 );
end;
{ send a double vectored message to the local side }
messag1 := 'Abaracadabara ';
messag2 := 'magic!';
vd.d_desc_len1 := 15; { byte size of message }
vd.d_desc_len2 := 6; { byte size of message }
dlen := DESC_LEN * 2; { there are 2 descriptors }
ipcsend ( cd_remote, vd, dlen, flags, , result );
if result <> 0 then
writeln ('ipcsend failed');
{ do a dummy receive so that the other side can receive the last }
{ message before disconnection }
dlen := 1;
ipcrecv ( cd_remote, messag1, dlen );
{ sockets are released on process termination }
end.