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

Chapter 4 153
NetIPC Examples
Example 3
else
begin
writeln ('CALL CONF packet received ...');
writeln;
end;
{------------------------------------}
{ The connection is now opened. }
{------------------------------------}
end; {else connect}
end; {connect}
PROCEDURE data_transfer ( var rc : rc_type);
var
buffer : buffer_type;
buffer_len : integer;
chrono : integer;
i : shint;
{-------------------------DATA_TRANSFER-----------------------------}
{ PURPOSE : Manage the data transfer with the server }
{ Evaluate the transit time }
{-------------------------------------------------------------------}
begin {data transfer}
i := 1;
chrono := timer;
while (i <= c_nb_loop) and (rc = done) do
begin
buffer := c_patern;
buffer_len := c_buffer_len;
{------------------------------------}
{ Send data packet on the line. }
{------------------------------------}
IPCSend (p_vc_desc,buffer,buffer_len,,,result);
writeln ('DATA packet sent ...');
if result <> 0 then
begin
check (result,i_send);
rc := error;
end
else
begin
{------------------------------------}
{ Receive data packet echoed by the }
{ remote server. }
{------------------------------------}
IPCRecv (p_vc_desc,buffer,buffer_len,,,result);
writeln ('DATA packet received ...');
writeln;
if result <> 0 then
begin
check (result,i_recv);
rc := error;
end
else