Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Accessing output from ActiveX control event programatica
Message
From
13/05/1998 15:54:43
Donny Sims
Independent Computer Consultants Inc
Scottsboro, Alabama, United States
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00098174
Message ID:
00099186
Views:
32
>Donny,
>
>I don't have that OLE controlso I can't test it. Doesn't the control help have samples maybe in VB or C++ we can translate it to VFP for you. Is it possible that Response takes one argument and returns it's value:
>
>? SMTPForm.Session1.Response( @lcString )
The above only returns .T.

>You might also try not using @ and see if it works.
Tried dozens of different combo's with and without the @, nada.

I could not find any examples of code for the Response event of this control. This is the only snipet that involved an event with the LPCTSTR parameter, it came from a different control in the same set, hopefully this will give you enough info (and the controls work the same).

From the Control Docs:

DirectoryLine( BOOL fDir, LPCTSTR Name, long Size )
This event is called ones for each line in a directory structure returned after a call to the GetRemoteDirFile method. The fDir parameter is set to true if the line represents a directory. The Name parameter is the directory/file name and the Size is the size (in bytes) for the file.

If you want to fill information in listboxes you can use code as the following. ListDirs is a listbox holding directory information and ListFiles is a listbox holding file information.
Private Sub EsFtp1_DirectoryLine(ByVal fDir As Boolean, ByVal Name As String, ByVal Size As Long)
    If fDir = True Then
        ListDirs.AddItem Name '+ " " + Str(Size)
    Else
        ListFiles.AddItem Name '+ " " + Str(Size)
    End If
End Sub
Donny Sims

Life is what happens to us while were busy making other plans.
- John Lennon
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform