<?xml version="1.0" encoding="UTF-8"?><rss xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:atom="http://www.w3.org/2005/Atom" version="2.0"><channel><title><![CDATA[Parameterübergabe von C++ Dll an VB und umgekehrt]]></title><description><![CDATA[<p>Hi,</p>
<p>ich habe folgendes Problem, ich möchte aus VB eine C++ Dll aufrufen an die ich einen String übergebe, die Dll gibt mir dann einen anderen String zurück !<br />
Einzeln funktioniert das auch, das heißt wenn die Dll aufgerufen wird und nur zurückgibt bzw. im anderen Szenario wenn VB übergibt und die Dll nichts zurückgibt.<br />
Versuche ich aus VB eine Funktion der Dll aufzurufen und dieser einen String zu übergeben und die Dll Funktion einen Wert zurückgeben zu lassen funktioniert das nicht ! <img
      src="https://www.c-plusplus.net/forum/plugins/nodebb-plugin-emoji/emoji/emoji-one/1f61e.png?v=ab1pehoraso"
      class="not-responsive emoji emoji-emoji-one emoji--disappointed_face"
      title=":("
      alt="😞"
    /> <img
      src="https://www.c-plusplus.net/forum/plugins/nodebb-plugin-emoji/emoji/emoji-one/1f615.png?v=ab1pehoraso"
      class="not-responsive emoji emoji-emoji-one emoji--confused_face"
      title=":confused:"
      alt="😕"
    /></p>
<p>Hier der Code:<br />
VB:</p>
<pre><code class="language-cpp">Private Declare Function fnWin32DLL02 Lib &quot;E:\WORKING\OMRON\GDT\EigeneDLL\C++ DLL mit VB (Test01)\Win32DLL02.dll&quot; (ByVal testParam As String) As String

Private Sub Form_Load()

    Dim x As String
    Dim test As String

    test = &quot;Übergabe aus VB&quot;
    x = Space$(5)
    x = fnWin32DLL02(test)
    MsgBox &quot;X ist: &quot; &amp; x

End Sub
</code></pre>
<p>Dll.cpp:</p>
<pre><code class="language-cpp">WIN32DLL02_API BSTR fnWin32DLL02(BSTR s)
{
		BSTR x;

		x = SysAllocString((BSTR)&quot;abcde&quot;);
		MessageBox(NULL,(LPCSTR)s,&quot;Info&quot;,MB_OK);
		SysFreeString(s);

		return x;
}
</code></pre>
<p>Dll.h:</p>
<pre><code class="language-cpp">WIN32DLL02_API BSTR fnWin32DLL02(BSTR);
</code></pre>
<p>Das ist wie verhext, ich probier das schon seit Tagen und Google schweigt sich zu diesem Thema beharrlich aus !</p>
<p>Bin für jede Hilfe dankbar !<br />
ShadowEater</p>
]]></description><link>https://www.c-plusplus.net/forum/topic/201982/parameterübergabe-von-c-dll-an-vb-und-umgekehrt</link><generator>RSS for Node</generator><lastBuildDate>Mon, 29 Jun 2026 03:33:30 GMT</lastBuildDate><atom:link href="https://www.c-plusplus.net/forum/topic/201982.rss" rel="self" type="application/rss+xml"/><pubDate>Sun, 06 Jan 2008 12:02:18 GMT</pubDate><ttl>60</ttl><item><title><![CDATA[Reply to Parameterübergabe von C++ Dll an VB und umgekehrt on Sun, 06 Jan 2008 12:02:18 GMT]]></title><description><![CDATA[<p>Hi,</p>
<p>ich habe folgendes Problem, ich möchte aus VB eine C++ Dll aufrufen an die ich einen String übergebe, die Dll gibt mir dann einen anderen String zurück !<br />
Einzeln funktioniert das auch, das heißt wenn die Dll aufgerufen wird und nur zurückgibt bzw. im anderen Szenario wenn VB übergibt und die Dll nichts zurückgibt.<br />
Versuche ich aus VB eine Funktion der Dll aufzurufen und dieser einen String zu übergeben und die Dll Funktion einen Wert zurückgeben zu lassen funktioniert das nicht ! <img
      src="https://www.c-plusplus.net/forum/plugins/nodebb-plugin-emoji/emoji/emoji-one/1f61e.png?v=ab1pehoraso"
      class="not-responsive emoji emoji-emoji-one emoji--disappointed_face"
      title=":("
      alt="😞"
    /> <img
      src="https://www.c-plusplus.net/forum/plugins/nodebb-plugin-emoji/emoji/emoji-one/1f615.png?v=ab1pehoraso"
      class="not-responsive emoji emoji-emoji-one emoji--confused_face"
      title=":confused:"
      alt="😕"
    /></p>
<p>Hier der Code:<br />
VB:</p>
<pre><code class="language-cpp">Private Declare Function fnWin32DLL02 Lib &quot;E:\WORKING\OMRON\GDT\EigeneDLL\C++ DLL mit VB (Test01)\Win32DLL02.dll&quot; (ByVal testParam As String) As String

Private Sub Form_Load()

    Dim x As String
    Dim test As String

    test = &quot;Übergabe aus VB&quot;
    x = Space$(5)
    x = fnWin32DLL02(test)
    MsgBox &quot;X ist: &quot; &amp; x

End Sub
</code></pre>
<p>Dll.cpp:</p>
<pre><code class="language-cpp">WIN32DLL02_API BSTR fnWin32DLL02(BSTR s)
{
		BSTR x;

		x = SysAllocString((BSTR)&quot;abcde&quot;);
		MessageBox(NULL,(LPCSTR)s,&quot;Info&quot;,MB_OK);
		SysFreeString(s);

		return x;
}
</code></pre>
<p>Dll.h:</p>
<pre><code class="language-cpp">WIN32DLL02_API BSTR fnWin32DLL02(BSTR);
</code></pre>
<p>Das ist wie verhext, ich probier das schon seit Tagen und Google schweigt sich zu diesem Thema beharrlich aus !</p>
<p>Bin für jede Hilfe dankbar !<br />
ShadowEater</p>
]]></description><link>https://www.c-plusplus.net/forum/post/1431713</link><guid isPermaLink="true">https://www.c-plusplus.net/forum/post/1431713</guid><dc:creator><![CDATA[ShadowEater]]></dc:creator><pubDate>Sun, 06 Jan 2008 12:02:18 GMT</pubDate></item><item><title><![CDATA[Reply to Parameterübergabe von C++ Dll an VB und umgekehrt on Mon, 07 Jan 2008 13:41:28 GMT]]></title><description><![CDATA[<p>Dieser Thread wurde von Moderator/in <a href="http://www.c-plusplus.net/forum/profile-var-mode-is-viewprofile-and-u-is-403.html" rel="nofollow">HumeSikkins</a> aus dem Forum <a href="http://www.c-plusplus.net/forum/viewforum-var-f-is-15.html" rel="nofollow">C++</a> in das Forum <a href="http://www.c-plusplus.net/forum/viewforum-var-f-is-8.html" rel="nofollow">Rund um die Programmierung</a> verschoben.</p>
<p>Im Zweifelsfall bitte auch folgende Hinweise beachten:<br />
<a href="http://www.c-plusplus.net/forum/viewtopic-var-t-is-39405.html" rel="nofollow">C/C++ Forum :: FAQ - Sonstiges :: Wohin mit meiner Frage?</a></p>
<p><em>Dieses Posting wurde automatisch erzeugt.</em></p>
]]></description><link>https://www.c-plusplus.net/forum/post/1432400</link><guid isPermaLink="true">https://www.c-plusplus.net/forum/post/1432400</guid><dc:creator><![CDATA[C++ Forumbot]]></dc:creator><pubDate>Mon, 07 Jan 2008 13:41:28 GMT</pubDate></item></channel></rss>