paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 19:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ TSocketStream now uses recv/sendto instead of read/write

Browse Source
This commit is contained in:
michael 2003-03-10 21:42:39 +00:00
parent 64fb522791
commit dd0d04e20f
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
fcl/inc/ssockets.pp
View File

@ -49,6 +49,8 @@ type
Constructor Create (AHandle : Longint);virtual;
destructor Destroy; override;
function Seek(Offset: Longint; Origin: Word): Longint; override;
Function Read (Var Buffer; Count : Longint) : longint; Override;
Function Write (Const Buffer; Count : Longint) :Longint; Override;
Property SocketOptions : TSocketOptions Read FSocketOptions
Write SetSocketOptions;
end;
@ -224,6 +226,26 @@ begin
Result:=0;
end;
Function TSocketStream.Read (Var Buffer; Count : Longint) : longint;
Var
Flags : longint;
begin
Flags:=0;
Result:=recv(handle,Buffer,count,flags);
end;
Function TSocketStream.Write (Const Buffer; Count : Longint) :Longint;
Var
Flags : longint;
begin
Flags:=0;
Result:=send(handle,Buffer,count,flags);
end;
{ ---------------------------------------------------------------------
TSocketServer
---------------------------------------------------------------------}
@ -520,7 +542,10 @@ end.
{
$Log$
Revision 1.15 2003-03-07 20:57:09 michael
Revision 1.16 2003-03-10 21:42:39 michael
+ TSocketStream now uses recv/sendto instead of read/write
Revision 1.15 2003/03/07 20:57:09 michael
+ Use resolve unit instead of inet unit.
Revision 1.14 2002/12/18 18:39:14 peter