QOTD

Quote of the Day

Summary

• Code example of using Synapse to query a public QOTD server.

History

A wiki article about QOTD

Accessing a QOTD server with Lazarus

• You need to download and compile the Synapse package
• Put tlntsend in your Implementation/Uses clause
• You will be using the QOTD port #17

procedure DisplayQOTD;
Var 
MyClient:TTelnetSend;
szQuote:String;

begin
MyClient := TTelNetSend.Create;
With MyClient do
begin
  TargetPort := '17';
  Timeout:=3000;
  TargetHost := 'alpha.mike-r.com';
end;
If MyClient.Login then
  begin
       szQuote := MyClient.RecvString;
       If szQuote = '' then
       begin
          MyClient.Send(LineEnding + LineEnding);
          szQuote := MyClient.RecvString;
       end;
  end
  else szQuote:='Could not retrieve quote';

MyClient.Logout;
ShowMessage(szQuote);
FreeAndNil(MyClient.);
end;

QOTD Servers

Here are some public QOTD servers:

• qotd.nngn.net
• qotd.atheistwisdom.com
• djxmmx.net
• alpha.mike-r.com

Windows users can install the 'Simple TCPIP services' and activate the Windows built-in QOTD server (localhost)