２００分求助滚动抓图，滚动抓文字 ( 积分: 100 )

funxu · 2005-02-23

能给出滚动抓图就像snagit里给带滚动条的窗口抓图一样的效果１００分 能给出滚动抓文字就像snagit里给带滚动条的窗口抓文字一样的效果１００分 因为没人回答分就浪费了，所以我会另开贴散分的 拜托照顾一下小鸟，能不能给源码，不能给能不能思路说的细些

funxu · 2005-02-23

能给出滚动抓图就像snagit里给带滚动条的窗口抓图一样的效果１００分 能给出滚动抓文字就像snagit里给带滚动条的窗口抓文字一样的效果１００分 因为没人回答分就浪费了，所以我会另开贴散分的 拜托照顾一下小鸟，能不能给源码，不能给能不能思路说的细些

funxu · 2005-02-24

诸位高手高手高高手，嫌分少开个数吧，不要都这么深沉嘛，又不是沉睡的羔羊，灌水也支持！

lich · 2005-02-24

发送滚动条消息, 多次抓屏然后通过特定算法,将图像接合在一起

lghxedit · 2005-02-24

这里有滚动抓网页的代码,希望对你有帮助: var  Doc: IHTMLDocument2;  ViewObject: IViewObject;  sourceDrawRect: TRect;  a, getjpg: TBitMap;  i, m: integer;  pdest, psour: hbitmap;  jpg: tjpegimage; begin  Doc := WebBrowser1.Document as IHTMLDocument2;  if WebBrowser1.Document &lt;&gt; nil then  try    WebBrowser1.Document.QueryInterface(IViewObject, ViewObject);    if ViewObject &lt;&gt; nil then    try      Doc.Get_ParentWindow.Scroll(0, 0); //跳到网页头      getjpg := TBitMap.Create();      getjpg.PixelFormat := pf24bit;      getjpg.Height := doc.Body.getAttribute('scrollHeight', 0);      getjpg.Width := doc.Body.getAttribute('scrollwidth', 0);      pdest := getjpg.Canvas.Handle;      m := Trunc(doc.Body.getAttribute('ScrollHeight', 0) / (doc.Body.getAttribute('offsetHeight', 0) - 20));      i := Trunc(doc.Body.getAttribute('Scrollwidth', 0) / (doc.Body.getAttribute('offsetwidth', 0) - 20));      for i := 0 to i do      begin        for m := 0 to m + 1 do        begin          a := TBitMap.Create();          a.Height := doc.Body.getAttribute('offsetHeight', 0);          a.Width := doc.Body.getAttribute('offsetwidth', 0);          psour := a.Canvas.handle;          sourceDrawRect := Rect(0, 0, a.Width, a.Height);          ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Self.Handle, a.Canvas.Handle, @sourceDrawRect, nil, nil, 0);          bitblt(pdest, doc.Body.getAttribute('scrollLeft', 0), doc.Body.getAttribute('Scrolltop', 0), a.Width, a.Height, psour, 2, 2, srccopy);          Doc.Get_ParentWindow.Scroll(doc.Body.getAttribute('scrollLeft', 0), doc.Body.getAttribute('offsetHeight', 0) + doc.Body.getAttribute('Scrolltop', 0) - GetSystemMetrics(SM_CXVSCROLL) - 24);          a.Free;        end;        Doc.Get_ParentWindow.Scroll(doc.Body.getAttribute('offsetwidth', 0) + doc.Body.getAttribute('scrollLeft', 0) - GetSystemMetrics(SM_CXVSCROLL) - 24, 0);      end;      jpg := tjpegimage.Create;      jpg.Assign(getjpg);      getjpg.Free;      jpg.SaveToFile('demo.jpg');      jpg.Free;    finally      ViewObject._Release;    end;  except  end; end;

savetime · 2005-02-25

看看下面的例子，大概就明白原理了。 把整个网页保存成JPG图片(针对单框架网页) http://www.2ccc.com/article.asp?articleid=1423 滚屏截图的演示例子 http://www.2ccc.com/article.asp?articleid=725 Capture an HTML document as an image http://www.codeproject.com/internet/htmlimagecapture.asp

funxu · 2005-02-26

感谢感谢,不知到抓文字有思路没？

青出于蓝 · 2005-02-26

上面的滚屏截图的演示例子是我写的，不太完善。抓文字应该不能实现。

funxu · 2005-02-27

savetime同志的第一个demo抓图时图片有黑道联结，而且图片重复拼凑，第二个例子还可以不过抓图越多速度越慢不像snagit那样流畅．不过分还是分了吧

funxu · 2005-02-27

抓文字我找到了一个替代方方法，谁让我是菜鸟呢

２００分求助滚动抓图，滚动抓文字 ( 积分: 100 )

funxu

Unregistered / Unconfirmed

funxu

Unregistered / Unconfirmed

funxu

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

lghxedit

Unregistered / Unconfirmed

savetime

Unregistered / Unconfirmed

funxu

Unregistered / Unconfirmed

青出于蓝

Unregistered / Unconfirmed

funxu

Unregistered / Unconfirmed

funxu

Unregistered / Unconfirmed

Similar threads