URL转图片
来源:互联网 发布:武汉黄陂公安局网络 编辑:程序博客网 时间:2024/05/21 15:49
fMain.pas
unit fMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, OleCtrls, SHDocVw, StdCtrls, MSHTML;
type
TForm1 = class(TForm)
Edit1 : TEdit;
Button1 : TButton;
Button2 : TButton;
WebBrowser1: TWebBrowser;
Image1 : TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses
JPEG, ActiveX, ComObj;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin { TForm1.Button1Click }
WebBrowser1.Navigate(Edit1.Text)
end; { TForm1.Button1Click }
procedure GenerateJPEGfromBrowser(browser: iWebBrowser2;
jpegFQFilename: string; srcHeight:
integer; srcWidth: integer;
tarHeight: integer; tarWidth: integer);
var
sourceDrawRect: TRect;
targetDrawRect: TRect;
sourceBitmap : TBitmap;
targetBitmap : TBitmap;
aJPG : TJPEGImage;
aViewObject : IViewObject;
begin { GenerateJPEGfromBrowser }
sourceBitmap := TBitmap.Create;
targetBitmap := TBitmap.Create;
aJPG := TJPEGImage.Create;
try
try
sourceDrawRect := Rect(0, 0, srcWidth, srcHeight);
sourceBitmap.Width := srcWidth;
sourceBitmap.Height := srcHeight;
aViewObject := browser as IViewObject;
if aViewObject=nil then
Exit;
OleCheck(aViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil,
Form1.Handle,
sourceBitmap.Canvas.Handle,
@sourceDrawRect, nil, nil, 0));
// Resize the src bitmap to the target bitmap
// Need to make thumbnails instead of full size?
// set the target size here..
targetDrawRect := Rect(0, 0, tarWidth, tarHeight);
targetBitmap.Height := tarHeight;
targetBitmap.Width := tarWidth;
targetBitmap.Canvas.StretchDraw(targetDrawRect, sourceBitmap);
// Create a JPEG from the Bitmap and save it
aJPG.Assign(targetBitmap);
aJPG.SaveToFile(jpegFQFilename)
finally
aJPG.Free;
sourceBitmap.Free;
targetBitmap.Free
end; { try }
except
// error handler code
end; { try }
end; { GenerateJPEGfromBrowser }
procedure TForm1.Button2Click(Sender: TObject);
var
IDoc1: IHTMLDocument2;
Web : iWebBrowser2;
tmpX,
tmpY : integer;
begin { TForm1.Button2Click }
with WebBrowser1 do
begin
Document.QueryInterface(IHTMLDocument2, IDoc1);
Web := ControlInterface;
tmpX := Height;
tmpY := Width;
Height := OleObject.Document.ParentWindow.Screen.Height;
Width := OleObject.Document.ParentWindow.Screen.Width;
GenerateJPEGfromBrowser(Web, './test.jpg',
Height, Width,
Height, Width);
Height := tmpX;
Width := tmpY;
Image1.Picture.LoadFromFile('./test.jpg')
end; { with WebBrowser1 }
end; { TForm1.Button2Click }
end.
fMain.dfm
object Form1: TForm1
Left = 192
Top = 107
Width = 696
Height = 480
ActiveControl = Edit1
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 416
Top = 40
Width = 257
Height = 217
Stretch = True
end
object Edit1: TEdit
Left = 8
Top = 8
Width = 141
Height = 21
TabOrder = 0
Text = 'http://www.yahoo.com/'
end
object Button1: TButton
Left = 183
Top = 8
Width = 75
Height = 25
Caption = '&Open URL'
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 268
Top = 8
Width = 75
Height = 25
Caption = '&Save as JPG'
TabOrder = 2
OnClick = Button2Click
end
object WebBrowser1: TWebBrowser
Left = 8
Top = 40
Width = 400
Height = 400
TabOrder = 3
ControlData = {
4C00000057290000572900000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E126208000000000000004C0000000114020000000000C000000000000046
8000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
end
- URL转图片
- Url转图片
- 图片url转base64
- 图片url
- Android:网络图片Url 转 Bitmap
- base64图片及图片url转base64下载
- Android URL上传图片
- 从url显示图片
- 下载url图片到沙盒中
- java 下载URL图片
- 通过URL读取图片
- 百度图片url解码
- Data URL和图片
- 图片url转成Drawable
- 用URL浏览图片
- 用URL浏览图片
- Data URL和图片
- 存储图片URL
- iframe jsp 提交取值
- 上传下载大点的数据文件,WCF用默认配置不能正常的序列化和反序列化
- 外国wince学习论坛收集
- 无法找到AdbWinApi.dll问题解决
- javascript checkbox 赋值选中
- URL转图片
- omap
- Intent 广播 发送 接收
- 团队建设
- Flex+J2EE获取FlexSession的方法
- JQuery实现radio、select、checkbox禁用
- linux 笔记
- 虚拟机(xen)中credit调度算法分析
- activity的基本介绍(转)