?? idchargenserver.pas
字號(hào):
{ $HDR$}
{**********************************************************************}
{ Unit archived using Team Coherence }
{ Team Coherence is Copyright 2002 by Quality Software Components }
{ }
{ For further information / comments, visit our WEB site at }
{ http://www.TeamCoherence.com }
{**********************************************************************}
{}
{ $Log: 10085: IdChargenServer.pas
{
{ Rev 1.0 2002.11.12 10:31:58 PM czhower
}
unit IdChargenServer;
interface
{
2000-Apr-17 Kudzu
Converted to Indy
Improved efficiency
Original Author: Ozz Nixon
}
uses
Classes,
IdAssignedNumbers,
IdTCPServer;
Type
TIdChargenServer = class(TIdTCPServer)
protected
function DoExecute(AThread: TIdPeerThread): boolean; override;
public
constructor Create(AOwner: TComponent); override;
published
property DefaultPort default IdPORT_CHARGEN;
end;
implementation
{ TIdChargenServer }
constructor TIdChargenServer.Create(AOwner: TComponent);
begin
inherited;
DefaultPort := IdPORT_CHARGEN;
end;
function TIdChargenServer.DoExecute(AThread: TIdPeerThread): boolean;
var
Counter, Width, Base: integer;
begin
Base := 0;
result := true;
Counter := 1;
Width := 1;
with AThread.Connection do begin
while Connected do begin
Write(Chr(Counter + 31));
Inc(Counter);
Inc(Width);
if Width = 72 then begin
Writeln(''); {Do not Localize}
Width := 1;
Inc(Base);
if Base = 95 then begin
Base := 1;
end;
Counter := Base;
End;
if Counter = 95 then begin
Counter := 1;
end;
end;
end;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -