Newest KB Articles

Clever Internet ActiveX Suite 7.0 Beta overview

Sun, 07 Feb 2010 19:57:07 GMT

The Clever Internet ActiveX Suite 7.0 Beta has been released. Send and receive mail, including HTML and MIME attachments, from within an application, download and upload Internet resources over most popular protocols.

Clever Internet .NET Suite version 7.0 overview

Fri, 05 Feb 2010 00:03:32 GMT

The Clever Internet .NET Suite version 7.0 has been released. Send and receive mail, including HTML and MIME attachments, from within an application, download and upload Internet resources over most popular protocols.

Working with WebDAV locks

Fri, 22 Jan 2010 23:11:53 GMT

    
            webdav.GetActiveLocks('http://localhost/WebDAV/');   
        
            Assert(webdav.ActiveLocks.Count = 0);   
        
            Assert(webdav.CurrentLockToken = '');   
        
            webdav.LockOwner := 'Clever Tester';   
        
            webdav.LockScope := wsExclusive;   
        
            Assert(webdav.LockTimeOut <> '');   
        
            lockToken := webdav.Lock('http://localhost/WebDAV/1.txt');   
        
            webdav.GetActiveLocks('http://localhost/WebDAV/');   
        
            Assert(webdav.ActiveLocks.Count > 0);

Working with WebDAV resources and collections

Fri, 22 Jan 2010 23:11:11 GMT

    
            webdav.MakeDir('http://localhost/WebDAV/temp1/');   
        
            source := TStringStream.Create('test data');   
        
            webdav.Put('http://localhost/WebDAV/temp1/file1.txt', source);   
        
            source.Free();   
        
            webdav.ListDir('http://localhost/WebDAV/temp1/');   
        
            Assert(webdav.ResourceProperties.Count > 0);   
        
            Assert(webdav.ResourceProperties.FindItem('http://localhost/WebDAV/temp1/file1.txt', 'getcontentlength') <> nil);    
        
            webdav.Copy('http://localhost/WebDAV/temp1/', 'http://localhost/WebDAV/temp2/');   
        
            webdav.Delete('http://localhost/WebDAV/temp1/');   
        
            webdav.Move('http://localhost/WebDAV/temp2/', 'http://localhost/WebDAV/temp1/');

Working with WebDAV properties

Fri, 22 Jan 2010 23:10:07 GMT

    
            webdav.UserName := 'user';   
        
            webdav.Password := 'password';   
        
            ns := webdav.NameSpaces.Add();   
        
            ns.Prefix := 'Z';   
        
            ns.NameSpace := 'mycustomnamespace';   
        
            webdav.SetProperties('http://localhost/WebDAV/1.txt', ['Z:tester', 'Z:developer'], ['John Doe', 'Vasya Pupkin']);   
        
            webdav.GetProperties('http://localhost/WebDAV/1.txt', ['Z:tester']);   
        
            Assert(webdav.ResourceProperties.Count = 1);   
        
            Assert(webdav.ResourceProperties[0].Value = 'John Doe');   
        
            Assert(webdav.ResourceNameSpaces.ItemByNameSpace('mycustomnamespace') <> nil);   
        
            webdav.RemoveProperties('http://localhost/WebDAV/1.txt', ['Z:tester']);   
        
            webdav.GetAllProperties('http://localhost/WebDAV/');   
        
            Assert(webdav.ResourceProperties.Count > 0);   
        
            webdav.Reset();

Error Handling in asynchronous mode

Fri, 22 Jan 2010 23:07:59 GMT

    
            procedure TMain.clUploader1StatusChanged(Sender: TObject; Status: TclProcessStatus);   
        
            begin   
        
               case Status of   
        
                  psSuccess: ShowMessage('Process completed successfully');   
        
                  psFailed: ShowMessage((Sender as TclUploader).Errors.Text);   
        
                  psTerminated: ShowMessage('Process stopped');   
        
                  psErrors: ShowMessage('Process completed with some warnings');   
        
               end;   
        
            end;

How to upload a Delphi stream via FTP with TclUploader

Fri, 22 Jan 2010 23:06:59 GMT

    
            procedure TfmUploader.btUploadClick(Sender: TObject);   
        
            begin   
        
               if clUploader1.IsBusy then Exit;   
        
               Memory := TStringStream.Create('test data');   
        
               clUploader1.DataStream := Memory;   
        
               clUploader1.UserName := 'test';   
        
               clUploader1.Password := 'test';   
        
               clUploader1.URL := 'ftp://myserver.com/testdata.txt';   
        
               clUploader1.Start();   
        
            end;    
        
            procedure TfmUploader.clUploader1ProcessCompleted(Sender: TObject);   
        
            begin   
        
               clUploader1.DataStream := nil;   
        
               Memory.Free();   
        
            end;

How to upload a file via HTTP with the PUT method

Fri, 22 Jan 2010 23:05:40 GMT

    
            procedure TfmUploader.btUploadClick(Sender: TObject);   
        
            begin   
        
               if clUploader1.IsBusy then Exit;   
        
               clUploader1.LocalFile := 'Project1.dpr';   
        
               clUploader1.UserName := 'test';   
        
               clUploader1.Password := 'test';   
        
               clUploader1.URL := 

                    'http://www.clevercomponents.com/test/Project1.dpr';   
        
               clUploader1.RequestMethod := 'PUT';   
        
               clUploader1.Start();   
        
            end;

Sending mail messages from a database via SMTP

Fri, 22 Jan 2010 23:02:22 GMT

    
            clSmtp1.UserName := 'user';   
        
            clSmtp1.Password := 'passw';   
        
            clSmtp1.Open();   
        
            DataSet1.First();   
        
            while not DataSet1.Eof do   
        
            begin   
        
               clSmtp1.MailFrom := DataSet1.FieldByName('message_from').AsString;   
        
               clSmtp1.MailToList.Text := DataSet1.FieldByName('message_to').AsString;   
        
               clSmtp1.MailData.Text := memoField.AsString;   
        
               clSmtp1.Send();   
        
               DataSet1.Next();   
        
            end;   
        
            clSmtp1.Close();

    
            clSmtp1.UserName := 'user';   
        
            clSmtp1.Password := 'passw';   
        
            clSmtp1.Open();   
        
            DataSet1.First();   
        
            while not DataSet1.Eof do   
        
            begin   
        
               clMailMessage1.BuildMessage(DataSet1.FieldByName('message_body').AsString, '');   
        
               clMailMessage1.From.FullAddress := DataSet1.FieldByName('message_from').AsString;   
        
               clMailMessage1.ToList.EmailAddresses := DataSet1.FieldByName('message_to').AsString;   
        
               clMailMessage1.Subject := DataSet1.FieldByName('message_subject').AsString;   
        
               clSmtp1.Send(clMailMessage1);   
        
               DataSet1.Next();   
        
            end;   
        
            clSmtp1.Close();

Retrieving pop3 mail messages to a database

Fri, 22 Jan 2010 23:00:00 GMT

    
            clPop3.UserName := 'user';   
        
            clPop3.Password := 'psw';   
        
            clPop3.Open();   
        
            clPop3.Retrieve(MsgNo);   
        
            if not (DataSet1.State in [dsInsert, dsEdit]) then   
        
               DataSet1.Insert();   
        
            stream := TMemoryStream.Create();   
        
            try   
        
               clPop3.Response.SaveToStream(stream);   
        
               BlobField1.LoadFromStream(stream);   
        
            finally   
        
               stream.Free();   
        
            end;   
        
            DataSet1.Post();

    
            clPop3.UserName := 'user';   
        
            clPop3.Password := 'psw';   
        
            clPop3.Open();   
        
            clPop3.Retrieve(MsgNo, clMailMessage1);   
        
            if not (DataSet1.State in [dsInsert, dsEdit]) then   
        
               DataSet1.Insert();   
        
            DataSet1.FieldByName('message_id').AsString := clMailMessage1.MessageID;   
        
            DataSet1.FieldByName('message_from').AsString := clMailMessage1.From;   
        
            DataSet1.FieldByName('message_subject').AsString := clMailMessage1.Subject;   
        
            DataSet1.FieldByName('message_date').AsDateTime := clMailMessage1.Date;   
        
            textBody := TStringList.Create();   
        
            try   
        
               clMailMessage1.GetBodyText(textBody);   
        
               DataSet1.FieldByName('message_text').AsString := textBody.Text;   
        
            finally   
        
               textBody.Free();   
        
            end;   
        
            DataSet1.Post();