Pascal (Lazarus/Delphi)

WebSocket Send/Receive Binary Data

See more WebSocket Examples

Demonstrates how to send and receive binary data on a websocket. This example uses Chilkat's websocket test echo server at ws://websockets.chilkat.io/wsChilkatEcho.ashx

Note: The websockets.chilkat.io server imposes the following limitations:
Messages must be 16K or less, and each connection is limited to a max of 16 echoed messages.

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.BinData,
  Chilkat.Rest,
  Chilkat.WebSocket;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  ws: TWebSocket;
  rest: TRest;
  responseBodyIgnored: string;
  jpgData: TBinData;
  finalFrame: Boolean;
  receivedFinalFrame: Boolean;
  jpgReceivedData: TBinData;

begin
  success := False;

  //  This example requires the Chilkat API to have been previously unlocked.
  //  See Global Unlock Sample for sample code.

  ws := TWebSocket.Create;

  //  For brevity, this example does not check for errors when etablishing the WebSocket connection.
  //  See Establish WebSocket Connection for more complete sample code for making the connection.

  rest := TRest.Create;
  //  Connect to websockets.chilkat.io
  //  IMPORTANT: websockets.chilkat.io accepts frames of up to 16K in size and echoes them back.
  //  IMPORTANT: The websockets.chilkat.io server imposes the following limitations: 
  //  ---------- Messages must be 16K or less, and each connection is limited to a max of 16 echoed messages.
  success := rest.Connect('websockets.chilkat.io',80,False,False);
  ws.UseConnection(rest);
  ws.AddClientHeaders();
  responseBodyIgnored := rest.FullRequestNoBody('GET','/wsChilkatEcho.ashx');
  success := ws.ValidateServerHandshake();
  if (success <> True) then
    begin
      WriteLn(ws.LastErrorText);
      Exit;
    end;

  //  This example sends a small JPG file (about 7KB) in a websocket frame.
  jpgData := TBinData.Create;
  success := jpgData.LoadFile('qa_data/jpg/starfish.jpg');

  WriteLn('Number of bytes to send = ' + jpgData.NumBytes);

  //  Send a frame containing the JPG image data.
  //  This will be the first and final frame, and therefore this constitutes the entire message.
  finalFrame := True;
  success := ws.SendFrameBd(jpgData,finalFrame);
  if (success <> True) then
    begin
      WriteLn(ws.LastErrorText);
      Exit;
    end;

  //  Read the echoed binary frame(s).
  //  (We sent the JPG file in a single frame, but we may receive the echo in multiple frames, but it will be one message.)
  //  Read an incoming frames until we receive the final frame.
  receivedFinalFrame := False;
  while receivedFinalFrame = False do
    begin

      //  The ws object is accumulating the received data internally.  Once we get the final frame, we'll get the 
      //  accumulated data which should constitute the entire JPG.
      success := ws.ReadFrame();
      if (success <> True) then
        begin
          WriteLn('Failed to receive a frame');
          WriteLn('ReadFrame fail reason = ' + ws.ReadFrameFailReason);
          WriteLn(ws.LastErrorText);
          Exit;
        end;

      receivedFinalFrame := ws.FinalFrame;

      //  Show the opcode and final frame bit for the frame just received:
      WriteLn('Frame opcode: ' + ws.FrameOpcode);
      WriteLn('Final frame: ' + receivedFinalFrame);
    end;

  //  Get the accumulated received data.
  jpgReceivedData := TBinData.Create;
  ws.GetFrameDataBd(jpgReceivedData);
  WriteLn('Received ' + jpgReceivedData.NumBytes + ' bytes');

  //  Save the received JPG to a file so we can check it..
  jpgReceivedData.WriteFile('qa_output/starfish_ws.jpg');

  //  Close the websocket connection.
  success := ws.SendClose(True,1000,'Closing this websocket.');
  if (success <> True) then
    begin
      WriteLn(ws.LastErrorText);
      Exit;
    end;

  //  Read the Close response.
  success := ws.ReadFrame();
  if (success <> True) then
    begin
      WriteLn('ReadFrame fail reason = ' + ws.ReadFrameFailReason);
      WriteLn(ws.LastErrorText);
      Exit;
    end;

  //  Should receive the "Close" opcode.
  WriteLn('Received opcode: ' + ws.FrameOpcode);
  //  Should be the same status code we sent (1000)
  WriteLn('Received close status code: ' + ws.CloseStatusCode);
  //  The server may echo the close reason.  If not, this will be empty.
  WriteLn('Echoed close reason: ' + ws.CloseReason);

  WriteLn('Success.');


  ws.Free;
  rest.Free;
  jpgData.Free;
  jpgReceivedData.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.