paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 12:10:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* sendto overload

Browse Source
This commit is contained in:
peter 2003-01-01 14:34:22 +00:00
parent 4b165022a1
commit 053773d873
2 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win32/sockets.pp
View File

@ -56,7 +56,7 @@ end;
Function SendTo(Sock:Longint;Const Buf;BufLen,Flags:Longint;Var Addr; AddrLen : Longint):Longint;
begin
// Dubious construct, this should be checked.
SendTo:=WinSock.SendTo(Sock,pchar(@Buf),BufLen,Flags,Winsock.TSockAddr(Addr),AddrLen);
SendTo:=WinSock.SendTo(Sock,Buf,BufLen,Flags,Winsock.TSockAddr(Addr),AddrLen);
if SendTo<0 then
SocketError:=WSAGetLastError
else
@ -245,7 +245,10 @@ finalization
end.
{
$Log$
Revision 1.9 2002-09-07 16:01:29 peter
Revision 1.10 2003-01-01 14:34:22 peter
* sendto overload
Revision 1.9 2002/09/07 16:01:29 peter
* old logs removed and tabs fixed
Revision 1.8 2002/07/17 07:28:21 pierre

11
rtl/win32/winsock.pp
View File

@ -244,7 +244,7 @@ unit winsock;
sa_family : Smallint; (* 2 byte *)
sa_data : array[0..14-1] of char; (* 14 byte *)
);
end;
end;
TSockAddrIn = sockaddr_in;
PSockAddrIn = ^TSockAddrIn;
TSockAddr = sockaddr_in;
@ -716,7 +716,9 @@ unit winsock;
external winsockdll name 'select';
function send(s:TSocket;Const buf; len:tOS_INT; flags:tOS_INT):tOS_INT;stdcall;
external winsockdll name 'send';
function sendto(s:TSocket; buf:pchar; len:tOS_INT; flags:tOS_INT;Const toaddr:TSockAddr; tolen:tOS_INT):tOS_INT;stdcall;
function sendto(s:TSocket; buf:pchar; len:tOS_INT; flags:tOS_INT;toaddr:PSockAddr; tolen:tOS_INT):tOS_INT;stdcall;
external winsockdll name 'sendto';
function sendto(s:TSocket; Const buf; len:tOS_INT; flags:tOS_INT;Const toaddr:TSockAddr; tolen:tOS_INT):tOS_INT;stdcall;
external winsockdll name 'sendto';
function setsockopt(s:TSocket; level:tOS_INT; optname:tOS_INT; optval:pchar; optlen:tOS_INT):tOS_INT;stdcall;
external winsockdll name 'setsockopt';
@ -886,7 +888,10 @@ unit winsock;
end.
{
$Log$
Revision 1.11 2002-12-25 01:04:03 peter
Revision 1.12 2003-01-01 14:34:22 peter
* sendto overload
Revision 1.11 2002/12/25 01:04:03 peter
* sendto overload added
Revision 1.10 2002/09/07 21:28:10 carl