Bug fix #154

Fixed an issue in SchemeRegistrationBrowser with big streams. Now THelloScheme.ReadResponse copies the stream in chunks correctly.

bin/test.html

@@ -13,5 +13,7 @@ Local SWF file.<br>
 You need to install the Adobe Flash PPAPI plugin to view the SWF file.</p>
 
 
+<p><img src='jupiter.png'><br>Bigger image</p>
+
 </body>
 </html>

demos/SchemeRegistrationBrowser/uHelloScheme.pas

@@ -201,9 +201,11 @@ function THelloScheme.ReadResponse(const dataOut     : Pointer;
 begin
   if (FStream <> nil) and (DataOut <> nil) then
     begin
-      FStream.Seek(0, soFromBeginning);
+      // This function will be called several times because the stream is bigger
+      // than bytesToRead. Each time we will copy a chunk of the stream to
+      // DataOut.
       BytesRead := FStream.Read(DataOut^, BytesToRead);
-      Result    := True;
+      Result    := (BytesRead > 0);
     end
    else
     Result := False;

demos/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.dfm

@@ -52,7 +52,7 @@ object SchemeRegistrationBrowserFrm: TSchemeRegistrationBrowserFrm
       Align = alClient
       ItemIndex = 1
       TabOrder = 1
-      Text = 'hello://simplexsl.xml'
+      Text = 'hello://test.html'
       Items.Strings = (
         'https://www.google.com'
         'hello://test.html')

demos/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.pas

@@ -51,7 +51,7 @@ uses
   Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Types, ComCtrls, ClipBrd,
   {$ENDIF}
   uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFApplication, uCEFSchemeRegistrar,
-  uCEFTypes, uCEFConstants;
+  uCEFTypes, uCEFConstants, uCEFWinControl;
 
 const
   MINIBROWSER_CONTEXTMENU_REGSCHEME    = MENU_ID_USER_FIRST + 1;