TCP/IP Socket Connect to Remote Host:Port

Demonstrates how to create a TCP/IP socket, connect to a remote host:port, and receive a "Hello World!" message.

Download Chilkat Socket ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATSOCKETLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
socket: TChilkatSocket;
success: Integer;
ssl: Integer;
maxWaitMillisec: Integer;
receivedMsg: String;

begin
socket := TChilkatSocket.Create(Self);

success := socket.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Failed to unlock component');
    Exit;
  end;

//  Connect to port 5555 of localhost.
//  The string "localhost" is for testing on a single computer.
//  It would typically be replaced with an IP hostname, such
//  as "www.chilkatsoft.com".
ssl := 0;
maxWaitMillisec := 20000;
success := socket.Connect('localhost',5555,ssl,maxWaitMillisec);
if (success <> 1) then
  begin
    ShowMessage(socket.LastErrorText);
    Exit;
  end;

//  Set maximum timeouts for reading an writing (in millisec)
socket.MaxReadIdleMs := 10000;
socket.MaxSendIdleMs := 10000;

//  The server (in this example) is going to send a "Hello World!"
//  message.  Read it:

receivedMsg := socket.ReceiveString();
if (receivedMsg = NULL ) then
  begin
    ShowMessage(socket.LastErrorText);
    Exit;
  end;

//  Close the connection with the server
//  Wait a max of 20 seconds (20000 millsec)
socket.Close(20000);

ShowMessage(receivedMsg);
end;