mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-04 06:32:22 -05:00
f45d6bbad7
Squashes following commits: - Lape: New wrappers. - Lape: Updated exported methods. - Lape: Renamed wrapper files. - Lape: Renamed methods in exported methods. - Lape: Update MMLPSThread. - Lape: Compilation fixes.
125 lines
3.5 KiB
PHP
125 lines
3.5 KiB
PHP
procedure Lape_OpenWebPage(const Params: PParamArray);
|
|
begin
|
|
ps_OpenWebPage(Pstring(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_GetPage(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PString(Result)^ := ps_GetPage(PString(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_InitializeHTTPClient(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PInteger(Result)^ := ps_InitializeHTTPClient(PBoolean(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_FreeHTTPClient(const Params: PParamArray);
|
|
begin
|
|
ps_FreeHTTPClient(PInteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_GetHTTPPage(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_GetHTTPPage(PInteger(Params^[0])^, Pstring(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_SetHTTPUserAgent(const Params: PParamArray);
|
|
begin
|
|
ps_SetHTTPUserAgent(PInteger(Params^[0])^, Pstring(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_PostHTTPPage(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_PostHTTPPage(PInteger(Params^[0])^, Pstring(Params^[1])^, Pstring(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_PostHTTPPageEx(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_PostHTTPPageEx(PInteger(Params^[0])^, Pstring(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ClearPostData(const Params: PParamArray);
|
|
begin
|
|
ps_ClearPostData(PInteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_AddPostVariable(const Params: PParamArray);
|
|
begin
|
|
ps_AddPostVariable(PInteger(Params^[0])^, Pstring(Params^[1])^, Pstring(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_GetRawHeaders(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_GetRawHeaders(PInteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_SetProxy(const Params: PParamArray);
|
|
begin
|
|
ps_SetProxy(PInteger(Params^[0])^, PString(Params^[1])^, PString(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_RecvSocketStr(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_RecvSocketStr(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_RecvSocket(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_RecvSocket(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_RecvSocketEx(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_RecvSocketEx(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_SendSocket(const Params: PParamArray);
|
|
begin
|
|
ps_SendSocket(Pinteger(Params^[0])^, Pstring(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ConnectSocket(const Params: PParamArray);
|
|
begin
|
|
ps_ConnectSocket(Pinteger(Params^[0])^, Pstring(Params^[1])^, Pstring(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_CloseSocket(const Params: PParamArray);
|
|
begin
|
|
ps_CloseSocket(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_SetSocketTimeout(const Params: PParamArray);
|
|
begin
|
|
ps_SetSocketTimeout(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_BindSocket(const Params: PParamArray);
|
|
begin
|
|
ps_BindSocket(Pinteger(Params^[0])^, Pstring(Params^[1])^, Pstring(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_ListenSocket(const Params: PParamArray);
|
|
begin
|
|
ps_ListenSocket(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_AcceptSocket(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_AcceptSocket(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_SocketInfo(const Params: PParamArray);
|
|
begin
|
|
ps_SocketInfo(Pinteger(Params^[0])^, Pstring(Params^[1])^, Pstring(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_CreateSocket(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_CreateSocket();
|
|
end;
|
|
|
|
procedure Lape_FreeSocket(const Params: PParamArray);
|
|
begin
|
|
ps_FreeSocket(Pinteger(Params^[0])^);
|
|
end;
|