Игорь Горбонос> Автор: Дмитрий77
> Так что не разжует никто?
Дима, это нужно вычитывать в документации к твоему Опалу. Нужно ли делать OpalFreeMessage для полученых сообщений, или
система их сама внутри освобождает после отдачи тебе функцией GetMessage(). Или спрашивать у разработчика.
Ну, разработчик ответил буквально следующее:
РазработчикAll I can say is if you do not use OpalFreeMessage() you will probably leak memory.
Note OpalFreeMessage is only used for messages provided as return value by OpalGetMessage or OpalSendMessage, it is not for messages you create.
Ну т.е. вот так тогда надо???:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
Public Declare Function OpalSendMessage_SetGeneralParameters Lib "opal.dll" Alias "OpalSendMessage" _
(ByVal opal As Long, ByRef Message As OpalMessageGeneral) As Long 'возвращает Ptr на ответный Message
Public Declare Function OpalFreeMessage Lib "opal.dll" (ByVal ptr As Long) As Long
Private Sub CommandSetGeneral_Click()
Dim NewMes As OpalMessageGeneral
Dim BackMesPtr As Long 'сюда принимаем Ptr на ответный Message
Dim MesType As OpalMessageType
NewMes.m_type = OpalCmdSetGeneralParameters
NewMes.m_param.m_audioRecordDevice = VarPtr(StringToMas(ListRecorder.Text).ByteStr(0))
...
BackMesPtr = OpalSendMessage_SetGeneralParameters(L, NewMes) 'получили Ptr на ответный Message в BackMesPtr
'сначала разбираемся с BackMesPtr
TextBoxAdd TextSendMes, "CmdSetGeneralParameters: BackMesPtr=" & BackMesPtr
If BackMesPtr = 0 Then Exit Sub
CopyMemory MesType, ByVal BackMesPtr, 4
If MesType = OpalIndCommandError Then
Dim s_CommandError As Long
CopyMemory s_CommandError, ByVal BackMesPtr + 4, 4
TextBoxAdd TextSendMes, "Error: " & PtrToString(s_CommandError)
ElseIf MesType = OpalCmdSetGeneralParameters Then
Dim s_GeneralParameters As OpalParamGeneral
CopyMemory ByVal VarPtr(s_GeneralParameters), ByVal BackMesPtr + 4, LenB(s_GeneralParameters)
With s_GeneralParameters
...
'разбор BackMesPtr
End With
End If
'разобравшись даем команду на удаление обратного Message по его указателю BackMesPtr пусть этим занимается Opal
OpalFreeMessage BackMesPtr
...
End Sub
В Opal имеем следующий код по поводу OpalFreeMessage:
1.
2.
3.
4.
5.
6.
7.
8.
9.
void OPAL_EXPORT OpalFreeMessage(OpalMessage * message)
{
if (message != NULL){
PTRACE(1, "OpalC\tOpalFreeMessage received " << message->m_type);
free(message);
}
}
_CRTIMP _CRTNOALIAS void __cdecl free(__inout_opt void * _Memory);
Судя по логу Opal когда так делаю,Opal понимает о чем идет речь:
1.
0:00.936 vb6 OpalC OpalFreeMessage received CmdSetGeneralParameters
Смотрим
описание функции free
Deallocates or frees a memory block.
The free function deallocates a memory block (memblock) that was previously allocated by a call to calloc, malloc, or realloc. The number of freed bytes is equivalent to the number of bytes requested when the block was allocated (or reallocated, in the case of realloc).
mallloc вроде как используется при подготовке обратного сообщения на которое указывает BackMesPtr:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
bool OpalContext::SendMessage(const OpalMessagePtr & message, OpalMessagePtr & response)
{
...
response.SetType(...);
void OpalMessagePtr::SetType(OpalMessageType type)
{
...
m_message = (OpalMessage *)malloc(sizeof(OpalMessage)); // Use malloc to be compatible with OpalFreeMessage
memset(m_message, 0, sizeof(OpalMessage));
m_message->m_type = type;
}
Т.е. логично ли и правдоподобно следующее?
1) Посылаю OpalSendMessage, получаю назад указатель BackMesPtr
2) По указателю BackMesPtr ковыряю память и обрабатываю Message (моим VB6 приложением)
3)
Скармливаю указатель BackMesPtr ф-ции OpalFreeMessage Lib "opal.dll" (ByVal ptr As Long) (т.к. уже его обработал)
(Если этого не делаю, теряю память, занимаемую Message)
4) Дальше не мои проблемы и память занимаемая Message освобождается на стороне Opal (т.к. мой указатель известен Opal, ибо был заранее препарирован с помощью
malloc и он знает как делать
free ).
Так что ли?
