PasSimpleSockets下載 - PasSimpleSockets源代碼下載

PasSimpleSockets

其他類別

1.0.0

下載

$$ { color {red} textbf {parning：}} $$ Fpsockets單元已添加到FCL中，並將使用FPC的下一個版本發貨。所有未來的發展都將在這種情況下進行。該存儲庫可能不再更新了。

passimplesockets

簡單的套筒API包裝器，用於Freepascal。以較少的cish方式提供對套接字API的訪問。

特徵：

以更現代的方式提供Berkley插座API的基本功能。還可以透明地處理IP-Address轉換和IPv6/ipv4雙堆棧。

功能（Delphi符號）：

 function TCPSocket (AType: TSocketType): TSocket; 
function UDPSocket (AType: TSocketType): TSocket; 

procedure CloseSocket ( const ASocket: TSocket); 

procedure Bind ( const ASocket: TSocket; const AAddress: TNetworkAddress; APort: Word);

procedure Listen ( const ASocket: TSocket; Backlog: Integer); 
function AcceptConnection ( const ASocket: TSocket): TSocketConnection; 

procedure Connect ( const ASocket: TSocket; const AAddress: TNetworkAddress; APort: Word); 

function Receive ( const ASocket: TSocket; ABuffer: Pointer; MaxSize: SizeInt; AFlags: Integer = 0 ): SizeInt; 
function ReceiveFrom ( const ASocket: TSocket; ABuffer: Pointer; MaxSize: SizeInt; AFlags: Integer = 0 ): TReceiveFromResult;
function Send ( const ASocket: TSocket; ABuffer: Pointer; ASize: SizeInt; AFlags: Integer = 0 ): SizeInt; 
function SendTo ( const ASocket: TSocket; const ReceiverAddr: TNetworkAddress;
                  ReceiverPort: Word; ABuffer: Pointer; ASize: SizeInt; AFlags: Integer = 0 ): SizeInt; 

function ReceiveStr ( const ASocket: TSocket; MaxLength: SizeInt; AFlags: Integer = 0 ): String; 
function ReceiveStrFrom ( const ASocket: TSocket; MaxLength: SizeInt = MaxUDPPackageSize; AFlags: Integer = 0 ): TReceiveFromStringMessage; 
function SendStr ( const ASocket: TSocket; const AData: String; AFlags: Integer = 0 ): SizeInt; 
function SendStrTo ( const ASocket: TSocket; const ReceiverAddr: TNetworkAddress; ReceiverPort: Word; const AData: String; AFlags: Integer = 0 ): SizeInt; 
 
function Receive <T>( const ASocket: TSocket; AFlags: Integer = 0 ): T; 
function ReceiveFrom <T>( const ASocket: TSocket; AFlags: Integer = 0 ): TReceiveFromMessage<T>; 
function Send <T>( const ASocket: TSocket; constref AData: T; AFlags: Integer = 0 ): SizeInt; 
function SendTo <T>( const ASocket: TSocket; constref ReceiverAddr: TNetworkAddress; ReceiverPort: Word; const AData: T; AFlags: Integer = 0 ): SizeInt; 

function ReceiveArray <T>( const ASocket: TSocket; MaxCount: SizeInt; AFlags: Integer = 0 ): TArray<T>; 
function ReceiveArrayFrom <T>( const ASocket: TSocket; MaxCount: SizeInt; AFlags: Integer = 0 ): TReceiveFromMessage<TArray<T>>; 
function SendArray <T>( const ASocket: TSocket; const AData: TArray<T>; AFlags: Integer = 0 ): SizeInt; 
function SendArrayTo <T>( const ASocket: TSocket; const ReceiverAddr: TNetworkAddress; ReceiverPort: Word; const AData: TArray<T>; AFlags: Integer = 0 ): SizeInt; 

// Timeout in MS
function DataAvailable ( const SocketArray: TSocketArray; TimeOut: Integer = 0 ): TSocketArray; 
function DataAvailable ( const ASocket: TSocket; TimeOut: Integer = 0 ): Boolean; 
function DataAvailable ( const SocketArray: array of TSocket; TimeOut: Integer = 0 ): TSocketArray;

例子

 program example;

{ $mode objfpc }{ $H+ }

uses
  SimpleSockets;

var
  Sock: TSocket;
  Msg: TUDPStringMessage;
begin
  Sock := UDPSocket(stDualStack);
  try
    Bind(Sock, ' 127.0.0.1 ' , 1337 );
    // Simple echo server: Receive message and answer with same message
    Msg := ReceiveStrFrom(Sock);
    WriteLn( ' Received from Client at ' , Msg.FromAddr.Address, ' : ' , Msg.FromPort, ' message: ' , Msg.Data);
    SendStrTo(Sock, Msg.FromAddr, Msg.FromPort, Msg.Data);
  finally
    CloseSocket(Sock);
  end ;
  ReadLn;
end .