救命,在线等待!解决了问题,经本人马上试验无误,十分中之类必然结帖。
vb代码如下:请用DEPHI 实现
Option Explicit
Private Declare Function VCGetDoc Lib "vcwfs.dll" (ByVal intNumber As Integer, ByVal strData As String) As Long
Private Sub Command1_Click()
Dim strTextAll As String * 50000
strTextAll = " "
VCGetDoc 10, strTextAll
End Sub
注意:在vb中strTextAll 必须申明为50000,或者更大,因为strTextAll返回一个50000左右的字符串.若只定义dim strTextAll as String 将不能返回字符串,只能返回空字符串.