change (Private Declare) in VB to Foxpro

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 Server44

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
-----------------------------------------------------------

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

from diantan