Click here to download the complete source code, the compiled DLL and the demo.

Below you can see some sample code:

Dim oFTP
Set oFTP = CreateObject("EVICT_FTP.FTP")
Dim lngReturn, intLoop, lngFileCount, strFile
oFTP.Disconnect
oFTP.SessionName = "EVICT FTP - http://www.evict.nl"
oFTP.OpenFlag = 0                 ' (0 = Synchrone)
oFTP.OpenType = 0                 ' (0 = PreConfig)
oFTP.PassiveMode = 0              ' (0 = Active)
oFTP.TransferType = 2             ' (2 = Binary)
oFTP.SendTimeOut = 180000
oFTP.ReceiveTimeOut = 180000
oFTP.ConnectTimeOut = 180000
oFTP.ConnectRetries = 10
oFTP.SetLogging "./ftp.log", 31   ' (31 = Log_All)

lngReturn = oFTP.Connect("ftp.microsoft.com", 21, _
    "test_user", "test_password")
If lngReturn = 1 Then
  If oFTP.IsConnected Then
    lngFileCount = oFTP.GetDirListing("", "*.*")
    If lngFileCount >= 0 Then
	  For intLoop = 0 To lngFileCount
        strFile = oFTP.GetDirListingFilename(intLoop)
	    lngReturn = oFTP.GetFile(strFile, "./" & strFile)
	    If lngReturn <> 1 Then MsgBox "Error: " & _
	    lngReturn & " proplem retrieving file " & strFile
	  Next
    Else
      MsgBox "There are no files available", _
      vbExclamation, "Looking for files"
    End If
  End If
End If
lngReturn = oFTP.Disconnect()
Set oFTP = Nothing</span></span>

Related posts

• No Related Post

A demo is included that will show you how to make a simple chat application and an other demo is available that shows you how to do port mapping. If you want more samples, then have a look at the SMTP and POP library mentioned below.

Click here to download the complete source code, the compiled DLL and the demos.

Credits: The (super) SubClass code is from a publication from Paul Canton [Paul_Caton@hotmail.com].
The winsock stuff is inspired by a publication from ‘Coding Genius’.
The Exception hanler is based on a publication from Thushan Fernando.

Here is some code that will show you how to use the GenericClient object:

Private WithEvents cClient  As GenericClient
Private Sub Form_Load()
   Set cClient = New GenericClient
   cClient.Connect "ftp.microsoft.com", CLng(21)
   cClient.Connection.Send "help" & vbCrLf
End Sub

Private Sub Form_Unload(Cancel As Integer)
   cClient.Connection.CloseSocket
   Set cClient = Nothing
End Sub

Private Sub cClient_OnConnect()
   debug.print "Client connected to " & _
      cClient.Connection.GetRemoteHost & _
      "(" & cClient.Connection.GetRemoteIP & ")" & _
      " on port " & cClient.Connection.GetRemotePort
End Sub

Private Sub cClient_OnDataArrive()
Dim strData As String
   cClient.Connection.Recv strData
   debug.print strData
End Sub

Related posts

• No Related Post

• Automating Internet Explorer You can open and fully control a Internet Explorer window. Unless you want to know how to hook into IE, i can advice using WatiN instead of this library.
• Client Server communications This library let you create a client or a server in an easy to use object oriented way. By calling the wininet.dll directly instead of using the winsock control this dll excells in performance and memory usage.
• ComDoc If you have a OLE/COM component (dll or ocx) and you want to write documentation for it, then ComDoc is the tool for you. ComDoc will use the component itself for building the structure of the documentation and can also make use of the descriptions that are part of the component. For the publication ComDoc uses the DBPublisherobject. Because all the publications are based on templates the outcome is 100% customizable.
• DBPublisher is a template driven database publication tool. with support for email and ftp.
• Encryption is a very easy to use ActiveX dll for encrypting and decrypting data. It can be used from almost any programing language. It Has support For RC2, RC4, DES, Triple DES and Triple DES 112.
• Error handling You can bennefit a lot if you use a generic method for your error handling in your application. Using line numbers in VB is undervalued. You will only get a 10% bigger .exe but it will make your life much easier to debug your application. The demo will also show you how to build an error trace and how to capture GPF errors.
• Event log is a module with one function that will give you some more functionality than what you can do with the App.LogEvent method in VB6.
• FTP is a library that (like most commercial components) acts as a ‘wrapper’ around’ the wininet.dll FTP api calls and takes that dll to its functional limits. This object makes it easy to add FTP functionality to your application at a proffesional level.
• Object browser lets you have a look at the structure of any OLE/COM object. This can be an ActiveX dll, an OCX or an ActiveX EXE. It’s even possible to read out the entire object model of any MS Office application.
• QuickTip adds a very nice help function to your application. There is even support for getting the help text out of a chm help file.
• Receiving e-mail using POP3
• Scraping the web The WebGrabber object is meant to help you to parse table structured data into a database. This is not only usefull for html files with data in a table but it can also be used to parse a csv file into the database
• Sending e-mail using SMTP
• Telnet is a library that will let you interact with a host using the Telnet protocol. You can send any command and get the data that is returned by it. It is also possible to react on various events that are triggered.
• Windows Service is the easiest way to create your own true NT service. Just look at the testService project. This has all the code you need.

Related posts

• No Related Post

• Easy datasource and source query definition
• Complete free template format. (plain text, html or any other format you can think of)
• section grouping and sub grouping
• Include other templates which could have a different datasource. (sub forms)
• Write the result to one or more files in a folder, FTP it to an other server or send it as an email (bulk email)

The total DBPublisher source code can be downloaded from here.

Below you can see a sample of a simple publishing template. In the downoad above more samples are available (including mail and ftp samples)

<!-- HTT-PARAMETERS>
    DSN          = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=NorthWind.mdb;Persist Security Info=False
    Recordset    = Select * from Demo
    PageGrouping = CustomerID
    TargetDir    = ../samples/
</HTT-PARAMETERS -->

<html>
    <title>All <%CompanyName%> orders</title>
       <%INCLUDE header.htt%>
       <center>
            <table>
                <tr><td colspan=99>This page was generated on <%Date%> at <%Time%> by '<%App.ProductName%>'
                    version <%App.version%><br><br></td></tr>
                <tr><td colspan=99><%INCLUDE orders.htt;CustomerID=CustomerID%></td></tr>
                <tr><td><br> </td></tr>
                <%GROUP OrderID%>
                    <tr><td colspan=6><a name="<%OrderID%>"></a>Order : <%OrderID%> date : <%OrderDate%></td>
                        <td colspan=4>Class variables</td></tr>
                    <tr><td>Product</td><td>category</td><td>Quantity</td>
                        <td>Unit price</td><td>Discount</td><td>Price</td>
                        <td>Counter</td><td>Even</td><td>In group</td>
                        <td>Greenbar</td></tr>
                    <%GROUP DetailSection%>
                        <tr>
                             <td><%ProductName%></td>
                             <td><%CategoryName%></td>
                             <td><%Quantity%></td>
                             <td><%UnitPrice%></td>
                             <td>- <%Discount%></td>
                             <td><%Price%></td>
                             <td<%EvenRecord%>>(<%RecordNumber%>)</td>

Related posts

• No Related Post