Emulator-Archive/fpPS4
1
0
Fork 0
mirror of https://github.com/red-prig/fpPS4.git synced 2024-11-27 00:20:36 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

+

Browse Source
This commit is contained in:
Pavel 2023-11-08 17:05:47 +03:00
parent fea4a0e3c8
commit 73e8b0cb7c
2 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/ps4_libscehttp.pas
View File

@ -22,6 +22,7 @@ const
SCE_HTTP_ERROR_OUT_OF_MEMORY=$80431022;
SCE_HTTP_ERROR_INVALID_VALUE=$804311fe;
SCE_HTTP_ERROR_INVALID_URL =$80433060;
SCE_HTTP_ERROR_NETWORK =$80431063;
type
SceHttpUriElement=packed record

26
src/ps4_libscenet.pas
View File

@ -12,6 +12,14 @@ uses
implementation
const
SCE_NET_EINVAL =22;
SCE_NET_ENOSPC =28;
SCE_NET_EAFNOSUPPORT=47;
SCE_NET_EHOSTUNREACH=65;
threadvar
sce_net_errno:Integer;
@ -103,25 +111,25 @@ end;
function ps4_sceNetPoolCreate(name:PChar;size,flags:Integer):Integer; SysV_ABI_CDecl;
begin
Writeln('sceNetPoolCreate:',name,':',size,':',flags);
//Writeln('sceNetPoolCreate:',name,':',size,':',flags);
Result:=2; // iNetLibId
end;
function ps4_sceNetPoolDestroy(memid:Integer):Integer; SysV_ABI_CDecl;
begin
Writeln('sceNetPoolDestroy:',memid);
//Writeln('sceNetPoolDestroy:',memid);
Result:=0;
end;
function ps4_sceNetResolverCreate(name:PChar;memid,flags:Integer):Integer; SysV_ABI_CDecl;
begin
Writeln('sceNetResolverCreate:',name,':',memid);
//Writeln('sceNetResolverCreate:',name,':',memid);
Result:=111;
end;
function ps4_sceNetEpollCreate(name:PChar;flags:Integer):Integer; SysV_ABI_CDecl;
begin
Writeln('sceNetEpollCreate:',name,':',flags);
//Writeln('sceNetEpollCreate:',name,':',flags);
Result:=3;
end;
@ -129,10 +137,6 @@ const
AF_INET = 2;
AF_INET6=28;
SCE_NET_EINVAL =22;
SCE_NET_ENOSPC =28;
SCE_NET_EAFNOSUPPORT=47;
function ps4_sceNetInetPton(af:Integer;
src:Pchar;
dst:Pointer):Integer; SysV_ABI_CDecl;
@ -354,11 +358,7 @@ end;
function ps4_sceNetResolverStartAton(rid:Integer; const addr:pSceNetInAddr; hostname:PChar; hostname_len:Integer; timeout:Integer; retry:Integer; flags:Integer):Integer; SysV_ABI_CDecl;
begin
if (hostname<>nil) then
begin
FillChar(hostname^,hostname_len,0);
end;
Result:=0;
Exit(_set_net_errno(SCE_NET_EHOSTUNREACH));
end;
function ps4_sceNetResolverDestroy(rid:Integer):Integer; SysV_ABI_CDecl;