From 8d5ba8b33cad9eb86066fefc29102d2734f4a292 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Thu, 21 Jul 2016 09:48:22 +0000 Subject: improperly named helper renamed git-svn-id: http://svn.miranda-ng.org/main/trunk@17110 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/Actman/iac_inout.pas | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'plugins/Actman/iac_inout.pas') diff --git a/plugins/Actman/iac_inout.pas b/plugins/Actman/iac_inout.pas index b5fcbb466a..0626de08f2 100644 --- a/plugins/Actman/iac_inout.pas +++ b/plugins/Actman/iac_inout.pas @@ -88,6 +88,7 @@ var tmp:PWideChar; blob,p:PAnsiChar; w:PWideChar; + ccs:TCCSDATA; hContact:TMCONTACT; wnd:HWND; fexist:bool; @@ -272,7 +273,13 @@ begin if DBReadByte(hContact,p,'ChatRoom',0)<>1 then begin WidetoUTF8(last,blob); - CallContactService(hContact,PSS_MESSAGE,0,tlparam(blob)); + + ccs.hContact := hContact; + ccs.szProtoService := PSS_MESSAGE; + ccs.wParam := 0; + ccs.lParam := tlparam(blob); + Proto_ChainSend(0, @ccs); + dbei.cbSize :=sizeof(dbei); dbei.cbBlob :=StrLen(blob); dbei.pBlob :=pByte(blob); -- cgit v1.2.3