library ddeterm;
uses PasMex32,Windows,DDEML,dde_init;
{jede dieser DLLs auf andere Basisadressen relozieren}
{$IMAGEBASE $10010000}
procedure mexFunction(nlhs:LongInt; var plhs:TMatArr;
nrhs:LongInt; const prhs:TMatArr); stdcall;
var
conv:HConv;
ok: Bool;
begin
TestInputArgs(nrhs,prhs,1,1,0,1);
conv:=Round(mxGetScalar(prhs[0]));
ok:=DdeDisconnect(conv);
if ok then advDeleteInfo(conv,0,0); {alle Advises totlegen}
plhs[0]:=mxCreateDoubleMatrix(1,1,mxReal);
mxGetPr(plhs[0])^:=LongInt(ok); {BOOL-Rückgabe}
mxSetLogical(plhs[0]); {neu bei Matlab5}
HandleDdeError(0); {falls etwas schiefging: anzeigen!}
end;
exports
mexFunction;
begin
DisableThreadLibraryCalls(HInstance);
end.
Vorgefundene Kodierung: OEM (CP437) | 1
|
|