你們這也算是回答嗎。。。
最后一個(gè)的沒(méi)怎么明白什么意思。
我找了一個(gè),是在盒子上找到的
ser(: ;
: ; :
; : ;
: ; : );
var
: TRect;
: TRect;
: ;
: ;
aJPG: ;
: ;
begin
:= .;
:= .;
aJPG := .;
try
:= Rect(0, 0, , );
.Width := ;
. := ;
:= as ;
if =nil then
Exit;
(.Draw(, 1, nil, nil,
Form1.,
..,
@, nil, nil, 0));
// 設(shè)定圖片尺寸
:= Rect(0, 0, , );
. := ;
.Width := ;
..(, );
// 產(chǎn)生JPEG并保存
aJPG.();
aJPG.()
aJPG.Free;
.Free;
.Free
end; { try }
// 處理異常
end;
end;
.(: );
var
IDoc1: ;
Web : ;
tmpX,
tmpY : ;
begin
.:=.+'.jpg';
if . then
with do
begin
.(, IDoc1);
Web := ;
tmpX := ;
tmpY := Width;
:= ..Body.('', 0) + ()+3;// ...+1000;
Width := ..Body.('', 0) + ()+3;//...Width;
ser(Web, . , , Width, , Width);
:= tmpX;
Width := tmpY;
end;
('網(wǎng)頁(yè)截圖完成');
end;