paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 21:30:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some cosmetic improvements (fixed wrong method visibilities etc.)

Browse Source 
* TSocketStream now closes the underlying file handle upon destruction
This commit is contained in:
sg 2001-12-17 20:21:35 +00:00
parent 2050ad3594
commit 1510d8016f
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fcl/inc/ssockets.pp
View File

@ -49,6 +49,7 @@ type
Constructor Create (AHandle : Longint);virtual;
function Seek(Offset: Longint; Origin: Word): Longint; override;
Property SocketOptions : TSocketOptions Read FSocketOptions
destructor Destroy; override;
Write SetSocketOptions;
end;
@ -99,10 +100,10 @@ type
FAddr : TINetSockAddr;
Function SockToStream (ASocket : Longint) : TSocketStream;Override;
Function Accept : Longint;override;
Public
FPort : Word;
Constructor Create(APort: Word);
Public
Procedure Bind; Override;
Constructor Create(APort: Word);
Property Port : Word Read FPort;
end;
@ -111,12 +112,12 @@ type
FUnixAddr : TUnixSockAddr;
FFileName : String;
Protected
Procedure Bind; Override;
Function Accept : Longint;override;
Function SockToStream (ASocket : Longint) : TSocketStream;Override;
Procedure Close; override;
Public
Constructor Create(AFileName : String);
Procedure Bind; Override;
Property FileName : String Read FFileName;
end;
@ -210,6 +211,12 @@ begin
GetSockOptions;
end;
destructor TSocketStream.Destroy;
begin
FileClose(Handle);
inherited Destroy;
end;
Procedure TSocketStream.GetSockOptions;
begin
@ -517,7 +524,11 @@ end.
{
$Log$
Revision 1.8 2001-11-24 20:59:13 carl
Revision 1.9 2001-12-17 20:21:35 sg
* Some cosmetic improvements (fixed wrong method visibilities etc.)
* TSocketStream now closes the underlying file handle upon destruction
Revision 1.8 2001/11/24 20:59:13 carl
* fix compilation problems for version 1.0.x branch
Revision 1.7 2001/11/20 18:53:29 peter