Anonymous user
Sockets: Difference between revisions
Added Delphi example
No edit summary |
(Added Delphi example) |
||
Line 257:
socket.close() ;
}</lang>
<lang Delphi>program Sockets;
{$APPTYPE CONSOLE}
uses IdTCPClient;
var
lTCPClient: TIdTCPClient;
begin
lTCPClient := TIdTCPClient.Create(nil);
try
lTCPClient.Host := '127.0.0.1';
lTCPClient.Port := 256;
lTCPClient.Connect;
lTCPClient.IOHandler.WriteLn('hello socket world');
finally
lTCPClient.Free;
end;
end.</lang>
=={{header|Erlang}}==
| |||