From 392fe2a4cc45001e67ba23a9df03df50d89fa4a9 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 1 Jul 2011 07:35:11 +0000
Subject: [PATCH] Some more work to get image loading working

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1727 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/fpbrowser/pageloader.pas | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/applications/fpbrowser/pageloader.pas b/applications/fpbrowser/pageloader.pas
index a7e0c3e35..785eee48f 100644
--- a/applications/fpbrowser/pageloader.pas
+++ b/applications/fpbrowser/pageloader.pas
@@ -18,7 +18,7 @@ type
     ContentsList: TStringList;
     constructor Create;
     procedure LoadFromURL(AURL: string);
-    procedure LoadBinaryResource(AURL: string; ADest: TStream);
+    procedure LoadBinaryResource(AURL: string; var ADest: TMemoryStream);
   end;
 
 var
@@ -63,7 +63,8 @@ begin
   end;
 end;
 
-procedure TPageLoader.LoadBinaryResource(AURL: string; ADest: TStream);
+{.$define FPB_DEBUG_IMAGE_LOAD}
+procedure TPageLoader.LoadBinaryResource(AURL: string; var ADest: TMemoryStream);
 var
   Client: THttpSend;
   i: Integer;
@@ -79,14 +80,19 @@ begin
     Client.HttpMethod('GET', AURL);
 
     Client.Document.Position := 0;
-//    ADest.CopyFrom(Client.Document, Client.Document.Size);
+    ADest := TMemoryStream.Create;
+    ADest.CopyFrom(Client.Document, Client.Document.Size);
+//    ADest.SaveToFile('/Users/felipe/test.gif');
 
-{    ContentsList.LoadFromStream(Client.Document);
+    {$IFDEF FPB_DEBUG_IMAGE_LOAD}
+    ContentsList.LoadFromStream(Client.Document);
 
+    WriteLn('Starting to receive image: ' + AURL);
     for i := 0 to ContentsList.Count-1 do
       WriteLn(ContentsList.Strings[i]);
 
-    Contents := ContentsList.Text;}
+    Contents := ContentsList.Text;
+    {$ENDIF}
   finally
     Client.Free;
   end;