DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

How to access LPTSTR data in VB

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Jan 2008

Posts: 7

Reputation: bubbleT is an unknown quantity at this point

Solved Threads: 0

bubbleT

Offline

Newbie Poster

How to access LPTSTR data in VB

Jan 23rd, 2008

Hi
currently working on a vb program to access a LPTSTR data in a VC coded function.
My vb program cannot get the string data
my sample code

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Declare Function GetMainWork Lib "LibDWM.dll" (ByVal lpszWNo As String) As Long 
 
'I've tried
'Declare Function GetMainWork Lib "LibDWM.dll" (ByRef lpszWNo As String) As Long ->doesn't work
 
Private Sub cmdClick()
    Dim lret As Long
    Dim sdat As String
    Dim ss As String
    sdat = ""
    ss = StrPtr(sdat)
 
        'lret = GetMainWork(StrPtr(ss))->doesn't work
 
        lret = GetMainWork(sdat) 
...
End Sub
Declare Function GetMainWork Lib "LibDWM.dll" (ByVal lpszWNo As String) As Long 

'I've tried
'Declare Function GetMainWork Lib "LibDWM.dll" (ByRef lpszWNo As String) As Long ->doesn't work

Private Sub cmdClick()
    Dim lret As Long
    Dim sdat As String
    Dim ss As String
    sdat = ""
    ss = StrPtr(sdat)
   
        'lret = GetMainWork(StrPtr(ss))->doesn't work

        lret = GetMainWork(sdat) 
...
End Sub

Some information on the VC function

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
int GetMainWork(LPTSTR lpszWNo);
int GetMainWork(LPTSTR lpszWNo)
{
	int retval = 0;
	...
	sprintf(lpszWNo, "%s",lpMemDat->wnam) ; 
	...
 
	return retval;
}
int GetMainWork(LPTSTR lpszWNo);
int GetMainWork(LPTSTR lpszWNo)
{
	int retval = 0;
	...
	sprintf(lpszWNo, "%s",lpMemDat->wnam) ; 
	...

	return retval;
}