Showing Download Progress in Delphi SOAP

Download the code for this white paper (dlprogress.zip, 12 KB)

Abstract

Introduction

There’s an event in the THTTPRio.HTTPWebNode, called OnReceivingData. This event gives you a Size and a Total parameter, but they’re always the same…so you can’t use it to determine the actual download status. Or can you?

Digging into Delphi

Looking at the Delphi SOAP Source code, I realized that I could modify the way this event was being called, and sending real data - where Size would mean the amount that’s currently been downloaded, and Total would give you the expected total size of the download.

Looking into SOAPHTTPTrans.pas (located in the SourceSoap folder under your Delphi 7 install), I found that the procedure Receive was calling the OnReceivingData event. I had to make some modifications to the code as follows: (In the Receive procedure)

Note: Please backup this file before makign any changes.

1. Declare variables, TotalSize and TotalRead as DWORD:

var

  TotalSize, TotalRead : DWORD;

  HttpQueryInfo(Pointer(Context), HTTP_QUERY_CONTENT_TYPE,

                  @FContentType[1], Size, Index);

  SetLength(FContentType, Size);

  // ADDED Deepak 2.2.2004

  Index := 0;

  HttpQueryInfo(Pointer(Context), HTTP_QUERY_CONTENT_Length or

                    HTTP_QUERY_FLAG_NUMBER,

      @TotalSize, Len, Index);

  TotalRead := 0;

3. Further down, within the repeat loop, you’ll see the following code:

      if Assigned(FOnReceivingData) then

        FOnReceivingData(Size, Downloaded)

      if Assigned(FOnReceivingData) then

      begin // ADDED Deepak 2.2.2004

        Inc(TotalRead, Downloaded);

        FOnReceivingData(TotalRead, TotalSize)

      end;

4. Remember to include $(DELPHI)SourceSOAP in your client project search path, so that these changes will be compiled into your application.

Demo

I’ve created a simple WAD based server which allows you to download files in the same directory as the WAD application with an IDownloader interface. There’s a function in the interface, DownloadFile implemented as follows:

function TIDownloader.DownloadFile(FileName: String): TByteDynArray;

var

  CurDir : string;

begin

  CurDir := GetCurrentDirectory;

  if FileExists( CurDir + FileName) then

    Result := FileToByteArray(CurDir + FileName)

  else

    Result := nil;

end;

What that piece of code does is to look in the folder (where the server application resides) for the existence of a file with the name given in the FileName parameter. If a file is found, its contents are returned in a dynamic array of bytes.

If you’re wondering what GetCurrentDirectory does:

function TIDownloader.GetCurrentDirectory: string;

var

  FileName : array[0..MAX_PATH] of char;

begin

  FillChar(FileName, SizeOf(FileName), #0);

  GetModuleFileName(HInstance, FileName, SizeOf(FileName));

  Result:= ExtractFilePath(FileName);

end;

The Client Application

procedure TForm2.Button1Click(Sender: TObject);

var FileArray : TByteDynArray;

begin

  // start downloading

  FileArray := (rioDownload as IIDownloader).DownloadFile(edtFileName.Text);

  if FileArray <> nil then

  begin

    ByteArrayToFile( FileArray, ExtractFilePath(Application.ExeName)

          + edtFileName.Text);

  end;

end;

A file is requested from the server, and if it does arrive, we save it to a file in the same folder as the client application. (Here Application.ExeName is ok, because this is a client application that will always be an EXE) I’ve used another CompressHelper function to save the response byte array to disk.

But the code to actually populate the progress bar is in an event - THTTPRio.HTTPWebNode.OnReceivingData:

procedure TForm2.rioDownloadHTTPWebNode1ReceivingData(Read,

  Total: Integer);

begin

  pbDownload.Position := Trunc( Read/Total *100 );

  lblProgress.Caption := Format(‘Downloaded %d of %d bytes’,[Read, Total]);

  pnlProgress.Caption := Format(‘%d%%’,[pbDownload.Position]);

  Application.ProcessMessages;

end;

What have we got?

Caveats?

1. This works only for Delphi SOAP that uses WinInet. If you use INDY, there’s probably a different approach to making it work.
   
2. You can’t use this with a client built using the SOAP package. That’s because your source code changes to SOAPHTTPTrans.pas don’t change the package.
   
3. I have also included a Download as Attachment to demonstrate that the changes you made work even with TSOAPAttachments. The source code reveals all.

Who’s Deepak Shenoy?

Download the code for this white paper (dlprogress.zip, 12 KB)

Share This | Email this page to a friend

Server Response from: blog1.codegear.com