<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>olá a todos... boa tarde!</p>
<p>Estou tentando aprender como usar uma DLL, via "dyn.load" e ".C"
dentro do R.</p>
<p> Fiz uns testes (abaixo tem um pedaço do que tentei) e não
consegui entender como fazer isso.</p>
<p>Se alguém puder dar uma dica de como fazer essa manipulação,
seria de muita ajuda!</p>
<p>E agradeço desde já por qualquer dica.</p>
<p>Obrigado!</p>
<p>Cleber</p>
<p>###</p>
<p>No pdf explicando o SDK, tem detalhe da função:<br>
</p>
<table class="NormalTable">
<tbody>
<tr>
<td width="550"><span class="fontstyle0">FDwfGetVersion</span><span
class="fontstyle1">(</span><span class="fontstyle1"
style="color:rgb(0,0,255);">char </span><span
class="fontstyle1">szVersion[32])</span></td>
</tr>
<tr>
<td width="550"><span class="fontstyle3">Description: </span><span
class="fontstyle4">Retrieves the version string. The
version string is composed of major, minor, and build
numbers (i.e.,<br>
“2.0.19”).</span></td>
</tr>
</tbody>
</table>
<br style=" font-style: normal; font-variant: normal; font-weight:
normal; letter-spacing: normal; line-height: normal; orphans: 2;
text-align: -webkit-auto; text-indent: 0px; text-transform: none;
white-space: normal; widows: 2; word-spacing: 0px;
-webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; ">
<p><img src="cid:part1.EC6B1E64.1F0E529B@yahoo.com.br" alt=""></p>
<p>##############################################################</p>
<p>### No R, eu tentei:<br>
</p>
<p>> dwf <- dyn.load("C:\\Program Files
(x86)\\Digilent\\WaveForms3\\dwf")<br>
> is.loaded("FDwfGetVersion")<br>
[1] TRUE<br>
> result <- .C("FDwfGetVersion", ver=as.character() )<br>
> str(result)<br>
List of 1<br>
$ ver: chr(0) <br>
> <br>
</p>
<p>#################################</p>
<p>Mas em Python, vi que o resultado é o seguinte ( exemplos em
Python são disponibilizados pelo fabricante)</p>
<p>#################################<br>
</p>
<p>>>> from ctypes import *<br>
>>> dwf = cdll.dwf<br>
>>> version = create_string_buffer(16)<br>
>>> dwf.FDwfGetVersion(version)<br>
1<br>
>>> print("DWF Version: "+str(version.value))<br>
DWF Version: 3.8.22<br>
>>> <br>
</p>
<p><br>
</p>
<p><br>
</p>
<p><br>
</p>
<p><br>
</p>
<p><br>
</p>
<div id="DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2">
<br /><br />
<hr style='border:none; color:#909090; background-color:#B0B0B0; height: 1px; width: 99%;' />
<table style='border-collapse:collapse;border:none;'>
<tr>
<td style='border:none;padding:0px 15px 0px 8px'>
<a href="https://www.avast.com/antivirus">
<img border=0 src="http://static.avast.com/emails/avast-mail-stamp.png" alt="Avast logo" />
</a>
</td>
<td>
<p style='color:#3d4d5a; font-family:"Calibri","Verdana","Arial","Helvetica"; font-size:12pt;'>
Este email foi escaneado pelo Avast antivírus.
<br><a href="https://www.avast.com/antivirus">www.avast.com</a>
</p>
</td>
</tr>
</table>
<br />
<a href="#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2" width="1" height="1"> </a></div></body>
</html>