TCPSend
From SCAR Divi Manual
(Redirected from SendConnectionData)
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.