ذخیره کامل یه صفحه وب به صورت HTML

[hadisalahi2]

سلام

چطوری میتونم یک صفحه وب رو به صورت کامل همراه با تصاویرش رو ذخیره کنم ؟

کد زیر رو گرفتم :


procedure TWebSiteForm.WB_SaveAs_HTML(WB: TWebBrowser; const FileName: string);
var
PersistStream: IPersistStreamInit;
Stream: IStream;
FileStream: TFileStream;
begin
if not Assigned(WB.Document) then
begin
ErrorMessage('نرم افزار قادر به ذخیره صفحه نمی باشد');
Exit;
end;
PersistStream := WB.Document as IPersistStreamInit;
FileStream := TFileStream.Create(FileName, fmCreate);
try
Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
if Failed(PersistStream.Save(Stream, True)) then
ErrorMessage('نرم افزار قادر به ذخیره صفحه نمی باشد');
finally
FileStream.Free;
end;
end;


صفحه موجود در Web Browser رو ذخیره میکنه ، اما فقط متنهاش رو ذخیره میکنه و عکسهاش رو ذخیره نمیکنه
من دنبال کدی هستم که همه صفحه رو به همراه عکساش ذخیره کنه