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

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

  1. bagish

    bagish Гость

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

    -master- Well-Known Member

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

    acorn PHP Developer

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

    bagish Гость

    Испробовал несколько вариантов.
    1.
    Код (Text):
    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.
    Код (Text):
    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. limbra
    Ответов:
    3
    Просмотров:
    47
  2. NylevoiChelovek
    Ответов:
    5
    Просмотров:
    112
  3. Ruska132
    Ответов:
    49
    Просмотров:
    418
  4. gURaBA_N
    Ответов:
    7
    Просмотров:
    149
  5. uxbmw3w
    Ответов:
    0
    Просмотров:
    69

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