dde после выполнения макроса не сбрасывает флаг waitstat [D7, Win2k]
Rater1 © (2006-07-13 15:34:00)
почему после запуска макроса через DDE всё встаёт, т.е. флаг
waitstat не сбрасывается...
Rater1 (2006-07-13 15:51:00) [1]
Отрабатывает след. функция....
function TDdeClientConv.ExecuteMacro(Cmd: PChar; waitFlg:
Boolean): Boolean;
var
hszCmd: HDDEData;
hdata: HDDEData;
ddeRslt: LongInt;
begin
Result := False;
if (FConv = 0) or FWaitStat then Exit;
hszCmd := DdeCreateDataHandle(ddeMgr.DdeInstId, Cmd,
StrLen(Cmd) + 1,
0, 0, FDdeFmt, 0);
if hszCmd = 0 then Exit;
if waitFlg = True then FWaitStat := True;
hdata := DdeClientTransaction(Pointer(hszCmd),
DWORD(-1), FConv, 0, FDdeFmt,
XTYP_EXECUTE, TIMEOUT_ASYNC, @ddeRslt);
if hdata = 0 then FWaitStat := False
else Result := True;
end;
Если hdata возвращает результат транзакции, то в соответствии
с найденными мной описаниями: "Возвращает нулевое значение, если
транзакция была выполнена с ошибкой, или ненулевую величину, смысл
которой зависит от транзакции, (В нашем случае будет возвращена
единица) при нормальном выполнении. "
условие выставлено неверно надо так:
if hdata <> 0 then FWaitStat := False
Так или нет?
Наверх 
ЧАТ |
Орешник |
|
