From bb03623fd3ba7b9cc456da2c9504bad87b80ace0 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Wed, 11 Jan 2017 19:51:30 +0300 Subject: - Netlib_Send & Netlib_Recv helpers became real functions, MS_NETLIB_SEND & MS_NETLIB_RECV died; - fix for dumping chunked http replies into a network log --- include/delphi/m_helpers.inc | 43 ------------------------------------------- 1 file changed, 43 deletions(-) (limited to 'include/delphi/m_helpers.inc') diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc index 3e9d70b32f..0c98ecd947 100644 --- a/include/delphi/m_helpers.inc +++ b/include/delphi/m_helpers.inc @@ -16,11 +16,6 @@ function CreateVersionStringPlugin(pluginInfo:PPluginInfoEx;buf:PAnsiChar):PAnsi function PLUGIN_MAKE_VERSION(a,b,c,d: Cardinal): int; function PLUGIN_CMP_VERSION(verA: LongInt; verB: LongInt): int; -function Netlib_CloseHandle(Handle: THANDLE): int; -function Netlib_GetBase64DecodedBufferSize(const cchEncoded: int): int; -function Netlib_GetBase64EncodedBufferSize(const cbDecoded: int): int; -function Netlib_Send(hConn: THANDLE; const buf: PAnsiChar; len: int; flags: int): int_ptr; -function Netlib_Recv(hConn: THANDLE; const buf: PAnsiChar; len: int; flags: int): int_ptr; procedure Netlib_Log(hNetLib: THANDLE; const sz: PAnsiChar); function mir_hashstr (const key:PAnsiChar):uint; {inline;} @@ -178,44 +173,6 @@ begin Inc(Result, (verA and $FF000000) - (verB and $FF000000)); end; -function Netlib_CloseHandle(Handle: THANDLE): int; - {$IFDEF AllowInline}inline;{$ENDIF} -begin - Result := CallService(MS_NETLIB_CLOSEHANDLE, Handle, 0); -end; - -function Netlib_GetBase64DecodedBufferSize(const cchEncoded: int): int; - {$IFDEF AllowInline}inline;{$ENDIF} -begin - Result := (cchEncoded shr 2) * 3; -end; - -function Netlib_GetBase64EncodedBufferSize(const cbDecoded: int): int; - {$IFDEF AllowInline}inline;{$ENDIF} -begin - Result := (cbDecoded * 4+11) div 12*4+1; -end; - -function Netlib_Send(hConn: THANDLE; const buf: PAnsiChar; len: int; flags: int): int_ptr; -var - nlb: TNETLIBBUFFER; -begin - nlb.buf := buf; - nlb.len := len; - nlb.flags := flags; - Result := CallService(MS_NETLIB_SEND, wParam(hConn), lParam(@nlb)); -end; - -function Netlib_Recv(hConn: THANDLE; const buf: PAnsiChar; len: int; flags: int): int_ptr; -var - nlb: TNETLIBBUFFER; -begin - nlb.buf := buf; - nlb.len := len; - nlb.flags := flags; - Result := CallService(MS_NETLIB_RECV, wParam(hConn), lParam(@nlb)); -end; - procedure Netlib_Log(hNetLib: THANDLE; const sz: PAnsiChar); {$IFDEF AllowInline}inline;{$ENDIF} begin -- cgit v1.2.3