Re: Net/Link: Problem with DLL (2)
- To: mathgroup at smc.vnet.net
- Subject: [mg48890] Re: Net/Link: Problem with DLL (2)
- From: "psa" <psa at laplacian.co.uk>
- Date: Tue, 22 Jun 2004 05:31:37 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Sorry, forgot
np=Length[zpl]
nq=Length[zql]
Peter
----- Original Message -----
From: "psa" <psa at laplacian.co.uk>
To: mathgroup at smc.vnet.net
Subject: [mg48890] Re: Net/Link: Problem with DLL (2)
> (does MathsForum want notebooks or raw text?)
> I am trying to lik to my DLLs and have now had some success.Howvert,
>
> Question 1:can anyone see the blunder (below)?
> Question2: when do' Input only' arrays need NetObjects?
>
>
> Needs["NETLink`"];
>
> In[365]:=
> zpl = Table[i, {i, 0.0, .1, .02}];
> zql = Table[i, {i, 0.0, .1, .02}];
> ozpl = MakeNETObject[zpl];
> ozql = MakeNETObject[zql];
> ostatus = MakeNETObject[0];
> ores = MakeNETObject[Table[0.0, {nq}, {np}]];
>
>
> In[371]:=
> testDLL =
> DefineDLLFunction["NameNotReleventYet", "maths0000.dll",
> "Void", {"ByVal m As Long", "ByVal rp As Double", "ByRef zpl As Double",
> "ByVal np As Long", "ByVal rq As Double", "ByRef zql As Double",
> "ByVal nq As Long", "ByVal gpp As Long", "ByVal gpq As Long",
> "ByRef res As Double", "ByRef status As Long"}]
> Out[371]=
> Function[Null,
> If[NETLink`DLL`Private`checkArgCount[NameNotReleventYet, {##1}, 11],
> Wolfram`NETLink`DynamicDLLNamespace`DLLWrapper30`NameNotReleventYet[##1],
\
> $Failed], {HoldAll}]
>
>
> The call is being rejected before it gets to the DLL . Res is a actually a
> two dimenional array. But, at this stage the DLLs actual args are not yet
> relevent
>
>
> In[372]:=
> testDLL[1, 0.05, zpl, 6, 0.05, zql, 6, 3, 4, ores, status]
> From In[372]:=
> NET::methodargs: Improper arguments supplied for method named \
> NameNotReleventYet.
> Out[372]=
> $Failed
>
>
> In[373]:=
> testDLL[1, 0.05, ozpl, 6, 0.05, ozql, 6, 3, 4, ores, status]
> From In[373]:=
> NET::methodargs: Improper arguments supplied for method named \
> NameNotReleventYet.
> Out[373]=
> $Failed
>