1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Помогите Сохранить Html-файл!

Тема в разделе "Delphi - программирование", создана пользователем bagish, 30 мар 2012.

  1. bagish

    bagish Гость

    Репутация:
    0
    Уважаемые Дельфины! Тема довольно-таки избитая, но мне никак не удается сохранить(с помощью Delphi) выборку с интересующего меня сайта. www.scoreexchange.com
    К примеру, загружаю в WebBrowser такой адрес: Search results = Orchestra
    В браузере "все путем" - 32-я страница,
    Посмотреть вложение scoreexchange.bmp
    а после сохранения получаю другую.
    Посмотреть вложение scoreexchange2.bmp
    Пробовал разные коды, но все безуспешно.
    Помогите чайнику кто чем сможет!
     
  2. -master-

    -master- Well-Known Member

    Репутация:
    0
    Регистрация:
    14 янв 2012
    Сообщения:
    616
    Симпатии:
    20
    Как сохраняете?
     
  3. acorn

    acorn PHP Developer

    Репутация:
    0
    Регистрация:
    29 авг 2004
    Сообщения:
    585
    Симпатии:
    3
    скрины bmp - это издевательство. перехотелось даже открывать.
     
  4. bagish

    bagish Гость

    Репутация:
    0
    Испробовал несколько вариантов.
    1.
    Код:
    procedure TForm1.SaveHTMLSourceToFile(const FileName: string;
    WB: TWebBrowser);
    var
    PersistStream: IPersistStreamInit;
    FileStream: TFileStream;
    Stream: IStream;
    SaveResult: HRESULT;
    begin
    PersistStream := WB.Document as IPersistStreamInit;
    FileStream := TFileStream.Create(FileName, fmCreate);
    try
    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
    SaveResult := PersistStream.Save(Stream, True);
    if FAILED(SaveResult) then
    MessageBox(Handle, 'Fail to save HTML source', 'Error', 0);
    finally
    { В ответ на уничтожение объекта TFileStream, передаём
    soReference в конструктор TStreamAdapter. }
    FileStream.Free;
    end;
    end;
    2.
    Код:
    procedure WB_SaveAs_MHT(WB: TWebBrowser; FileName: TFileName);
    var
    Msg: IMessage;
    Conf: IConfiguration;
    Stream: _Stream;
    URL : widestring;
    begin
    if not Assigned(WB.Document) then Exit;
    
    URL := WB.LocationURL;
    
    Msg := CoMessage.Create;
    Conf := CoConfiguration.Create;
    try
    Msg.Configuration := Conf;
    Msg.CreateMHTMLBody(URL, cdoSuppressAll, '', '');
    Stream := Msg.GetStream;
    Stream.SaveToFile(FileName, adSaveCreateOverWrite);
    finally
    Msg := nil;
    Conf := nil;
    Stream := nil;
    end;
    end; (* WB_SaveAs_MHT *)
     
Загрузка...
Похожие Темы - Помогите Сохранить Html
  1. ~localhost
    Ответов:
    2
    Просмотров:
    53
  2. citizenfour
    Ответов:
    1
    Просмотров:
    67
  3. Tayrus
    Ответов:
    1
    Просмотров:
    78
  4. Lcf11
    Ответов:
    2
    Просмотров:
    82
  5. Tayrus
    Ответов:
    3
    Просмотров:
    109

Поделиться этой страницей