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

170 Chapter4
NetIPC Examples
Example 4
if dlen <> 12 then
writeln('receive data length error (length = ',dlen:1,')')
else
begin
expect := 'ok last one.';
for i := 1 to dlen do
if data[i] <> expect[i] then
writeln('receive data error #',i:1,' ',data[i]);
end;
(************************* IPCSHUTDOWN (cd) **************************)
(* shutdown the connection descriptor *)
writeln;
writeln('##### IPCSHUTDOWN (cd) ');
ipcshutdown ( cd_remote, , , result );
if result <> 0 then
writeln ('ipcshutdown cd_local failed',result);
(************************* IPCSHUTDOWN (dd) **************************)
(* shutdown the connection descriptor *)
writeln;
writeln('##### IPCSHUTDOWN (dd) ');
ipcshutdown ( dd, , , result );
if result <> 0 then
writeln ('ipcshutdown dd failed',result);
(************************* IPCSHUTDOWN (sd) ******************************)
(* shutdown the socket descriptor *)
writeln;
writeln('##### IPCSHUTDOWN (sd) ');
ipcshutdown ( sd_remote, , , result );
if result <> 0 then
writeln ('ipcshutdown sd_local failed',result);
end.