pecinta.komik, fix getimageurl

riderkick · Aug 1, 2015 · 97aa82d · 97aa82d
1 parent 27c3706
commit 97aa82d
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/baseunits/modules/PecintaKomik.pas b/baseunits/modules/PecintaKomik.pas
@@ -386,15 +386,21 @@ function GetImageURL(var DownloadThread: TDownloadThread; const URL: String;
   procedure ScanParse;
   var
     i: Integer;
+    baseurl: String;
   begin
+    baseurl := Module.RootURL;
     for i := 0 to Parse.Count - 1 do
+    begin
+      if GetTagName(Parse[i]) = 'base' then
+        baseurl := GetVal(Parse[i], 'href');
       if (GetTagName(Parse[i]) = 'img') and (GetVal(Parse[i], 'class') = 'picture') then
       begin
         if DownloadThread.workCounter < Container.PageLinks.Count then
           Container.PageLinks[DownloadThread.workCounter] :=
-            MaybeFillHost(Module.RootURL, GetVal(Parse[i], 'src'));
+            MaybeFillHost(baseurl, GetVal(Parse[i], 'src'));
         Break;
       end;
+    end;
   end;
 
 begin