сохранить картинку без ее загрузки

394

29 октября 2013 года

MegaMozg

317 / / 18.03.2006

а вы какую библиотеку или фреймворк ли используете для вывода Web-контента? Там, вероятно, есть методы для доступа к содержимому

290

29 октября 2013 года

458 / / 09.02.2008

Я использую компонент WebBrowser, ни каких библиотек не подгружаю

290

30 октября 2013 года

458 / / 09.02.2008

Нашел код на делфи, помогите плз, подогнать под C++:

Писание к коду(ссылка на источник):
Следующей задачей является получение самого изображения без повторного его выкачивания из сети по URL. Автору известен способ сделать это используя буфер обмена Windows. Приведенная ниже функция ищет изображение по заданному URL и возвращает Bitmap в экземпляр объекта TImage:

Свернуть исходник

Код:

uses ExtCtrls, mshtml, OleCtrls, ClipBrd, SHDocVw;

function GetBrowserImage(Browser: TWebBrowser; url: string; Image: TImage): boolean;

  var body, imgs, controlRange: olevariant;

      i: integer;

      ImageHref: string;

begin

  Result:=false;

  body := Browser.OleObject.document.body;

  for i := 0 to Browser.OleObject.Document.Images.Length - 1 do

  begin

    ImageHref := Browser.OleObject.Document.Images.Item(i).Href;

    if ImageHref=url then

    begin

      imgs := Browser.OleObject.document.images.item(i);

      controlRange := body.createControlRange;

      controlRange.add(imgs);

      controlRange.execCommand('Copy', False, EmptyParam);

      try

        if ClipBoard.HasFormat(CF_BITMAP) then

        begin

          Image.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);

          Result:=true;

        end;

      except

      end;

      Exit;

    end;

  end;

end;

290

30 октября 2013 года

458 / / 09.02.2008

Попробовал так но не получается... надо как то найденный элемент с картинкой вставить в Image1

Свернуть исходник

Код:

long i;

        IHTMLDocument2* iDoc;

        IDispatch* iDisp;

        IHTMLElement* IElement;

        IHTMLSelectElement* iSelectElement;

        IHTMLInputElement *iInputElement;

        IHTMLOptionElement* iOptionElement;

        IHTMLAnchorElement* IAnchorElement;

        IHTMLScriptElement *IScriptElement;

        IHTMLBodyElement* IBodyElement;

        IHTMLTextAreaElement* iTextAreaElement;

        IHTMLImgElement* iImgElement;

        IHTMLFormElement* iFormElement;

        IHTMLElementCollection* iElementCollection=NULL;

        if( Form1->VK->ControlInterface->Document)

          {

            Form1->VK->ControlInterface->Document->QueryInterface(__uuidof( IHTMLDocument2),(void**)&iDoc);

          }

        long p;

        TVariant index = 1;

        iDoc->get_images(&iElementCollection);

        iElementCollection->item(index,TVariant(0),&iDisp);

        if(iDisp)

         {

             TComInterface<IHTMLElement> pElement;

             iDisp->QueryInterface(IID_IHTMLElement, (LPVOID*)&pElement);

             if(pElement)

                {

                                   Image1->....??????

                }

         }

290

31 октября 2013 года

458 / / 09.02.2008

Народ ну помогите пожалуйста, готов выплатить вознограждение за помощь!

2 спам

290

03 ноября 2013 года

458 / / 09.02.2008

Замучался но нашел решение:
Кому кому интересно ловите:

Свернуть исходник

Код:

Variant body, imgs, controlRange;

  body = VK->OleObject.OlePropertyGet("document").OlePropertyGet("body");

  imgs = VK->OleObject.OlePropertyGet("document").OlePropertyGet("images").OleFunction("item", 7);

  controlRange = body.OleFunction("createControlRange");

  controlRange.OleProcedure("add", imgs);

  controlRange.OleProcedure("execCommand", "Copy", false, EmptyParam);

  if (Clipboard()->HasFormat(CF_BITMAP))

  {

    Image1->Picture->Bitmap->LoadFromClipboardFormat(CF_BITMAP, Clipboard()->GetAsHandle(CF_BITMAP), 0);

    Clipboard()->Clear();

  }