QOTD

From Free Pascal wiki
Jump to navigationJump to search

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)