?? idudpclient.pas
字號:
{ $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: 10409: IdUDPClient.pas
{
{ Rev 1.0 2002.11.12 10:59:00 PM czhower
}
unit IdUDPClient;
interface
uses
IdUDPBase;
type
//TODO: The send methods cause Host to be resolved each time
// change this to cache the resolution locally.
TIdUDPClient = class(TIdUDPBase)
protected
public
procedure Send(AData: string); overload;
procedure SendBuffer(var ABuffer; const AByteCount: integer); overload;
published
property Host: string read FHost write FHost;
property Port: Integer read FPort write FPort;
property ReceiveTimeout;
end;
implementation
{ TIdUDPClient }
procedure TIdUDPClient.Send(AData: string);
begin
Send(Host, Port, AData);
end;
procedure TIdUDPClient.SendBuffer(var ABuffer; const AByteCount: integer);
begin
SendBuffer(Host, Port, ABuffer, AByteCount);
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -