Newest KB Articles in Code Samples

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();

How to get information about all messages in the mailbox via POP3

Fri, 22 Jan 2010 22:58:20 GMT

    
            procedure TForm1.Button1Click(Sender: TObject);   
        
            const   
        
               POP3_OK = 1;   
        
            begin   
        
               clPOP3.Server := 'mail.myserver.com';   
        
               clPOP3.UserName := 'test';   
        
               clPOP3.Password := 'test';   
        
               clPOP3.Open();   
        
               clPOP3.SendCommandSync('LIST', [POP3_OK]);   
        
               ShowMessage(clPOP3.Response.Text);   
        
               clPOP3.Close();   
        
            end;

Receiving email messages with a specified index from the server via POP3

Fri, 22 Jan 2010 22:51:13 GMT

    
            procedure TForm1.btnReceiveClick(Sender: TObject);   
        
            var   
        
               msgNo: Integer;   
        
            begin   
        
               if clPOP3.Active then Exit;   
        
               clPOP3.Server := 'mail.test.com';   
        
               clPOP3.Password := 'test';   
        
               clPOP3.UserName := 'test';   
        
               clPOP3.UseTLS := ctNone;   
        
               clPOP3.UseSasl := False;   
        
               clPOP3.Open();   
        
               clPOP3. MailMessage := clMailMessage1;   
        
               msgNo := 1;   
        
               clPOP3.Retrieve(msgNo);   
        
               ShowMessage(clPOP3. MailMessage.Subject);   
        
               clPOP3.Close();   
        
            end;