| 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; |
Article ID: 42, Created On: 1/23/2010, Modified: 1/23/2010