QOTD
From Free Pascal wiki
Jump to navigationJump to searchThe printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
Summary
- Code example of using Synapse to query a public QOTD server.
History
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)