change (Private Declare) in VB to Foxpro  
Author Message
mattjfrank





PostPosted: Mon Apr 10 02:21:33 CDT 2006 Top

Exchange Servers >> change (Private Declare) in VB to Foxpro

Morning Sir,
I have this in vb,

Private Declare Function gettext Lib "xcomm.dll" (ByVal port As
Integer, ByVal wait As Integer, ByVal files As String) As Integer

Private Sub Command1_Click()

Dim Rv As Integer
Rv = gettext(1, 1, "text1.txt")
If Rv = 0 Then
MsgBox "Data Gather Successfully!"
Else
MsgBox "Data Gather Failure!"
End If
End Sub

May I know how to change Private--Declare Function gettext Lib
"xcomm.dll" (ByVal port As Integer, ByVal wait As Integer, ByVal files
As String) As Integer INTO Foxpro code?
Thank you for your help.

Exchange Server36  
 
 
Stefan





PostPosted: Mon Apr 10 02:21:33 CDT 2006 Top

Exchange Servers >> change (Private Declare) in VB to Foxpro


> Morning Sir,
> I have this in vb,
>
> Private Declare Function gettext Lib "xcomm.dll" (ByVal port As
> Integer, ByVal wait As Integer, ByVal files As String) As Integer

In VFP that would be
Declare Integer gettext In "xcomm.dll" Integer, Integer, String
Local Rv
Rv = gettext(1, 1, "text1.txt")



hth
-Stefan



--
|\_/| ------ ProLib - programmers liberty -----------------
(.. ) Our MVPs and MCPs make the Fox run....
- / See us at www.prolib.de or www.AFPages.de
-----------------------------------------------------------


 
 
dn





PostPosted: Wed Apr 12 01:59:10 CDT 2006 Top

Exchange Servers >> change (Private Declare) in VB to Foxpro Thank you Stefan Wuebbe, it works pretty good,

from diantan