|
It would help to see what does work, so it can be correctly translated into VB.NET. Since it's very unlikely that anyone else is going to have the docs on the function your trying to call, it would help to see what's working!
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I am not sure exactly what you are asking to see.
The call to the dll is the next to last line of the code sample and the declaration is about midway through the code.
Most of the dlls I work with are custom drivers for industrial machinery and I do not have access to the code or even the technical details of how the code works. I am given the method names and a sample of how to use them. The sample was given in VB6 and works.
I will be happy to email the full code and the driver dlls to anyone who is interested in commenting on getting this code to work.
Thanks for the interest.
Meyer
meyer@meyerengineering.net
|
|
|
|
|
You said you're converting a working VB6 app to VB.NET. How about seeing the working VB6 source your converting from?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
This VB6 code works.
Note that I had removed some parameters from the VB.NET sample for brevity.
Thanks again.
Const HEIAPIVersion As Byte = 3
Const HEIP_IP As Integer = 3
Const HEIT_WINSOCK As Integer = 4
Private Type Encryption
Algorithm As Byte ' Algorithm to use for encryption:
Unused1(2) As Byte ' Reserved
Key(59) As Byte ' Encryption key (null terminated)
End Type
Private Type EnetAddress
Address(19) As Byte
End Type
Private Type HEITransport
Transport As Integer
Protocol As Integer
Encrypt As Encryption
SourceAddress As EnetAddress
Reserved(47) As Byte
End Type
Private Type HEIDevice
Address(125) As Byte ' 126-byte byte array (VB packs on 4-byte boundaries)
End Type
Private Declare Function PASCAL_HEIOpen Lib "hei_pas" ( _
ByVal HEIAPIVersion As Integer _
) As Long
Private Declare Function PASCAL_HEIClose Lib "hei_pas" ( _
) As Long
Private Declare Function PASCAL_HEIOpenTransport Lib "hei_pas" ( _
ByRef pTransport As HEITransport, _
ByVal HEIAPIVersion As Integer, _
ByVal EnetAdress As Long _
) As Long
Private Declare Function PASCAL_HEICloseTransport Lib "hei_pas" ( _
ByRef pTransport As HEITransport _
) As Long
Private Declare Function PASCAL_HEIQueryDevices Lib "hei_pas" ( _
ByRef pTransport As HEITransport, _
ByRef pDevice As HEIDevice, _
ByRef pNumDevices As Long, _
ByVal HEIAPIVersion As Integer _
) As Long
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Global variables
'
Dim Rc As Long
Dim TP As HEITransport
Const MAXDEVICES As Integer = 100
Dim aDevices(MAXDEVICES) As HEIDevice
Dim DeviceCount As Long
Private Sub NetworkInit_Click()
Rc = PASCAL_HEIOpen(HEIAPIVersion)
TP.Transport = HEIT_WINSOCK
TP.Protocol = HEIP_IP
Rc = PASCAL_HEIOpenTransport(TP, HEIAPIVersion, 0)
End Sub
Private Sub ScanNetwork_Click()
DeviceCount = MAXDEVICES
Rc = PASCAL_HEIQueryDevices(TP, aDevices(0), DeviceCount, HEIAPIVersion)
End Sub
meyer
meyer@meyerengineering.net
|
|
|
|
|
Thanks ProgLoad!
This is the cure.
*****************************************************************
Const HEIAPIVersion As Byte = 3
Const HEIT_WINSOCK As Short = 4
Const HEIT_IP As Short = 3
Const MAXDEVICES As Short = 100
Dim DeviceCount As Integer
Dim RC As Integer
Dim TP As HEITransport
Dim aDevices(MAXDEVICES) As HEIDevice
<StructLayout(LayoutKind.Sequential)> _
Private Structure HEITransport
Dim Transport As Short
Dim Protocol As Short
Dim Encrypt As Encryption
Dim SourceAddress As EnetAddress
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=47)> _
Dim Reserved() As Byte
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure HEIDevice
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=125)> _
Dim Address() As Byte
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure Encryption
Dim Algorithm As Byte
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=2)> _
Dim Unused1() As Byte
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=59)> _
Dim Key() As Byte '(null terminated)
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure EnetAddress
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=19)> _
Dim Address() As Byte
End Structure
Private Declare Function PASCAL_HEIOpen Lib "hei_pas" ( _
ByVal HEIAPIVersion As Short _
) As Integer
Private Declare Function PASCAL_HEIClose Lib "hei_pas" ( _
) As Integer
Private Declare Function PASCAL_HEIOpenTransport Lib "hei_pas" ( _
ByRef pTransport As HEITransport, _
ByVal HEIAPIVersion As Short, _
ByVal EnetAdress As Integer _
) As Integer
Private Declare Function PASCAL_HEICloseTransport Lib "hei_pas" ( _
ByRef pTransport As HEITransport _
) As Integer
Private Declare Function PASCAL_HEIQueryDevices Lib "hei_pas" ( _
ByRef pTransport As HEITransport, _
ByRef pDevice As HEIDevice, _
ByRef pNumDevices As Integer, _
ByVal HEIAPIVersion As Short _
) As Integer
'same as INIT button on full application
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RC = PASCAL_HEIOpen(HEIAPIVersion)
TP.Transport = HEIT_WINSOCK
TP.Protocol = HEIT_IP
RC = PASCAL_HEIOpenTransport(TP, HEIAPIVersion, 0)
End Sub
'same as SCAN button on full application
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
DeviceCount = MAXDEVICES
'********************************************************************************
' this is the problem call
' TP and aDevices() I think need to be marshaled
'********************************************************************************
RC = PASCAL_HEIQueryDevices(TP, aDevices(0), DeviceCount, HEIAPIVersion)
End Sub
meyer
meyer@meyerengineeering.net
|
|
|
|
|
Meyer,
Your welcome.
Thanks for letting me how it worked out.
If I can help with anything else just let me know.
Progload
|
|
|
|
|
hiiiiiiiiiiiii
just wanna ask if i can open my email via a VB.net Program, simply put my ID and the Password in the application form then that application will access my email and open it
i dont know if u understand what i want exactly, its just a form has two textboxs and one button, one textbox for ID and the second for Password then click that button------------> my email opens.
plz if u know anything help me, tell me and thanx very much for all
|
|
|
|
|
You'll have to explain a little further...
Do you want VB to launch your email program and show you your mail?
Do you want VB to automate your email program to grab your mail for you?
or
Do you want VB to login to your mail server and download, parse, and display the messages for you?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hi
first of all thanx for ur reply
i wanna it want VB.net to login yo my mail server and then i can browse my mail there
u can say that i dont wanna go to the mail page to enter my ID and password, i want VB take them from a text field and post them to the mail server
for example if i have a mail in yahoo so i dont wanna go to http://mail.yahoo.com to sign in my mail i wanna my program do that and automatically put my ID and password it thier field, and then open my mail
i dont know how to explain, the program has two text field and a button and i write my ID and Password in the textfield and then my program go to the mail server and check my ID and password if they r correct then he open my mail.
hope u understand me and thanx again 
|
|
|
|
|
If you wanted to do this on a SMTP mail server, it wouldn't be a problem. You just have to write your own SMTP mail client. Basically, duplicating Outlook Express.
If you wanted to go to Yahoo! mail, not you've got a much more difficult problem. Now your downloading and parsing web pages. You have to pick your mail messages out of the mountain of HTML that comes along with it. You also have to pick out links to attachments and "click" on each on of those to download them. Basically - a nightmare that isn't worth it.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hi again
i am really happy for ur answers although if i dont get anything from u, just i am happy because of ur answers.
i realy dont understand how is that can be done
if u can tell me which library should i import or which components shuld i use or if u can write a general or some sentances thats help me in that
the problem is how to implement the function which take the ID and the Password and send them to the yahoo mail server or hotmail server.(if the way to do this is different let us talk about yahoo )
i made a search in google about that and i found some components thats deal with emails but i didnt find what i want in them, they check the domain and the i ID but they dont connect to the mail and open it i i dont think they do that because they dont ask for the Password !!!!!
if u wanna i can send the Project inteface, it may help u what i want exactly.
if u can just tell me how can i implement these sentances and thanx
with my honor and respect to u
Mdallal
|
|
|
|
|
hi dudes !
i have a problem that i want to generate dynamic TextBoxes / Labels for my software .
for e.g.
if i write a query in a textbox like " Select * from Table1 "
it should generate a data report with all the fields in Tabel1 . the problem is data report is not helping me to generate new controls on runtime.
i know crystal report can handle it but i need to solve it in data reports for vb 6.0
looking for ur replys
Work Hard and Test your Luck
|
|
|
|
|
Hard to tell much from the limited information given, but ...
Either your textbox is not bound properly, or it is not in the right place. The VB6 DataReport only has one section that will actually create entries dynamically in a "repeater" fashion - the "Detail" section. Textboxes placed anywhere else can be databound but not to multiple entry tables.
Robert
|
|
|
|
|
May be true , bcz u dint understood me
actually i know u told me abt the detail section, i want to dynamically produce textboxes in the detail section according to the number of columns selected in my query , is there any way to do it
Work Hard and Test your Luck
|
|
|
|
|
See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.
************** Exception Text **************
System.NullReferenceException: Object reference not set to an instance of
an object.
at WindowsApplication1.Grid.get_Cell(Int32 RowNumber, Int32
ColumnNumber) in C:\classieg_attendance\VBDotNet\grid.vb:line 84
at WindowsApplication1.PrinterClass.PrintDataGrid(Graphics g) in
C:\classieg_attendance\VBDotNet\PrinterClass.vb:line 217
at WindowsApplication1.PrinterClass.Print(Graphics g) in
C:\classieg_attendance\VBDotNet\PrinterClass.vb:line 74
at WindowsApplication1.Reportdisplay.printdoc_PrintPage(Object sender,
PrintPageEventArgs e) in
C:\classieg_attendance\VBDotNet\ReportDisplayForm.vb:line 156
at System.Drawing.Printing.PrintDocument.OnPrintPage(PrintPageEventArgs
e)
at System.Drawing.Printing.PrintDocument._OnPrintPage(PrintPageEventArgs
e)
at System.Drawing.Printing.PrintController.PrintLoop(PrintDocument
document)
at System.Drawing.Printing.PrintController.Print(PrintDocument document)
at System.Drawing.Printing.PrintDocument.Print()
at WindowsApplication1.Reportdisplay.btnprint_click(Object sender,
EventArgs e) in C:\classieg_attendance\VBDotNet\ReportDisplayForm.vb:line
152
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons
button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg,
IntPtr wparam, IntPtr lparam)
this is my problem in implementing the article given by nidhi.s in my program
i am not using her form but my one with a datagrid and some buttons like print,etc
i am loading datagrid in other form(main form),i am getting above exception,
please help me,
|
|
|
|
|
Without seeing your actual code, it's a bit difficult to determine what caused the error. But, it would seem that your code tried to retrieve the value of a cell in a datagrid and either the cell returned a null object or the specified cell didn't exist in the first place.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
there is a main form,when button on mainform clicked another form with datagrid is called which contains the print button actually the instance of datagrid form is created in mainform is that a problem
|
|
|
|
|
Don't make me repeat myself. WITHOUT SEEING YOUR CODE, it's impossible to tell you what your doing wrong.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi,
Anyone got source code to change SQl Server startup account to SA.
I need this to be run in my installation.
VB script will be very helpful.
Thanks,
Toms
|
|
|
|
|
SA?? What do you mean "startup account"? The SA account is only used internal to SQL Server.
By "startup account", I take it you mean the Windows service account that the SQL Server runs under. In this case, you'll have to create a Windows account called "SA" and change the service LogOn parameters.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I have a textbox which holds a date and I also have a dropdown box which has 3 values to select.
When the webform is loaded the date field is empty, the dropdown box has a value selected at load time which is Form A. What I want is that when I add a date to the date field then the value in the dropdown box will change to Form B which is in the dropdown list.
The code I have is as follows:
Private Sub dbxStatus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dbxStatus.SelectedIndexChanged
End Sub
Private Sub tbxDateSigned_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbxDateSigned.TextChanged
If tbxDateSigned.Text = True Then
'dbxStatus.SelectedValue = "Signed Off"
dbxStatus.SelectedValue = "Signed Off"
End If
End Sub
This code doesn't work.
Anyone any ideas?
macca
|
|
|
|
|
do you get an error?
try using changing your if statement to be -
If tbxDateSigned.Text.length > 0 Then
|
|
|
|
|
you may need to make the textbox autopostback equal true. Cause it will only get to that code once you have done a postback. You may want to consider doing this type of thing in javascript.
|
|
|
|
|
Have you any javascript code that might o this type of thing or any resources to get me started on this.
Thanks,
macca
|
|
|
|
|
You would have to do something like described below (havent tested it so you will have to play around a bit to get it working the way you want)
in page load put this line of code
tbxDateSigned.attributes.add("onblur","changeDropDown()")
Then create a javascript function like so -
function changeDropDown()
{
var element = document.getElementById("dbxStatus");
element.selectedIndex = 2;
}
as for resources you can try looking here or just google for javascript -
http://webdevelopment.developersnetwork.com/Search.asp?Category=6[^]
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
