Connect to Fax Server With a Variable as the Server Name

Question

0.00/5 (No votes)

See more:

I'm successfully faxing from my app (VB.net 2003) using a fax server on the network server. Now I want to change the ServerName in the Connect() to a variable so I can use different servers without having to change the code. Here's the code I'm using now. Revised to show using a variable.

VB

Dim oFaxServer As New FAXCOMEXLib.FaxServer
Dim oFaxDocument As New FAXCOMEXLib.FaxDocument
Dim oJobID As Object
Dim sRealJobId As String

Try
  oFaxServer = New FAXCOMEXLib.FaxServer

  Dim gFaxServerName as String
  gFaxServerName = "\\Server02"

  ' Connect to the fax server
  If gSystemLoc = "Local" Then
    oFaxServer.Connect("")
  Else
    oFaxServer.Connect(gFaxServerName)
  End If
  ... Everything else from here on works fine

The Server Name within the oFaxServer.Connect() is supposed to be a "bstrServerName as String", but I cannot figure out how to change my server names (strings) into the bstr.

Posted 22-Jul-13 4:37am

auguy

Updated 22-Jul-13 5:17am

v2

Add a Solution

Comments

[no name] 22-Jul-13 10:45am

Huh? What?
Have you tried
Dim serverName as String = "\\Server02"
oFaxserver.Connect(serverName)
?

auguy 22-Jul-13 10:50am

Yes I have, I don't have the error number or the error text in front of me right now, but that didn't work. I believe it gave me a connection error. I will try and get the error information.

auguy 22-Jul-13 11:00am

It gives me a Fax Connection Error: 35, Operation Failed. when I use a variable as the server name in the Connect().

[no name] 22-Jul-13 11:10am

Try Dim serverName as String = "\\\\Server02" and see what happens

auguy 22-Jul-13 11:22am

With "\\\\Server02" I get a Fax Connection Error: 800706AB, Operation Failed.

auguy 22-Jul-13 11:24am

I've found some references to Marshal.StringToBSTR Method. Going to check them out now.

ZurdoDev 22-Jul-13 11:09am

Use the improve question link and show the code where you use a variable.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Ron Beyer · Answer 1 · 2013-07-22T05:23:00

VB

Dim gFaxServerName as String
  gFaxServerName = "\\Server02"
 
  ' Connect to the fax server
  If gSystemLoc = "Local" Then
    oFaxServer.Connect("")
  Else
    Dim bstrPtr as IntPtr
    bstrPtr = Marshal.StringToBSTR(gFaxServerName)
    oFaxServer.Connect(bstrPtr)
    Marshal.FreeBSTR(bstrPtr)
  End If
  ... Everything else from here on works fine

My VB sucks, so don't hold me to that compiling. If the input function requires a BSTR, then the above should get you what you need. You will need to import the System.Runtime.InteropServices namespace.