internal DdeTransaction(DdemlTransaction transaction)
{
_DdemlObject = transaction;
}
internal bool ProcessCallback(DdemlTransaction transaction)
{
// This is here to alias the transaction object with a shorter variable name.
DdemlTransaction t = transaction;
switch (t.uType)
{
case Ddeml.XTYP_ADVREQ:
{
StringBuilder psz;
int length;
// Get the topic name from the hsz1 string handle.
psz = new StringBuilder(Ddeml.MAX_STRING_SIZE);
length = Ddeml.DdeQueryString(_InstanceId, t.hsz1, psz, psz.Capacity, Ddeml.CP_WINANSI);
string topic = psz.ToString();
// Get the item name from the hsz2 string handle.
psz = new StringBuilder(Ddeml.MAX_STRING_SIZE);
length = Ddeml.DdeQueryString(_InstanceId, t.hsz2, psz, psz.Capacity, Ddeml.CP_WINANSI);
string item = psz.ToString();
// Create the advise request cache key.
string key = topic + "!" + item + ":" + t.uFmt.ToString();
// Get the data being advised if the cache does not contain it already.
if (!_AdviseRequestCache.ContainsKey(key))
{
// Get the data from the subclass.
byte[] data = OnAdvise(topic, item, t.uFmt);
// Add the data to the cache because it will be needed later.
_AdviseRequestCache.Add(key, data);
}
// Get the data from the advise request cache.
byte[] cached = _AdviseRequestCache[key];
// Get the number of remaining transactions of this type for the same topic name, item name, and format tuple.
int remaining = t.dwData1.ToInt32();
// If this is the last transaction then free the data handle.
if (remaining == 0)
{
// TODO: Does the data handle really need to be freed here?
// Remove the data from the cache because it is no longer needed.
_AdviseRequestCache.Remove(key);
}
// Create and return the data handle representing the data being advised.
if (cached != null && cached.Length > 0)
{
t.dwRet = Ddeml.DdeCreateDataHandle(_InstanceId, cached, cached.Length, 0, t.hsz2, t.uFmt, 0);
return true;
}
// This transaction could not be processed here.
return false;
}
case Ddeml.XTYP_ADVSTART:
{
// Get the item name from the hsz2 string handle.
StringBuilder psz = new StringBuilder(Ddeml.MAX_STRING_SIZE);
int length = Ddeml.DdeQueryString(_InstanceId, t.hsz2, psz, psz.Capacity, Ddeml.CP_WINANSI);
string item = psz.ToString();
// Get the Conversation from the conversation table.
DdemlConversation conversation = _ConversationTable[t.hConv];
// Get a value indicating whether an advise loop should be initiated from the subclass.
t.dwRet = OnStartAdvise(conversation, item, t.uFmt) ? new IntPtr(1) : IntPtr.Zero;
return true;
}
case Ddeml.XTYP_ADVSTOP:
{
// Get the item name from the hsz2 string handle.
StringBuilder psz = new StringBuilder(Ddeml.MAX_STRING_SIZE);
int length = Ddeml.DdeQueryString(_InstanceId, t.hsz2, psz, psz.Capacity, Ddeml.CP_WINANSI);
string item = psz.ToString();
// Get the Conversation from the conversation table.
DdemlConversation conversation = _ConversationTable[t.hConv];
// Inform the subclass that the advise loop has been terminated.
OnStopAdvise(conversation, item);
// Return zero to indicate that there are no problems.
t.dwRet = IntPtr.Zero;
return true;
}
case Ddeml.XTYP_CONNECT:
{
// Get the topic name from the hsz1 string handle.
StringBuilder psz = new StringBuilder(Ddeml.MAX_STRING_SIZE);
int length = Ddeml.DdeQueryString(_InstanceId, t.hsz1, psz, psz.Capacity, Ddeml.CP_WINANSI);
string topic = psz.ToString();
// Get a value from the subclass indicating whether the connection should be allowed.
t.dwRet = OnBeforeConnect(topic) ? new IntPtr(1) : IntPtr.Zero;
return true;
}
case Ddeml.XTYP_CONNECT_CONFIRM:
{
// Get the topic name from the hsz1 string handle.
StringBuilder psz = new StringBuilder(Ddeml.MAX_STRING_SIZE);
int length = Ddeml.DdeQueryString(_InstanceId, t.hsz1, psz, psz.Capacity, Ddeml.CP_WINANSI);
string topic = psz.ToString();
// Create a Conversation object and add it to the conversation table.
_ConversationTable.Add(t.hConv, new DdemlConversation(t.hConv, _Service, topic));
// Inform the subclass that a conversation has been established.
OnAfterConnect(_ConversationTable[t.hConv]);
// Return zero to indicate that there are no problems.
t.dwRet = IntPtr.Zero;
return true;
}
case Ddeml.XTYP_DISCONNECT:
{
// Get the Conversation from the conversation table.
DdemlConversation conversation = _ConversationTable[t.hConv];
// Remove the Conversation from the conversation table.
_ConversationTable.Remove(t.hConv);
// Inform the subclass that the conversation has been disconnected.
OnDisconnect(conversation);
// Return zero to indicate that there are no problems.
t.dwRet = IntPtr.Zero;
return true;
}
case Ddeml.XTYP_EXECUTE:
{
// Get the command from the data handle.
int length = Ddeml.DdeGetData(t.hData, null, 0, 0);
byte[] data = new byte[length];
length = Ddeml.DdeGetData(t.hData, data, data.Length, 0);
string command = _Context.Encoding.GetString(data, 0, data.Length);
if (command[command.Length - 1] == '\0')
{
command = command.Substring(0, command.Length - 1);
}
// Get the Conversation from the conversation table.
DdemlConversation conversation = _ConversationTable[t.hConv];
// Send the command to the subclass and get the result.
ExecuteResult result = OnExecute(conversation, command);
// Return DDE_FACK if the subclass processed the command successfully.
if (result == ExecuteResult.Processed)
{
t.dwRet = new IntPtr(Ddeml.DDE_FACK);
return true;
}
// Return CBR_BLOCK if the subclass needs time to process the command.
if (result == ExecuteResult.PauseConversation)
{
// Increment the conversation's waiting count.
conversation.IncrementWaiting();
t.dwRet = new IntPtr(Ddeml.CBR_BLOCK);
return true;
}
// Return DDE_FBUSY if the subclass is too busy.
if (result == ExecuteResult.TooBusy)
{
t.dwRet = new IntPtr(Ddeml.DDE_FBUSY);
return true;
}
// Return DDE_FNOTPROCESSED if the subclass did not process the command.
t.dwRet = new IntPtr(Ddeml.DDE_FNOTPROCESSED);
return true;
}
case Ddeml.XTYP_POKE:
{
// Get the item name from the hsz2 string handle.
StringBuilder psz = new StringBuilder(Ddeml.MAX_STRING_SIZE);
int length = Ddeml.DdeQueryString(_InstanceId, t.hsz2, psz, psz.Capacity, Ddeml.CP_WINANSI);
string item = psz.ToString();
// Get the data from the data handle.
length = Ddeml.DdeGetData(t.hData, null, 0, 0);
byte[] data = new byte[length];
length = Ddeml.DdeGetData(t.hData, data, data.Length, 0);
// Get the Conversation from the conversation table.
DdemlConversation conversation = _ConversationTable[t.hConv];
// Send the data to the subclass and get the result.
PokeResult result = OnPoke(conversation, item, data, t.uFmt);
// Return DDE_FACK if the subclass processed the data successfully.
if (result == PokeResult.Processed)
{
t.dwRet = new IntPtr(Ddeml.DDE_FACK);
return true;
}
// Return CBR_BLOCK if the subclass needs time to process the data.
if (result == PokeResult.PauseConversation)
{
// Increment the conversation's waiting count.
conversation.IncrementWaiting();
t.dwRet = new IntPtr(Ddeml.CBR_BLOCK);
return true;
}
// Return DDE_FBUSY if the subclass is too busy.
if (result == PokeResult.TooBusy)
{
t.dwRet = new IntPtr(Ddeml.DDE_FBUSY);
return true;
}
// Return DDE_FNOTPROCESSED if the subclass did not process the data.
t.dwRet = new IntPtr(Ddeml.DDE_FNOTPROCESSED);
return true;
}
case Ddeml.XTYP_REQUEST:
{
// Get the item name from the hsz2 string handle.
StringBuilder psz = new StringBuilder(Ddeml.MAX_STRING_SIZE);
int length = Ddeml.DdeQueryString(_InstanceId, t.hsz2, psz, psz.Capacity, Ddeml.CP_WINANSI);
string item = psz.ToString();
// Get the Conversation from the conversation table.
DdemlConversation conversation = _ConversationTable[t.hConv];
// Send the request to the subclass and get the result.
RequestResult result = OnRequest(conversation, item, t.uFmt);
// Return a data handle if the subclass processed the request successfully.
if (result == RequestResult.Processed)
{
// Create and return the data handle for the data being requested.
if (result.Data != null)
{
t.dwRet = Ddeml.DdeCreateDataHandle(_InstanceId, result.Data, result.Data.Length, 0, t.hsz2, t.uFmt, 0);
}
return true;
}
// Return CBR_BLOCK if the subclass needs time to process the request.
if (result == RequestResult.PauseConversation)
{
conversation.IncrementWaiting();
t.dwRet = new IntPtr(Ddeml.CBR_BLOCK);
return true;
}
// Return DDE_FNOTPROCESSED if the subclass did not process the command.
t.dwRet = new IntPtr(Ddeml.DDE_FNOTPROCESSED);
return true;
}
}
// This transaction could not be processed here.
return false;
}
public bool PreFilterTransaction(DdemlTransaction t)
{
if (t.uType == Ddeml.XTYP_MONITOR)
{
switch (t.dwData2.ToInt32())
{
case Ddeml.MF_CALLBACKS:
{
// Get the MONCBSTRUCT object.
int length = 0;
IntPtr phData = Ddeml.DdeAccessData(t.hData, ref length);
Ddeml.MONCBSTRUCT mon = (Ddeml.MONCBSTRUCT)Marshal.PtrToStructure(phData, typeof(Ddeml.MONCBSTRUCT));
Ddeml.DdeUnaccessData(t.hData);
_Parent.OnCallback(mon);
break;
}
case Ddeml.MF_CONV:
{
// Get the MONCONVSTRUCT object.
int length = 0;
IntPtr phData = Ddeml.DdeAccessData(t.hData, ref length);
Ddeml.MONCONVSTRUCT mon = (Ddeml.MONCONVSTRUCT)Marshal.PtrToStructure(phData, typeof(Ddeml.MONCONVSTRUCT));
Ddeml.DdeUnaccessData(t.hData);
_Parent.OnConversation(mon);
break;
}
case Ddeml.MF_ERRORS:
{
// Get the MONERRSTRUCT object.
int length = 0;
IntPtr phData = Ddeml.DdeAccessData(t.hData, ref length);
Ddeml.MONERRSTRUCT mon = (Ddeml.MONERRSTRUCT)Marshal.PtrToStructure(phData, typeof(Ddeml.MONERRSTRUCT));
Ddeml.DdeUnaccessData(t.hData);
_Parent.OnError(mon);
break;
}
case Ddeml.MF_HSZ_INFO:
{
// Get the MONHSZSTRUCT object.
int length = 0;
IntPtr phData = Ddeml.DdeAccessData(t.hData, ref length);
Ddeml.MONHSZSTRUCT mon = (Ddeml.MONHSZSTRUCT)Marshal.PtrToStructure(phData, typeof(Ddeml.MONHSZSTRUCT));
Ddeml.DdeUnaccessData(t.hData);
_Parent.OnString(mon);
break;
}
case Ddeml.MF_LINKS:
{
// Get the MONLINKSTRUCT object.
int length = 0;
IntPtr phData = Ddeml.DdeAccessData(t.hData, ref length);
Ddeml.MONLINKSTRUCT mon = (Ddeml.MONLINKSTRUCT)Marshal.PtrToStructure(phData, typeof(Ddeml.MONLINKSTRUCT));
Ddeml.DdeUnaccessData(t.hData);
_Parent.OnLink(mon);
break;
}
case Ddeml.MF_POSTMSGS:
{
// Get the MONMSGSTRUCT object.
int length = 0;
IntPtr phData = Ddeml.DdeAccessData(t.hData, ref length);
Ddeml.MONMSGSTRUCT mon = (Ddeml.MONMSGSTRUCT)Marshal.PtrToStructure(phData, typeof(Ddeml.MONMSGSTRUCT));
Ddeml.DdeUnaccessData(t.hData);
_Parent.OnPost(mon);
break;
}
case Ddeml.MF_SENDMSGS:
{
// Get the MONMSGSTRUCT object.
int length = 0;
IntPtr phData = Ddeml.DdeAccessData(t.hData, ref length);
Ddeml.MONMSGSTRUCT mon = (Ddeml.MONMSGSTRUCT)Marshal.PtrToStructure(phData, typeof(Ddeml.MONMSGSTRUCT));
Ddeml.DdeUnaccessData(t.hData);
_Parent.OnSend(mon);
break;
}
}
}
return true;
}
internal bool ProcessCallback(DdemlTransaction transaction)
{
// This is here to alias the transaction object with a shorter variable name.
var t = transaction;
switch (t.uType)
{
case Ddeml.XTYP_ADVREQ:
{
// Get the topic name from the hsz1 string handle.
var psz = new StringBuilder(Ddeml.MAX_STRING_SIZE);
var length = Ddeml.DdeQueryString(_InstanceId, t.hsz1, psz, psz.Capacity,
Ddeml.CP_WINANSI);
var topic = psz.ToString();
// Get the item name from the hsz2 string handle.
psz = new StringBuilder(Ddeml.MAX_STRING_SIZE);
length = Ddeml.DdeQueryString(_InstanceId, t.hsz2, psz, psz.Capacity,
Ddeml.CP_WINANSI);
var item = psz.ToString();
// Create the advise request cache key.
var key = topic + "!" + item + ":" + t.uFmt;
// Get the data being advised if the cache does not contain it already.
if (!_AdviseRequestCache.ContainsKey(key))
{
// Get the data from the subclass.
var data = OnAdvise(topic, item, t.uFmt);
// Add the data to the cache because it will be needed later.
_AdviseRequestCache.Add(key, data);
}
// Get the data from the advise request cache.
var cached = _AdviseRequestCache[key];
// Get the number of remaining transactions of this type for the same topic name, item name, and format tuple.
var remaining = t.dwData1.ToInt32();
// If this is the last transaction then free the data handle.
if (remaining == 0)
_AdviseRequestCache.Remove(key);
// Create and return the data handle representing the data being advised.
if (cached == null || cached.Length <= 0) return false;
t.dwRet = Ddeml.DdeCreateDataHandle(_InstanceId, cached, cached.Length,
0, t.hsz2, t.uFmt, 0);
return true;
// This transaction could not be processed here.
}
case Ddeml.XTYP_ADVSTART:
{
// Get the item name from the hsz2 string handle.
var psz = new StringBuilder(Ddeml.MAX_STRING_SIZE);
var length = Ddeml.DdeQueryString(_InstanceId, t.hsz2, psz, psz.Capacity,
Ddeml.CP_WINANSI);
var item = psz.ToString();
// Get the Conversation from the conversation table.
var conversation = _ConversationTable[t.hConv];
// Get a value indicating whether an advise loop should be initiated from the subclass.
t.dwRet = OnStartAdvise(conversation, item, t.uFmt)
? new IntPtr(1)
: IntPtr.Zero;
return true;
}
case Ddeml.XTYP_ADVSTOP:
{
// Get the item name from the hsz2 string handle.
var psz = new StringBuilder(Ddeml.MAX_STRING_SIZE);
var length = Ddeml.DdeQueryString(_InstanceId, t.hsz2, psz, psz.Capacity,
Ddeml.CP_WINANSI);
var item = psz.ToString();
// Get the Conversation from the conversation table.
var conversation = _ConversationTable[t.hConv];
// Inform the subclass that the advise loop has been terminated.
OnStopAdvise(conversation, item);
// Return zero to indicate that there are no problems.
t.dwRet = IntPtr.Zero;
return true;
}
case Ddeml.XTYP_CONNECT:
{
// Get the topic name from the hsz1 string handle.
var psz = new StringBuilder(Ddeml.MAX_STRING_SIZE);
var length = Ddeml.DdeQueryString(_InstanceId, t.hsz1, psz, psz.Capacity,
Ddeml.CP_WINANSI);
var topic = psz.ToString();
// Get a value from the subclass indicating whether the connection should be allowed.
t.dwRet = OnBeforeConnect(topic) ? new IntPtr(1) : IntPtr.Zero;
return true;
}
case Ddeml.XTYP_CONNECT_CONFIRM:
{
// Get the topic name from the hsz1 string handle.
var psz = new StringBuilder(Ddeml.MAX_STRING_SIZE);
var length = Ddeml.DdeQueryString(_InstanceId, t.hsz1, psz, psz.Capacity,
Ddeml.CP_WINANSI);
var topic = psz.ToString();
// Create a Conversation object and add it to the conversation table.
_ConversationTable.Add(t.hConv,
new DdemlConversation(t.hConv, _Service, topic));
// Inform the subclass that a conversation has been established.
OnAfterConnect(_ConversationTable[t.hConv]);
// Return zero to indicate that there are no problems.
t.dwRet = IntPtr.Zero;
return true;
}
case Ddeml.XTYP_DISCONNECT:
{
// Get the Conversation from the conversation table.
var conversation = _ConversationTable[t.hConv];
// Remove the Conversation from the conversation table.
_ConversationTable.Remove(t.hConv);
// Inform the subclass that the conversation has been disconnected.
OnDisconnect(conversation);
// Return zero to indicate that there are no problems.
t.dwRet = IntPtr.Zero;
return true;
}
case Ddeml.XTYP_EXECUTE:
{
// Get the command from the data handle.
var length = Ddeml.DdeGetData(t.hData, null, 0, 0);
var data = new byte[length];
length = Ddeml.DdeGetData(t.hData, data, data.Length, 0);
var command = _Context.Encoding.GetString(data, 0, data.Length);
if (command[^1] == '\0')
public bool PreFilterTransaction(DdemlTransaction t)
{
return _OuterFilter.PreFilterTransaction(new DdeTransaction(t));
}
public bool PreFilterTransaction(DdemlTransaction t)
{
if (t.uType == Ddeml.XTYP_MONITOR)
{
switch (t.dwData2.ToInt32())
{
case Ddeml.MF_CALLBACKS:
{
// Get the MONCBSTRUCT object.
int length = 0;
IntPtr phData = Ddeml.DdeAccessData(t.hData, ref length);
Ddeml.MONCBSTRUCT mon = (Ddeml.MONCBSTRUCT)Marshal.PtrToStructure(phData, typeof(Ddeml.MONCBSTRUCT));
Ddeml.DdeUnaccessData(t.hData);
_Parent.OnCallback(mon);
break;
}
case Ddeml.MF_CONV:
{
// Get the MONCONVSTRUCT object.
int length = 0;
IntPtr phData = Ddeml.DdeAccessData(t.hData, ref length);
Ddeml.MONCONVSTRUCT mon = (Ddeml.MONCONVSTRUCT)Marshal.PtrToStructure(phData, typeof(Ddeml.MONCONVSTRUCT));
Ddeml.DdeUnaccessData(t.hData);
_Parent.OnConversation(mon);
break;
}
case Ddeml.MF_ERRORS:
{
// Get the MONERRSTRUCT object.
int length = 0;
IntPtr phData = Ddeml.DdeAccessData(t.hData, ref length);
Ddeml.MONERRSTRUCT mon = (Ddeml.MONERRSTRUCT)Marshal.PtrToStructure(phData, typeof(Ddeml.MONERRSTRUCT));
Ddeml.DdeUnaccessData(t.hData);
_Parent.OnError(mon);
break;
}
case Ddeml.MF_HSZ_INFO:
{
// Get the MONHSZSTRUCT object.
int length = 0;
IntPtr phData = Ddeml.DdeAccessData(t.hData, ref length);
Ddeml.MONHSZSTRUCT mon = (Ddeml.MONHSZSTRUCT)Marshal.PtrToStructure(phData, typeof(Ddeml.MONHSZSTRUCT));
Ddeml.DdeUnaccessData(t.hData);
_Parent.OnString(mon);
break;
}
case Ddeml.MF_LINKS:
{
// Get the MONLINKSTRUCT object.
int length = 0;
IntPtr phData = Ddeml.DdeAccessData(t.hData, ref length);
Ddeml.MONLINKSTRUCT mon = (Ddeml.MONLINKSTRUCT)Marshal.PtrToStructure(phData, typeof(Ddeml.MONLINKSTRUCT));
Ddeml.DdeUnaccessData(t.hData);
_Parent.OnLink(mon);
break;
}
case Ddeml.MF_POSTMSGS:
{
// Get the MONMSGSTRUCT object.
int length = 0;
IntPtr phData = Ddeml.DdeAccessData(t.hData, ref length);
Ddeml.MONMSGSTRUCT mon = (Ddeml.MONMSGSTRUCT)Marshal.PtrToStructure(phData, typeof(Ddeml.MONMSGSTRUCT));
Ddeml.DdeUnaccessData(t.hData);
_Parent.OnPost(mon);
break;
}
case Ddeml.MF_SENDMSGS:
{
// Get the MONMSGSTRUCT object.
int length = 0;
IntPtr phData = Ddeml.DdeAccessData(t.hData, ref length);
Ddeml.MONMSGSTRUCT mon = (Ddeml.MONMSGSTRUCT)Marshal.PtrToStructure(phData, typeof(Ddeml.MONMSGSTRUCT));
Ddeml.DdeUnaccessData(t.hData);
_Parent.OnSend(mon);
break;
}
}
}
return true;
}
