TCPSend

From SCAR Divi Manual
Jump to: navigation, search

Definition

function TCPSend(const iTCPClient: Integer; const s: string): Boolean;

Availability

SCAR Divi 3.26 > Current

Aliases

  • SendConnectionData (SCAR Divi 3.00 > Current)

Description

Sends a string s through a TCP connection associated with the index iTCPClient in the TCP client resource manager. Returns false if an error occurred.

Example

var
  i: Integer;
  Nick, s: string;
  Running: Boolean;

begin
  Running := True;
  Nick := 'Test' + IntToStr(Random(999));
  i := TCPConnect('irc.scar-divi.com', 6667, 1000);
  try
    TCPSend(i, 'NICK ' + Nick);
    TCPSend(i, 'USER ' + Nick + ' 0 * :' + Nick);
    TCPSend(i, 'JOIN #scar');
    while Running do
    begin
      TCPReceive(i, s);
      if s = '' then
        Wait(500)
      else
        WriteLn(s);
      if Pos('= #scar', s) > 0 then
      begin
        TCPSend(i, 'PRIVMSG #scar :Hello World!');
        Running := False;
      end;
    end;
  finally
    TCPFree(i);
  end;
end.

See Also