|
I have been building a website using ASP.NET 2.0. Also, I have a routine in Fortran, which I converted to a DLL, that I need to call from an ASP page. The problem is that the Fortran DLL returns some values to the ASP-Visual Basic code and PInvoke mechanism that I used does not like this. I get the error: PInvoke restriction: cannot return variants<.
I have tried this in Visual Basic, where the Declaration of the DLL goes on a Global.bas Module, and in that case things work. Basically my problem is that I do not know how to declare a DLL in ASP.NET so that values can be passed from the DLL to the ASP-Visual Basic code.
See my code below and thanks for any help.
Sergio
Here are the relevant sections of my code...
ASP-Visual Basic
Imports System.Diagnostics.Process
Imports System.Text.RegularExpressions
Imports System.Runtime.InteropServices
Imports System.Diagnostics
Imports System.IO
Public Class Predict
Inherits Page
Dim BethRuns As Integer 'variable to receive num of iterations
Dim AAcounter As Integer 'Amino acid counter
Dim Argument As String
Dim Seqc As String 'varible to receive the sequence from textbox
Dim i, j As Integer 'counters
Dim LengthAA As Integer 'length of the aa sequence
Dim CharAASeq As String 'Variable to store the AA string
'Declare the fortran DLL routine
Declare Auto Function segmentationAlt Lib "BETH_DLL.dll" (ByRef seq As Single, ByRef LengthAA As Integer, ByRef Top As Integer)
.
.
.
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
.
.
.
'Call the BETH DLL passing the seq array to it and the lenth of the sequence - LengthAA
'The DLL calculates the Topology - Top
'The code fails in this call and gives the error:
'"PInvoke restriction: cannot return variants"
Call segmentationAlt(seq(1), LengthAA, Top(1))
.
.
.
End sub
.
.
.
End Class
Fortran DLL
SUBROUTINE segmentationAlt(AAseqc, aaLen, top)
!MS$ATTRIBUTES DLLEXPORT, ALIAS:'segmentationAlt'::segmentationAlt
use portlib
!********************Variables***********************************
.
.
.
end subroutine
Sergio
|
|
|
|
|
Sergio2santos wrote: Declare Auto Function segmentationAlt Lib "BETH_DLL.dll" (ByRef seq As Single, ByRef LengthAA As Integer, ByRef Top As Integer)
You haven't specified the type that is being returned by the FORTRAN funtion. There should be an As clause at the end of this function declare:
Declare Auto Function segmentationAlt Lib "BETH_DLL.dll" (ByRef seq As Single, ByRef LengthAA As Integer, ByRef Top As Integer) As whatType
I don't know FORTRAN, so I can't tell you what that should be off the top of my head.
|
|
|
|
|
Hi Dave,
Thanks for the reply. I see what you are saying.
My fortran DLL does not return values. I have it writing to memory and then the Visual Basic in ASP reads the values from that address in memory ..... the DLL writes to the variable Top as integer.
I see that I need the "AS ..." clause at the end .... I will have to figure out how to get arround this.
I have looked for a NULL return type ... but no luck.
Thank you for the help.
Best regards,
Sergio
|
|
|
|
|
Sergio2santos wrote: My fortran DLL does not return values. I have it writing to memory and then the Visual Basic in ASP reads the values from that address in memory ..... the DLL writes to the variable Top as integer.
Why?? That's doing it the hard way. If you're FORTRAN code is returning a single value, a function is the way to go.
Private Declare Function subroutineName Lib "myfortran.dll" (ByVal var As SomeType) As SomeReturnType
There is no NULL return type. This would make the method you're calling a Sub:
Private Declare Sub subroutineName Lib "myfortran.dll" (ByRef var As SomeType)
If the FORTRAN code needs to modify the variables of the caller, then the caller passes those variables in ByRef.
|
|
|
|
|
Hi Dave,
Thanks for your help. I really did not know how functions worked in Fortran - I just had to convert someone's code to a DLL and then use it inside my ASP-VB code.
However, the Fortran function on the DLL must return a one dimensional array of n values. I have been looking at "array valued functions in fortran" but I have not been able to ge it to work. Do you have any sugestions,i.e. documents websites where I can learn how to return an array from a Fortran 90 function?
Thanks and best regards,
Sergio
|
|
|
|
|
I don't know FORTRAN so I can't really help with that side. From the VB.NET side, you can declare the Function something like this, if the function returns an array of Integers:
Private Declare Function segmentationAlt Lib "myFortran.dll" ( _
ByVal AAseqc As Integer, ByVal aaLen As Integer) As Integer()
As for the FORTRAN side, Google is your friend: "fortran90 returning an array[^]". That's about the best I can do.
|
|
|
|
|
Hi Dave,
Regarding array valued functions in Fortran - I figured that if I declare my function inside the DLL as follows the DLL compiles...
FUNCTION SegmentationAlt(AAseqc, aaLen) result (top)<br />
!MS$ATTRIBUTES DLLEXPORT, ALIAS:'segmentationAlt'::segmentationAlt<br />
<br />
use portlib<br />
<br />
!********************Variables***********************************<br />
<br />
integer aaLen !The length of the aa-sequence passed<br />
integer n !Variable to store the aa-sequence length<br />
<br />
Integer AAseqc(aaLen)<br />
<br />
integer, ALLOCATABLE :: seq(:) !It will take in the amino acid input sequence -<br />
!Numeric format 1-20<br />
<br />
character topc(aaLen) !Topologia na forma I,O,M - In character format<br />
<br />
integer top(aaLen) !Sequencia de topologias relativas a seq:1(I)2(M)3(O)<br />
!In numeric format<br />
<br />
real*8 PpostT(aaLen,3), Frq(aaLen,3), FrqAnt(aaLen,3) <br />
<br />
.<br />
.<br />
.<br />
.
The return type is an integer array. And then I do not know how to call the the function from my ASP-Visual Basic. I tried "array" as return - I guess not a good idea because it is not a type but a class....
.<br />
.<br />
.<br />
Private Declare Function SegmentationAlt Lib "BETH_DLL.dll" (ByRef seq As Single, ByRef LengthAA As Integer) As Array<br />
.<br />
.<br />
.<br />
Static Top(0 To LengthAA) As Integer 'stores the numeric version of the topology<br />
.<br />
.<br />
.<br />
Top = SegmentationAlt(seq(1), LengthAA)<br />
.<br />
.
The thing actually compiles but then it does not find the function "SegmentationAlt" in the DLL.
"Unable to load DLL 'BETH_DLL.dll': The specified module could not be found. "
I am sure that the DLL was properly included in the project - I think that the "signature" of the function is not recognized from the ASP-VB code.
Could you please coment on this. I would appreciate,
Sergio
|
|
|
|
|
I have just started with VB.Net, and so far I am having a blast - however I have hit a wall with regards to the QuickTime component offered by Apple. I am posting this message here to see if anyone here has or is using it.
In the below URL (listing 3) you can see an almost perfect example of how to convert a file in VB 6 using QuickTime. I am only stuck on two issues: where / what is control.movie coming from (it's supposed to be the file you want to convert but I dont see where it is created or being passed from) and I need to get QuickTime to report back with it's export options, or the codecs which can be used to export.
http://developer.apple.com/technotes/tn2006/tn2120.html
This is technically my third program I have written so far, the second one being a total rewrite of the first. I am pretty sure the answer is right there staring me in the face, I just dont have the experiance yet to see it!
Any help at all would be greatly appreciated.
Thanks,
Mark
|
|
|
|
|
Sorikan wrote: his is technically my third program I have written so far, the second one being a total rewrite of the first.
This is something that is very basic in nature. I highly suggest picking up a beginners book on VB.NET and working through it.
The code you refer to says that "Control" is avariable of type QTControl. This method is expecting you to pass in a QTControl object.
|
|
|
|
|
Ok. Thanks for answering.
Anyone else?
Sorikan
|
|
|
|
|
I'm sure there are plenty of people here happy to back up Dave's advice. I'm one.
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
I have books, and I do use them. I have ordered more books, and will use them when they arrive.
Simply telling me to read a book in no way helps me with this specific issue. I just want to know how to export as, with quicktime in vb.net, and how to query quicktime to report back with its list of export types.
I am not asking someone else to write my entire program for me as others here do, I simply need help in one spot. Telling me to read a book (that has nothing to do with quicktime) is about as useful as not even replying to my message.
I appreciate that I am a n00b, and that I have a LOT more to learn, but I feel as if his reply was simply a blow off.
Maybe i'm just in a bad mood today. maybe not.
Sorikan
|
|
|
|
|
Sorikan wrote: Simply telling me to read a book in no way helps me with this specific issue.
The answer to your first question was that basic and fundamental. That's why you got that answer.
Sorikan wrote: I just want to know how to export as, with quicktime in vb.net, and how to query quicktime to report back with its list of export types.
That is functionality specific to the QuickTime library. This is a question better asked in a forum specific to QuickTime development, not CodeProject. The odds of someone who has used that library seeing your post are very, very low. If you want an answer that specific, you're going to have to find a forum dedicated to QuickTime. Your question has nothing to do with VB.NET itself.
If you think this answer is a blowoff, I'll just keep my mouth shut and watch as your question goes unanswered, day after day after day. I believe is using the right tool for the job. If you believe walking into a Chevy dealership is the best place to ask questions about a BMW motorcycle, go ahead and wait for answer...
|
|
|
|
|
Hello every one
I am new in vb.net and i am working on my assignment about add customer's data in to text file so i have used data writer to write data in to file now i want to add customer's name in to combo box so i have used data reader it's working but i dont want all the customer's details i just want customer's name in combo box
this is the code for write data
'create stream writer to add data in to text tile<br />
Private Sub AddDataInFile()<br />
Dim DataWriter As New System.IO.StreamWriter(MyFile, True)<br />
'get data to variable<br />
Title = Trim(cboTitle.SelectedItem.ToString)<br />
FName = Trim(txtName.Text)<br />
MName = Trim(txtMName.Text)<br />
SName = Trim(txtSurname.Text)<br />
Age = Trim(txtAge.Text)<br />
'write data to file<br />
DataWriter.WriteLine(Title + FName + MName + SName + Age)<br />
DataWriter.Close()<br />
End Sub
and this is for read data from text file
Private Sub AddDataInCombo()<br />
'get all the name in combo box<br />
Dim TempData As String<br />
cboMyList.Items.Clear()<br />
If System.IO.File.Exists(MyFile) = True Then<br />
Dim DataReader As New System.IO.StreamReader(MyFile)<br />
Do While DataReader.Peek <> -1<br />
TempData = Trim(DataReader.ReadLine())<br />
cboMyList.Items.Add(TempData)<br />
Loop<br />
DataReader.Close()<br />
End If<br />
End Sub
i dont want to display age in to combo box just name only, I want to use this name for search so next thing is how to search from name ????
any help 
waiting for your kind rep.
thanks
|
|
|
|
|
bapu2889 wrote: DataWriter.WriteLine(Title + FName + MName + SName + Age)
This leaves you with one line, and no way to tell which bit is which. Write a line for each item of data, then you can read them a line at a time and know what each part of the data is.
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
which symmetric algothrim is efficient to encrypt the MPEG file in dotnet envirnment and through which technique reduce MPEG file in dotnet. plz mention specific algothrim and technique for MPEG file.
|
|
|
|
|
DotNet is irrelevant, obviously. How do you want to encrypt it, so no-one can play it ?
MPEG is a known format, unless you lower image quality, I don't see how you can make files smaller. It's not like AVI, where AVI itself is uncompressed and the file extension is used by a ton of different codecs that all compress differently
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
please tell me about tabpane and controlling tabpane
Thanks a lot for your reply message,
|
|
|
|
|
Tell you what? This forum is for specific programming questions.
If you want to learn how these controls work, try reading the documentation.
Paul Marfleet
"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush
|
|
|
|
|
Meenge wrote: please tell me about tabpane and controlling tabpane
What do you want to know about it? You need to be more specific.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
|
hi all
i have a Procedure that return a row affected. its like this
Create Proc CheckExistance(@username varchar(50))
as
Select @@Rowcount from Login where Username = @username
And on my vb code its like this
Answer = cmd.ExecuteNonQuery()
PLease note that Answer is an integer variable, that i want to assign the value returned by a stored Procedure.
Forgive me about formatting issues, i have a problem with code project lately, buttons don't appear nicely, i cant even use pre, because it takes me to another page.
thanks
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
Vuyiswa wrote: Select @@Rowcount from Login where Username = @username
This doesn't look right. Getting the rowcount from a query in T-SQL requires a separate query.
IMHO, the most efficient way to check for the existence of a record is to use the EXISTS keyword. This is because SQL Server will stop searching as soon as it finds the first match. For instance:
IF EXISTS (SELECT TOP 1 * FROM Login WHERE Username = @username)
RETURN 1
ELSE
RETURN 0
END
BTW, not sure what problem you are having with <pre> tags. They're working OK for me.
Hope this helps.
Paul Marfleet
"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush
|
|
|
|
|
hi Paul
thanks for the reply, think you gave me what i needed thanks.
i think it was my connection and my browser, that wanted to move away from the page when i tried to Click "
" tag, next time i will type it , i was too lazy am sorry.
Thanks for the help
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
hi friends
Currently i m working on msTAPI3.0 in vb.net. I want to call 3 customer so i user for loop. When loop play for first time the message sent successfully but second time an error occur error is:
------------------------------------------------------------------------
Uninitialized object (Exception from HRESULT: 0x80040007 (OLE_E_BLANK))
------------------------------------------------------------------------
How can i sort out this error. Plz solve my problem.
Thanks in advance
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
