delphi图像存取另类解决方案.mht

delphi程序绘制jpeg图像源代码

From: <由 Microsoft Internet Explorer 5 保存>
Subject: =?gb2312?B?RGVscGhpzbzP8bTmyKHB7cDgveK+9re9sLihqrHgs8ywrrrD1d/N+A==?=
	=?gb2312?B?1b4gaHR0cDovL3d3dy5wcm9ncmFtZmFuLmNvbQ==?=
Date: Mon, 21 Nov 2005 11:06:20 +0800
MIME-Version: 1.0
Content-Type: multipart/related;
	boundary="----=_NextPart_000_005B_01C5EE8B.9A30C740";
	type="multipart/alternative"
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106

This is a multi-part message in MIME format.

------=_NextPart_000_005B_01C5EE8B.9A30C740
Content-Type: image/gif
Content-Transfer-Encoding: base64
Content-Location: http://www.programfan.com/image/small1.gif

R0lGODlhEAANAJECAP///+khAAAAAAAAACH5BAEAAAIALAAAAAAQAA0AAAIplICZxhcPIWgg2jdN
vTE7uUlMGCTd2JkYCpKeS5Yst2q0OF/eqCiNUAAAOw==

------=_NextPart_000_005B_01C5EE8B.9A30C740
Content-Type: image/gif
Content-Transfer-Encoding: base64
Content-Location: http://www.programfan.com/bc.gif

R0lGODlhoABQAMQAAAAA//8AAP9mZmZm//8zM/+/vzMz/7+//9/f//+Pj/9PT4+P/w8P///MzE9P
//8PD/+vr/8/P/9/f5mZ/8zM/x8f/z8////f339///9mZv+ZmWZm//8fH6+v/////wAAACH5BAUU
AB4ALAAAAACgAFAAAAX/oCeOZGmeaKqubOu+cCzPdG3feK7vfO//wKBwSCwaj8ikcslsOp/QqHRK
rVqv2Kx2y+0uL5KwpNASRM6CFOR89hTe8Pi7cWNHNKKGnW5Gu8WAgHgremx0QRIBigEXdo52iwER
HoWOkQEel5qSIo+engSREiIFkWQRi5OJm6l5cnEJkQmvcIc1F5FprLuTuLsBD5m/nB6ow8ejbqbF
rau8ncfHkzbGihfC0YqDw6PSIgLZuw/XpcMRzqzT1eGa0zQQuSKigfSDHhph4IsCEtuLydiIafhE
0JGAQ+V+Rbjwap0CaOw2uZNxgUOkawHpabRHatkIUR9biQAjJsEICIAw/4pIAKijORMaIo1zRatA
rEWzatqSkTBAGnns1J0JtYgAm4DnwkSa9mZdzpuKFMBBJ5USUUVGHyx68HNEA62LILToSYaUHY48
N/WMNu1YQFYP30aM5FLRKZEjKsbLU/BqAKNnwGKNsBPGWrumai4F+kuuJn9zNdUNcFfRRA/oCJA4
HJkyDc49P/ltO6xYQZOMOy+aXJnYCHQqlan2SDHfxYioR5CdkatmTb+smVkuga5EJYtLCz4qLEMf
p6AYBwoga0ZDpYKk4AA+E/tEgzjBq6kSsy5lXr8Ai/jSFhBGoghkUY2J9o3NJeWPwreKVtaDc2AQ
+EZLdzI4E0xAnN0nwv978QUwn1vCzYaJbHZFOAl/k0WW3gyC/WSKN5hJ0uCDpUU4m37D8aeBX51t
GENMi2D04UshwmeKfCUsZtwbfgUo4CuTSaDXcHH8FwdDEiriIgxXxYWgZahwoM8q0zB4o4M54mXC
ffjZ4dUlCoBEQnEkrLfIj3GIOUMDorzxpINWYjJcjSOadoZMbHRFyYkj/BeJZsTRVUIEgk3Ygppp
STajUjbKSUycduEI4kp8joScTASSOWhyXSIaA2dvKrSgiFd2Q+M3kfj4ip8BcNBfhgHkNqagm862
pAugzigqnaU6puAIlz7AUiAQsKoAgf7JhIKmJKyj4S20hPpMso1GiiX/CTqWYKYAF7B6yQNo5VXo
tYGuZkJ5GmnkaQ4zCgAOATeVM8lN1VKGI7ZaniSLWawQgKwHF4SpCXP/nbCOC2be2sJ1bPhVDqPl
+DKJvCM6y0oBYPjFjxgsYrWxGPcQugsBafRRqMGcKodeDQlu9TCkw/kyXakWq+XrXB7Ag6eCAl+C
sq0sDyOVkjD71Mmx1N1RsyZkdNxvY2ymekGhqmjiZLMSMvdCywEcW4gGBfQDBjhcdbdbffjxoQhX
azwyHcAJKOAJYxyIRYkCYE2i8yIKaN1Hl56E68XghBdu+OGIJ6744ow37vjjkEcu+eSUV2755TQg
gMHmnB9wOAITcE75/wEAlG46AAYgULgBp49++ukLEE566Q5g4LrpHTBQugUehL75ARQ4IILmFljg
wAQkHOCABbFzbvsBnE+AwAAUeIDAAstbgIHqHkC/ufQDaG89BhYMoPoCpi/g+fjFO7AA995jMAEF
4dt+wgHhM8/98OQbj7wI8QOf+IhnPhnMrnQesMDuEmi6AejOAxTQ3elSZz0Joq51GDBd8QBwAARU
4HUMqF4GS2cACw6AdST0wOsA4IHcvY6CIwRABUxoggGAsHoQtCAJVRfDEjYQhagzYOsUCADeEbF1
QKQh+kz3QdN5IIamUx4TTSc8KDaxdFcEAAVW6AEJMsCCzTvdFRlQgv8JmO6LWBRBEhv4RDG60XQ4
fMEBWUhEI64QAac7YAXauLs58jGPErSAHv8oyNbl0Y9bLN3m2BjDQjqRBA4w3SJLhwA8RpGJhPRj
HmMwRxsu8IiXDCUCG+lHKJbugI4cpQY1GUU/HnCSRcxk60hwRFgeYI6lXKUho8jJFZZuAAwsHQM8
h0sM6tKJUIxdAos3ACjK0omHbB0Fise8SC6QlLMcQS3jh4BiIvOYCNwkDOaoQdUdEZjdy6Mx+7jO
IJJgAllkITah2cpsak6HvJsnAmkpyRJ4U5XspOcpe9nK/dUSgOr8ZkABGksRUKCJOnxmOOv5yAl4
UYMSZSE/FenPhDL/NJUsFKccs6nNfqZTlPIEZ0oXKAKIdqCdIFUhRRFoySI2MqMlqOU0i0eBf660
iKwc6DhJKoKDnvSU7ayAM28qApXiNJpOfOVN9anRkirygLf06E9jKlIX+DGnJvVpC3350RE4laoy
PaUrJTlVlXbzlh6wJgAwcMCeavWpvBzqIzc6V7M2kIoi8CQDPFnWpmJxqU6FKgIP6AC55lOlBySk
YA37S8Citast+Cpf7ecBwm6ym6Gzq0Ib6oF4jparM2VhTV/32IVy0IkI0GHplOlZXl42ryPdq1X7
OjzPVqADIlgiAGp3RkKOwIUMQKxr08rBr46wAoRtLVA96tAxcnZ6RWIELl6FSoS3xtF6ZOXsCbq5
vx10Mwc9XV8JvHu4DmSxAsrEHOLeWl752ve++M2vfvfL3/76978ADrCAB0zgAhv4wJgLAQA7

------=_NextPart_000_005B_01C5EE8B.9A30C740
Content-Type: text/css;
	charset="gb2312"
Content-Transfer-Encoding: quoted-printable
Content-Location: http://www.programfan.com/article/style.css

A:link {
	COLOR: blue; TEXT-DECORATION: none
}
A:visited {
	COLOR: purple; TEXT-DECORATION: none
}
A:active {
	COLOR: red; TEXT-DECORATION: none
}
A:hover {
	COLOR: red; TEXT-DECORATION: underline
}
P {
	FONT-SIZE: 9pt; LINE-HEIGHT: 150%; FONT-FAMILY: =CB=CE=CC=E5,Arial
}
LI {
	FONT-SIZE: 9pt; LINE-HEIGHT: 150%; FONT-FAMILY: =CB=CE=CC=E5,Arial
}
TD {
	FONT-SIZE: 9pt; LINE-HEIGHT: 150%; FONT-FAMILY: =CB=CE=CC=E5,Arial
}
.fontsize10 {
	FONT-SIZE: 10pt; FONT-FAMILY: =CB=CE=CC=E5,Arial
}
A.a1:visited {
	COLOR: #ffffff; LINE-HEIGHT: 15pt; TEXT-DECORATION: none
}
A.a1:hover {
	WIDTH: 70px; COLOR: #ffffff; LINE-HEIGHT: 15pt; BACKGROUND-COLOR: =
#4a8ff2
}
A.a1:link {
	COLOR: #ffffff; LINE-HEIGHT: 15pt; TEXT-DECORATION: none
}

------=_NextPart_000_005B_01C5EE8B.9A30C740
Content-Type: application/octet-stream
Content-Transfer-Encoding: quoted-printable
Content-Location: http://count.hotadv.com/code/cpc/4595.aspx

function HotspotPop(j,i){var Then =3D new =
Date();Then.setTime(Then.getTime() + 24*60*60*1000);var CookieStr =3D =
new String(document.cookie);var CookieName =3D 'pop'+j;var beginPosition =
=3D CookieStr.indexOf(CookieName);if (beginPosition =3D=3D =
-1){document.cookie =3D CookieName+'=3DPOP;expires=3D'+ =
Then.toGMTString();window.showModelessDialog(i);window.focus();}}if =
(path=3D=3Dnull){var path=3Dnew Array();}=0A=
var site;if (window.top.location =3D=3D document.location){site =3D =
document.location;}else{site =3D document.referrer;}site =3D =
escape(site);function GoTo(i){var =
source=3Devent.srcElement;source.href=3Dpath[i];}document.write('<table =
border=3D0 cellpadding=3D0 cellspacing=3D0><tr><td =
id=3D"ad4595"></td></tr><tr><td =
id=3D"ad4595"></td></tr></table>');function =
Set1(){ad4595[1].innerHTML=3D'<div style=3D"position:absolute;"><a =
href=3D"http://bj.corpease.net/trial.htm" =
title=3D"=E5=B9=BF=E5=91=8A=E5=95=86=EF=BC=9A=E5=B9=BF=E5=B7=9E=E5=B0=9A=E6=
=98=93=E8=AE=A1=E7=AE=97=E6=9C=BA=E4=BF=A1=E6=81=AF=E6=9C=89=E9=99=90=E5=85=
=AC=E5=8F=B8\n=E5=B9=BF=E5=91=8A=E6=91=98=E8=A6=81=EF=BC=9A=E5=B0=9A=E6=98=
=93=E7=94=B5=E5=AD=90=E5=95=86=E5=8A?---=E4=BC=81=E4=B8=9A=E9=82=AE=E7=AE=
=B1=E3=80=81=E8=99=9A=E6=8B=9F=E4=B8=BB=E6=9C=BA=E3=80=81=E4=BC=81=E4=B8=9A=
=E7=9F=AD=E4=BF=A1\n	=
=E7=83=AD=E7=82=B9=E7=BD=91=E7=BB=9C=E5=B9=BF=E5=91=8A=E7=BD=91=E3=80=80=E6=
=8F=90=E4=BE=9B	" target=3D"_blank" onMouseDown=3D"GoTo(4595)"><img =
src=3D"http://pic.hotadv.com/images/1.gif" width=3D"468" height=3D"80" =
border=3D"0" style=3D"visibility:hidden;"></a></div><EMBED =
src=3D"http://pic.hotadv.com/rd_upimg/shangyi/2468_80.swf?p=3DGo&h=3D'+si=
te+'&a=3D471&s=3D4595&u=3Dhttp%3a%2f%2fbj.corpease.net%2ftrial.htm&codeid=
=3D224925266316" quality=3Dhigh WIDTH=3D"468" HEIGHT=3D"80" =
TYPE=3D"application/x-shockwave-flash" =
PLUGINSPAGE=3D"http://www.macromedia.com/go/getflashplayer" =
wmode=3Dtransparent></EMBED>';=0A=
for(i=3D0;i<ad4595.length;i++){ad4595[i].style.display=3D'none';}ad4595[1=
].style.display=3D'block';path[4595]=3D'http://bj.corpease.net/trial.htm'=
;=0A=
window.setTimeout('path[4595]=3D"http://jump.hotadv.com/Count/CPC/Go.aspx=
?aa_id=3D471&sa_id=3D4595&host=3D'+site+'&u=3Dhttp%3a%2f%2fbj.corpease.ne=
t%2ftrial.htm&codeid=3D224925266316"',1000);=0A=
}function =
Set0(){ad4595[0].background=3D'http://pic.hotadv.com/rd_upimg/jisiwangluo=
/468-80.gif';=0A=
ad4595[0].innerHTML=3D'<a href=3D"http://www.geisnic.com" =
target=3D"_blank" style=3D"width:468px;height=3D80;" =
onMouseDown=3D"GoTo(4595)" =
title=3D"=E5=B9=BF=E5=91=8A=E5=95=86=EF=BC=9A=E4=B8=8A=E6=B5=B7=E5=8D=8E=E6=
=95=B0=E4=BF=A1=E6=81=AF=E6=8A=80=E6=9C=AF=E6=9C=89=E9=99=90=E5=85=AC=E5=8F=
=B8\n=E5=B9=BF=E5=91=8A=E6=91=98=E8=A6=81=EF=BC=9A=E8=99=9A=E6=8B=9F=E4=B8=
=BB=E6=9C=BA|=E5=9F=9F=E5=90=8D=E6=B3=A8=E5=86=8C|=E6=9C=8D=E5=8A=A1=E5=99=
=A8=E7=A7=9F=E7=94=A8|=E6=9C=8D=E5=8A=A1=E5=99=A8=E6=89=98=E7=AE?=E9=9B=86=
=E6=80=9D=E7=BD=91=E7=BB=9CGEISNETWORK\n	=
=E7=83=AD=E7=82=B9=E7=BD=91=E7=BB=9C=E5=B9=BF=E5=91=8A=E7=BD=91=E3=80=80=E6=
=8F=90=E4=BE=9B	"></a>';=0A=
for(i=3D0;i<ad4595.length;i++){ad4595[i].style.display=3D'none';}ad4595[0=
].style.display=3D'block';path[4595]=3D'http://www.geisnic.com';=0A=
window.setTimeout('path[4595]=3D"http://jump.hotadv.com/Count/CPC/Go.aspx=
?aa_id=3D938&sa_id=3D4595&host=3D'+site+'&u=3Dhttp%3a%2f%2fwww.geisnic.co=
m&codeid=3D224925266316"',1000);=0A=
}var cookieName=3D'i4595=3D';=0A=
var sl=3DcookieName.length;=0A=
var cl=3Ddocument.cookie.length;=0A=
var i=3D0;=0A=
while(i<cl){=0A=
var s=3Di+sl;=0A=
if(document.cookie.substring(i,s)=3D=3DcookieName){=0A=
var e=3Ddocument.cookie.indexOf(';',s);=0A=
if(e=3D=3D-1)e=3Dcl;=0A=
i =3D unescape(document.cookie.substring(s,e));=0A=
break;=0A=
}=0A=
i=3Ddocument.cookie.indexOf(' ',i)+1;=0A=
if(i=3D=3D0){time=3Dnew Date();i=3Dtime.getSeconds();break;}=0A=
}=0A=
if(i=3D=3Dnull){=0A=
document.cookie=3DcookieName+'1';=0A=
}else{=0A=
if(i%2=3D=3D1){document.cookie=3DcookieName+'2';=0A=
Set1()}=0A=
else{document.cookie=3DcookieName+'1';=0A=
Set0()}=0A=
}
------=_NextPart_000_005B_01C5EE8B.9A30C740
Content-Type: multipart/alternative;
	boundary="----=_NextPart_001_0064_01C5EE8B.9A333840"


------=_NextPart_001_0064_01C5EE8B.9A333840
Content-Type: text/html;
	charset="gb2312"
Content-Transfer-Encoding: quoted-printable
Content-Location: http://www.programfan.com/article/showarticle.asp?id=2426

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Delphi=CD=BC=CF=F1=B4=E6=C8=A1=C1=ED=C0=E0=BD=E2=BE=F6=
=B7=BD=B0=B8=A1=AA=B1=E0=B3=CC=B0=AE=BA=C3=D5=DF=CD=F8=D5=BE =
http://www.programfan.com</TITLE>
<META http-equiv=3DContent-Type content=3D"text/html; charset=3Dgb2312">
<STYLE type=3Dtext/css>A:link {
	COLOR: blue; TEXT-DECORATION: none
}
A:visited {
	COLOR: purple; TEXT-DECORATION: none
}
A:active {
	COLOR: red; TEXT-DECORATION: none
}
A:hover {
	COLOR: red; TEXT-DECORATION: underline
}
P {
	FONT-SIZE: 9pt; LINE-HEIGHT: 150%; FONT-FAMILY: =CB=CE=CC=E5,Arial
}
LI {
	FONT-SIZE: 9pt; LINE-HEIGHT: 150%; FONT-FAMILY: =CB=CE=CC=E5,Arial
}
TD {
	FONT-SIZE: 9pt; LINE-HEIGHT: 150%; FONT-FAMILY: =CB=CE=CC=E5,Arial
}
.fontsize10 {
	FONT-SIZE: 10pt; FONT-FAMILY: =CB=CE=CC=E5,Arial
}
A.a1:visited {
	COLOR: #ffffff; LINE-HEIGHT: 15pt; TEXT-DECORATION: none
}
A.a1:hover {
	WIDTH: 70px; COLOR: #ffffff; LINE-HEIGHT: 15pt; BACKGROUND-COLOR: =
#4a8ff2
}
A.a1:link {
	COLOR: #ffffff; LINE-HEIGHT: 15pt; TEXT-DECORATION: none
}
</STYLE>

<SCRIPT type=3Dtext/javascript>
<!--
function SaveAs(ID,page)=20
{
   if (document.execCommand) {
     if(page)
        document.execCommand('SaveAs',true,ID+'('+page+').htm');
	 else
	    document.execCommand('SaveAs',true,ID+'.htm');
     }
   else {
     alert('SaveAs Function Not Supported by Browser');
     }=20
}
-->
</SCRIPT>

<META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR></HEAD>
<BODY>
<TABLE=20
style=3D"BORDER-RIGHT: #ccc000 1px solid; PADDING-RIGHT: 1px; =
BORDER-TOP: #ccc000 1px solid; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; =
BORDER-LEFT: #ccc000 1px solid; PADDING-TOP: 1px; BORDER-BOTTOM: #ccc000 =
1px solid"=20
cellSpacing=3D0 cellPadding=3D0 width=3D755 align=3Dcenter border=3D0>
  <TBODY>
  <TR bgColor=3D#ffffce>
    <FORM action=3Dhttp://www.programfan.com/login.asp method=3Dpost>
    <TD width=3D437><B>&nbsp;&nbsp;<A=20
      =
href=3D"http://www.programfan.com/reg.asp">=CD=A8=D0=D0=D6=A4</A></B> =
=D3=C3=BB=A7=C3=FB <INPUT=20
      style=3D"BORDER-RIGHT: rgb(0,0,255) 1px solid; BORDER-TOP: =
rgb(0,0,255) 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: rgb(0,0,255) 1px =
solid; BORDER-BOTTOM: rgb(0,0,255) 1px solid; FONT-FAMILY: =CB=CE=CC=E5" =

      size=3D10 name=3Dusername> =C3=DC=C2=EB <INPUT=20
      style=3D"BORDER-RIGHT: rgb(0,0,255) 1px solid; BORDER-TOP: =
rgb(0,0,255) 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: rgb(0,0,255) 1px =
solid; BORDER-BOTTOM: rgb(0,0,255) 1px solid; FONT-FAMILY: =CB=CE=CC=E5" =

      type=3Dpassword size=3D10 name=3Dpassword> <INPUT type=3Dhidden =
value=3Dperson=20
      name=3Dusertype> <INPUT type=3Dsubmit value=3D=B5=C7=C2=BD =
name=3DSubmit> <B><A=20
      style=3D"COLOR: #800080" =
href=3D"http://www.programfan.com/reg.asp">=D7=A2=B2=E1</A> <A=20
      style=3D"COLOR: #800080"=20
      href=3D"http://www.programfan.com/user/forgetpass.asp"=20
      target=3D_blank>=CD=FC=BC=C7=C3=DC=C2=EB</A></B> </TD></FORM>
    <TD width=3D318>
      <DIV align=3Dright><IMG =
src=3D"http://www.programfan.com/image/small1.gif"=20
      border=3D0><A style=3D"COLOR: #800080"=20
      =
href=3D"http://www.programfan.com/">=BB=D8=B5=BD=CA=D7=D2=B3</A>&nbsp;<IM=
G=20
      src=3D"http://www.programfan.com/image/small1.gif" border=3D0><A=20
      style=3D"COLOR: #800080"=20
      =
onclick=3D"this.style.behavior=3D'url(#default#homepage)';this.setHomePag=