The first task is, to replace the old TListbox with a TListview. I switched the ViewStyle to vsReport and added 3 columns: Name, State, GUID. Saving the GUID of the job as a string is not fine but goes with my laziness. We also have to change the code of the Timer. My whole OnTimer-Event looks like this:

Ok, this code will never win an art-award but is does what I want.

Now we have a fine list. But what is missing? Action … coders need interaction! Thats why we add a TPopupMenu to the listview for these 4 actions: Resume, Suspend, Cancel, Complete. Each OnClick-Code may look like this:

So whats our state of affairs? There is a list of the current BITS-Jobs of our system. And we can control the states of the jobs. And – you are right – it’s still boring.

Starting a download job is very easy. Just put this code somewhere (for example in the OnClick-Event of a TButton):

Thats it. Easy, isn’t it? Just run the app, click the button and watch the listview. If all went ok, the state of the job will switch from suspended via connecting, transferring to transferred.

Now its time to wonder: Where is my file? The file is already there, although with another name. BITS creates temporary files, while downloading the content. These files are usally named like BIT*.tmp. In order to get the real file out of the temporary file, we have to call the Complete procedure of the corresponding job, when it has reached the state transferred. There are at least 2 ways to find out, if the job is ready to be completed: Poll the state of the job or implement the IBackgroundCopyCallback interface. The last way is the smart one and it minimizes the length of code. Only 4 steps are needed to implment this interface:

1. add IBackgroundCopyCallback to the class declaration of your form
   TForm1 = class(TForm, IBackgroundCopyCallback)
2. add these 3 functions to the Form-class declaration and implementation
   function JobTransferred(pJob: IBackgroundCopyJob): HRESULT; stdcall;
   function JobError(pJob: IBackgroundCopyJob; pError: IBackgroundCopyError): HRESULT; stdcall;
   function JobModification(pJob: IBackgroundCopyJob; dwReserved: DWORD): HRESULT; stdcall;
3. let all 3 functions return S_OK
4. insert into the JobTransferred procedure the line:
   pJob.Complete;

Now we can use our form as notfier for events of BITS-jobs. Just call the SetNotifyInterface function (with the form-instance as 1st param) of the Job after creating it. I put this code after the Job.Resume call. If you start the programm now and add the job again, it should disappear after getting transferred and the local file should appear in the location you have choosen.

But be aware: this notification is only working as long as the interface exists. If you start a download, shut down the programm and restart it without setting the notify interface again, you will never get informed about the complete transmission of the job.

That’s it. It remains to say: Play around with the interfaces and functions to get in touch with BITS.
Because: Playing is learning!

PS: You can download the project of this article here: example-bits-2

Find a description here.

Versions and Changelog

• RunEl 1.0 Application
  • First release

Please send bugs to mail@delphi-jedi.net , the mailinglist or the forum.

The converted header files contain:

• Shell API
  shellapi.h, ulrmon.h, urlhist.h, shlwapi.h, shappmgr.h, shfolders.h and the shlobj range (i.e. shlobj.h, shlguid.h, shobjidl.h, isguid.h, exdisp.h and shtypes.h)
• WinCrypt
  ncrypt.h, bcrypt.h, ntstatus.h and wincrypt.h.

We will integrate his excellent work into the JEDI API LIB. However this task will need some time. So if you need the new functions you should have a look at Rudy’s download site or help us to accomplish this task (send mail).

Christian

Direct link ~8.5 MiB

Also read this and find out how to setup the library!

The JWSCL Download also contains the JWAPI Revision 315.

Changes:

• many bugfixes
• added AuthZ API
• added Terminal Service API
• added more examples
• added extended process creation support (JwsclProcess.pas)

Direct link (4,5mb)

Changes:
+ Many bugfixes
+ additional terminal service functions (jwaWinsta.pas)
+ added JwaWinInet.pas