pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

ssfpc.inc fixes by ACBr

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@242 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby
2022-01-08 17:12:50 +00:00
parent 8414d7b862
commit 009ef79a18
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ssfpc.inc
View File

@@ -364,7 +364,7 @@ type
case sin_family: sa_family_t of case sin_family: sa_family_t of
AF_INET: (sin_port: word; AF_INET: (sin_port: word;
sin_addr: TInAddr; sin_addr: TInAddr;
sin_zero: array[0..7] of Char); sin_zero: array[0..7] of byte);
AF_INET6: (sin6_port: word; AF_INET6: (sin6_port: word;
sin6_flowinfo: longword; sin6_flowinfo: longword;
sin6_addr: TInAddr6; sin6_addr: TInAddr6;
@@ -861,12 +861,14 @@ begin
if Result = 0 then if Result = 0 then
begin begin
ProtoEnt.Name := ''; ProtoEnt.Name := '';
GetProtocolByNumber(SockProtocol, ProtoEnt); if GetProtocolByNumber(SockProtocol, ProtoEnt) then
begin
ServEnt.port := 0; ServEnt.port := 0;
GetServiceByName(Port, ProtoEnt.Name, ServEnt); if GetServiceByName(Port, ProtoEnt.Name, ServEnt) then
Result := synsock.ntohs(ServEnt.port); Result := synsock.ntohs(ServEnt.port);
end; end;
end; end;
end;
function ResolveIPToName(IP: string; Family, SockProtocol, SockType: integer): string; function ResolveIPToName(IP: string; Family, SockProtocol, SockType: integer): string;
var var