delphi在sql存取jpge、bmp图像.mht

Delphi在SQL存取JPGE、BMP图像

                  =
src=3D"http://info.edu.sinobnet.com/images/imgs2/space.gif"=20
                  width=3D1> </TD></TR>
              <TR>
                <TD colSpan=3D2><SPAN class=3D3zw>
                  <P>&nbsp;&nbsp;&nbsp;=20
                  =
=B6=D4=D3=DA=C9=E6=BC=B0=CD=BC=CF=F1=CA=FD=BE=DD=B5=C4=CA=FD=BE=DD=BF=E2=D3=
=A6=D3=C3=B3=CC=D0=F2=A3=AC=CD=BC=CF=F1=CA=FD=BE=DD=B5=C4=B4=E6=C8=A1=BC=BC=
=CA=F5=CA=C7=D2=BB=B8=F6=B9=D8=BC=FC=A1=A3=D3=C9=D3=DA=C8=B1=C9=D9=BC=BC=CA=
=F5=CE=C4=B5=B5=BC=B0DEMO=C0=FD=B3=CC=D1=DD=CA=BE=A3=AC=CE=AA=B4=CB=B1=CA=
=D5=DF=D4=DA=CD=F8=C9=CF=CB=D1=CB=F7=C1=CB=CF=E0=B9=D8=D7=CA=C1=CF=A3=AC=D3=
=D0=B5=C4=B8=F9=B1=BE=B2=BB=C4=DC=D3=C3=A3=AC=D3=D0=B5=C4=B9=FD=D3=DA=B7=B1=
=D4=D3=A3=AC=D3=D0=B5=C4=D3=A6=D3=C3=B7=B6=CE=A7=CC=AB=D5=AD=A3=A8=C8=E7=D6=
=BB=C4=DC=CA=CA=D3=C3=D3=DABMP=CD=BC=CF=F1=A3=A9=A3=AC=D3=D0=B5=C4=D0=B4=B5=
=C3=B9=FD=D3=DA=BC=F2=B5=A5=C0=ED=BD=E2=C6=F0=C0=B4=CA=AE=B7=D6=C0=A7=C4=D1=
=A1=A3=A1=A3=A1=A3=B6=F8=C7=D2=D4=DA=CD=F8=C9=CF=D5=E2=D2=B2=CA=C7=B4=F3=BC=
=D2=B1=C8=BD=CF=B9=D8=D0=C4=B5=C4=D2=BB=B8=F6=CE=CA=CC=E2=A1=A3=B1=CA=D5=DF=
=B6=D4=D5=E2=B8=F6=CE=CA=CC=E2=BD=F8=D0=D0=C1=CB=B7=B4=B8=B4=CA=B5=D7=F7=BA=
=CD=CC=BD=CB=F7=A3=AC=CF=C2=B1=DF=B1=CA=D5=DF=BD=AB=CD=A8=B9=FD=D2=BB=B8=F6=
=CD=EA=D5=FB=B5=C4=BC=F2=B5=A5=C0=FD=D7=D3=C0=B4=CB=B5=C3=F7=C8=E7=BA=CE=B1=
=A3=B4=E6=BA=CD=CF=D4=CA=BESQL=CA=FD=BE=DD=BF=E2=D6=D0=B5=C4=CD=BC=CF=F1=CA=
=FD=BE=DD=A3=A8=CD=AC=CA=B1=B0=FC=C0=A8BMP=BA=CDJPEG=C1=BD=D6=D6=B8=F1=CA=
=BD=A3=A9=A1=A3</P>
                  <P><STRONG>=D2=BB=A1=A2 =
=B4=B4=BD=A8=D1=DD=CA=BE=CA=FD=BE=DD=BF=E2<BR><BR></STRONG>=A1=A1=A1=A1=D4=
=DASQL=20
                  =
SERVER=D6=D0=D0=C2=BD=A8=D2=BB=D1=DD=CA=BE=CA=FD=BE=DD=BF=E2=A3=BADemo=A3=
=AC=B2=A2=B4=B4=BD=A8=D2=BB=CA=FD=BE=DD=B1=EDPicture1=A3=AC=BD=E1=B9=B9=C8=
=E7=CF=C2=A3=BA<BR><BR>
                  <TABLE border=3D1 cellSpacing=3D0 width=3D"88%">
                    <TBODY>
                    <TR>
                      <TD width=3D"28%">=D7=D6=B6=CE=C3=FB</TD>
                      <TD width=3D"33%">Dtata Type</TD>
                      <TD width=3D"39%">Identity</TD></TR>
                    <TR>
                      <TD width=3D"28%">Id </TD>
                      <TD width=3D"33%">Int </TD>
                      <TD width=3D"39%">Yes</TD></TR>
                    <TR>
                      <TD width=3D"28%">Isbmp</TD>
                      <TD width=3D"33%">Tinyint</TD>
                      <TD width=3D"39%">&nbsp;</TD></TR>
                    <TR>
                      <TD width=3D"28%">Myimage</TD>
                      <TD width=3D"33%">Image </TD>
                      <TD=20
                  =
width=3D"39%">&nbsp;</TD></TR></TBODY></TABLE><BR>=A1=A1=A1=A1=D7=D6=B6=CE=
Isbmp=CA=C7=D3=C3=C0=B4=BC=C7=C2=BC=D4=DAMyimage=D6=D0=B4=E6=C8=EB=B5=C4=CD=
=BC=CF=F1=B5=C4=C0=E0=D0=CD=A3=A80=B1=EDJPEG=A3=AC1=B1=EDBMP=A3=AC=C6=E4=CB=
=FC=D6=B5=B1=ED=CE=DE=CD=BC=CF=F1=A3=A9=A3=ACIsbmp=CA=FD=BE=DD=C0=E0=D0=CD=
=D1=A1=D3=C3=D5=FB=D0=CDTinyint=B6=F8=C4=A9=D1=A1=D3=C3=C2=DF=BC=ADbit=D0=
=CD=D6=F7=D2=AA=CA=C7=BF=BC=C2=C7=B5=BD=C8=E7=CF=C2=B7=BD=B7=A8=C8=D4=CA=CA=
=D3=C3=D3=DAACCESS=CA=FD=BE=DD=BF=E2=A1=A3=D4=DASQL=D6=D0=B4=F2=BF=AA=B1=ED=
Picture1=A3=AC=CC=ED=C8=EB=BC=B8=CC=F5=BC=C7=C2=BC=A3=ACMyimage=CD=BC=CF=F1=
=D7=D6=B6=CE=D6=B5=D4=DD=B2=BB=B9=DC=A3=AC=D7=D6=B6=CEIsbmp=D6=B5=CB=E6=B1=
=E3=CA=E4=C8=EB0=BA=CD1=D6=AE=CD=E2=B5=C4=C6=E4=CB=FC=CA=FD=A1=A3<BR><BR>=
=A1=A1=A1=A1<B>=B6=FE=A1=A2=20
                  =
=B4=B0=BF=DA=C9=E8=BC=C6</B><BR><BR>=A1=A1=A1=A1=D4=DADELPHI=D6=D0=D0=C2=BD=
=A8=D2=BB=B8=F6=B9=A4=B3=CC=A3=AC=D4=DAFORM=A3=B1=C9=CF=B7=C5=D6=C3=C8=E7=
=B1=ED=CB=F9=CA=BE=BF=D8=BC=FE=A3=A8=BF=BC=C2=C7=B5=BDTDBImage=D0=CD=BF=D8=
=BC=FE=B2=BB=C4=DC=D5=FD=C8=B7=CF=D4=CA=BEJPEG=D0=CD=CD=BC=CF=F1=A3=AC=CB=
=F9=D2=D4=D1=A1=D3=C3Timage=D0=CD=BF=D8=BC=FE=CF=D4=CA=BE=CB=F9=D3=D0=C0=E0=
=D0=CD=CD=BC=CF=F1=A3=A9=A1=A3<BR><BR>
                  <TABLE border=3D1 cellSpacing=3D0 width=3D"88%">
                    <TBODY>
                    <TR>
                      <TD width=3D"22%">=D7=E9=BC=FE=C0=E0=B1=F0</TD>
                      <TD =
width=3D"23%">=D7=E9=BC=FE=CA=F4=D0=D4=C3=FB</TD>
                      <TD width=3D"27%">=CA=F4=D0=D4=D6=B5 </TD>
                      <TD =
width=3D"28%">=D3=C3=CD=BE=CB=B5=C3=F7</TD></TR>
                    <TR>
                      <TD rowSpan=3D3 width=3D"22%">Timage</TD>
                      <TD width=3D"23%">caption</TD>
                      <TD width=3D"27%">Image1</TD>
                      <TD rowSpan=3D3 =
width=3D"28%">=CF=D4=CA=BE=CD=BC=CF=F1</TD></TR>
                    <TR>
                      <TD width=3D"23%">name</TD>
                      <TD width=3D"27%">Image1</TD></TR>
                    <TR>
                      <TD width=3D"23%">Stretch</TD>
                      <TD width=3D"27%">True </TD></TR>
                    <TR>
                      <TD rowSpan=3D2 width=3D"22%">Tbutton</TD>
                      <TD width=3D"23%">caption</TD>
                      <TD width=3D"27%">=D1=A1=D4=F1=CD=BC=CF=F1</TD>
                      <TD rowSpan=3D2 =
width=3D"28%">=D1=A1=D4=F1=CD=BC=CF=F1</TD></TR>
                    <TR>
                      <TD width=3D"23%">name</TD>
                      <TD width=3D"27%">selectimage</TD></TR>
                    <TR>
                      <TD rowSpan=3D2>Tbutton</TD>
                      <TD width=3D"23%">caption</TD>
                      <TD width=3D"27%">=B1=A3=B4=E6=CD=BC=CF=F1</TD>
                      <TD =
rowSpan=3D2>=B1=A3=B4=E6=CD=BC=CF=F1=B5=BD=CA=FD=BE=DD=BF=E2</TD></TR>
                    <TR>
                      <TD width=3D"23%">name</TD>
                      <TD width=3D"27%">savetodb </TD></TR>
                    <TR>
                      <TD rowSpan=3D5>TADOConnection</TD>
                      <TD width=3D"23%">caption </TD>
                      <TD width=3D"27%">Adoconnection1</TD>
                      <TD =
rowSpan=3D5>=B4=B4=BD=A8=D3=EB=CA=FD=BE=DD=BF=E2demo=B5=C4=C1=AC=BD=D3</T=
D></TR>
                    <TR>
                      <TD width=3D"23%">name</TD>
                      <TD width=3D"27%">Adoconnection1 </TD></TR>
                    <TR>
                      <TD width=3D"23%">Connectionstring</TD>
                      <TD width=3D"27%">=BC=FB=B1=B8=D7=A2</TD></TR>
                    <TR>
                      <TD width=3D"23%">Connected</TD>
                      <TD width=3D"27%">True</TD></TR>
                    <TR>
                      <TD width=3D"23%">Loginprompt</TD>
                      <TD width=3D"27%">False </TD></TR>
                    <TR>
                      <TD rowSpan=3D5>Tadotable</TD>
                      <TD width=3D"23%">Caption</TD>
                      <TD width=3D"27%">Adotable1</TD>
                      <TD =
rowSpan=3D5>=BD=A8=C1=A2=D3=EB=B1=EDPicture1=B5=C4=C1=AC=BD=D3</TD></TR>
                    <TR>
                      <TD width=3D"23%">name</TD>
                      <TD width=3D"27%">Adotable1 </TD></TR>
                    <TR>
                      <TD width=3D"23%">Connection </TD>
                      <TD width=3D"27%">Adoconnection1</TD></TR>
                    <TR>
                      <TD width=3D"23%">Tablename</TD>
                      <TD width=3D"27%">Picture1</TD></TR>
                    <TR>
                      <TD width=3D"23%">Active </TD>
                      <TD width=3D"27%">True</TD></TR>
                    <TR>
                      <TD rowSpan=3D2>Tdatasource</TD>
                      <TD width=3D"23%">Name</TD>
                      <TD width=3D"27%">Datasource1</TD>
                      <TD =
rowSpan=3D2>=BD=A8=C1=A2=CA=FD=BE=DD=D4=B4</TD></TR>
                    <TR>
                      <TD width=3D"23%">Dataset</TD>
                      <TD width=3D"27%">Adotable1</TD></TR>
                    <TR>
                      <TD rowSpan=3D2>Topenpicturedialog</TD>
                      <TD width=3D"23%">Caption</TD>
                      <TD width=3D"27%">Openpicturedialog1</TD>
                      <TD =
rowSpan=3D2>=D1=A1=D4=F1=CD=BC=CF=F1=CE=C4=BC=FE</TD></TR>
                    <TR>
                      <TD width=3D"23%">Name</TD>
                      <TD width=3D"27%">Openpicturedialog1</TD></TR>
                    <TR>
                      <TD rowSpan=3D3>Tdbgrid</TD>
                      <TD width=3D"23%">Caption </TD>
                      <TD width=3D"27%">Dbgrid1</TD>
                      <TD rowSpan=3D3>=CF=D4=CA=BE=BC=C7=C2=BC</TD></TR>
                    <TR>
                      <TD width=3D"23%">Name</TD>
                      <TD width=3D"27%">Dbgrid1</TD></TR>
                    <TR>
                      <TD width=3D"23%">Datasource</TD>
                      <TD =
width=3D"27%">Datasource1</TD></TR></TBODY></TABLE></P>
                  =
<P>=A1=A1=A1=A1=B1=B8=D7=A2=A3=BA<BR><BR>adoconnection1.connectstring =
:=3D=20
                  <BR>'Provider=3DSQLOLEDB.1;Persist Security =
Info=3DFalse;User=20
                  ID=3Dsa;Initial Catalog=3Ddemo;<BR>Data=20
                  =
Source=3DMysqlserver'<BR>Mysqlserver=CE=AASQL=B7=FE=CE=F1=C6=F7=B5=C4=C3=FB=
=B3=C6=C7=EB=BE=DD=CA=B5=BC=CA=C7=E9=BF=F6=B8=FC=B8=C4=A1=A3<BR><STRONG>=C8=
=FD=A1=A2=20
                  =
=B3=CC=D0=F2=B4=FA=C2=EB=A3=A8=CA=D7=CF=C8=D4=DA=B5=A5=D4=AA=CE=C4=BC=FE=BD=
=D3=BF=DA=B2=BF=B7=D6=B5=C4uses=D3=EF=BE=E4=D6=D0=CC=ED=C8=EBJPEG=B5=A5=D4=
=AA=D2=FD=D3=C3=A3=A9</STRONG> </P>
                  <P></P>
                  <P>=A1=A1=A1=A11. =
=CD=BC=CF=F1=CA=FD=BE=DD=B5=C4=D1=A1=D4=F1=BC=B0=B1=A3=B4=E6<BR></P>
                  <P>
                  <TABLE bgColor=3D#ffffff width=3D"100%">
                    <TBODY>
                    <TR>
                      <TD>
                        <P>procedure TForm1.selectimageClick(Sender: =
TObject);=20
                        //=D1=A1=D4=F1=CD=BC=CF=F1<BR>begin<BR>if =
openpicturedialog1.Execute=20
                        =
then<BR>image1.Picture.LoadFromFile(openpicturedialog1.FileName=20
                        );<BR>end; </P>
                        <P>procedure TForm1.savetodbClick(Sender: =
TObject);=20
                        =
//=B1=A3=B4=E6=CD=BC=CF=F1<BR>var<BR>strm:tmemorystream;=20
                        <BR>ext:string;<BR>begin<BR>if =
image1.picture.Graphic=20
                        &lt;&gt; nil then=20
                        =
//=B1=DC=C3=E2image1=D6=D0=CE=DE=CD=BC=CF=F1=B1=A3=B4=E6=B3=F6=B4=ED<BR>b=
egin<BR>ext:=3Dextractfileext(openpicturedialog1.FileName=20
                        ); =
//=C8=A1=B3=F6=CE=C4=BC=FE=B5=C4=C0=A9=D5=B9=C3=FB<BR>strm :=3D =
tmemorystream.Create=20
                        =
;<BR>try<BR>image1.Picture.Graphic.SaveToStream(strm);<BR>adotable1.Edit =

                        ;<BR>strm.Position :=3D0;=A1=A1=20
                        =
<BR>tblobfield(adotable1.FieldByName('myimage')).LoadFromStream(strm);<BR=
>//=C8=E7=D0=E8=D6=B1=BD=D3=D3=C9=CE=C4=BC=FE=B1=A3=B4=E6=BF=C9=B2=C9=D3=C3=
=C8=E7=CF=C2=D7=A2=CA=CD=D0=D0<BR>//TBlobField(adotable1.FieldByName('myi=
mage')).LoadFromFile(OpenPictureDialog1.FileName);<BR>//=D2=D4=CF=C2=BC=C7=
=C2=BC=B1=A3=B4=E6=B5=BD=CA=FD=BE=DD=BF=E2=B5=C4=CD=BC=CF=F1=B8=F1=CA=BD<=
BR>if=20
                        uppercase(ext) =3D '.BMP'=20
                        then<BR>adotable1.FieldByName('isbmp').Value =
:=3D 1=20
                        //BMP=D0=CD=CD=BC=CF=F1=CA=FD=BE=DD<BR>else if =
(uppercase(ext) =3D '.JPG') OR (=20
                        uppercase(ext) =3D '.JPEG')=20
                        Then<BR>adotable1.FieldByName('isbmp').Value =
:=3D 0;=20
                        =
//JPEG=D0=CD=CD=BC=CF=F1=CA=FD=BE=DD<BR>adotable1.Post =
;<BR>finally<BR>strm.Free=20
                        ;=20
                        =
//=B1=CA=D5=DF=B7=A2=CF=D6=C8=E7strm=B2=C9=D3=C3tblobstream=C0=E0=A3=AC=B3=
=CC=D0=F2=D4=CB=D0=D0=B5=BD=B8=C3=D3=EF=BE=E4=BB=E1=B3=F6=CF=D6=CE=CA=CC=E2=
<BR>end;<BR>end;<BR>end;</P></TD></TR></TBODY></TABLE></P>
                  <P>=A1=A1=A1=A12.=20
                  =
=CD=BC=CF=F1=CA=FD=BE=DD=B5=C4=B6=C1=C8=A1=BC=B0=CF=D4=CA=BE<BR><BR>=A1=A1=
=A1=A1=B4=D3=CA=FD=BE=DD=BF=E2=CD=BC=CF=F1=D7=D6=B6=CE=D6=D0=B6=C1=C8=A1=CA=
=FD=BE=DD=C8=BB=BA=F3=D4=DAImage1=D6=D0=B0=D1=CD=BC=CF=F1=CF=D4=CA=BE=B3=F6=
=C0=B4=B5=C4=B3=CC=D0=F2=B4=FA=C2=EB=A3=AC=B1=CA=D5=DF=CF=C8=B3=A2=CA=D4=D4=
=DADatasource1=B5=C4OnDataChange=CA=C2=BC=FE=D6=D0=C0=B4=CD=EA=B3=C9=A3=AC=
=B5=AB=BB=E1=B3=F6=B4=ED=A3=AC=BA=F3=B8=C4=D0=B4=D4=DAadotable1=B5=C4afte=
rscroll=CA=C2=BC=FE=D6=D0=CB=B3=C0=FB=CD=EA=B3=C9=A1=A3<BR></P>
                  <P>
                  <TABLE bgColor=3D#ffffff width=3D"100%">
                    <TBODY>
                    <TR>
                      <TD>procedure TForm1.adoTable1AfterScroll(DataSet: =

                        TDataSet);=20
                        =
//=CF=D4=CA=BE=CD=BC=CF=F1<BR>var<BR>strm:tadoblobstream;<BR>jpegimage:tj=
pegimage;<BR>bitmap:tbitmap;<BR>begin<BR>strm=20
                        :=3D=20
                        =
tadoblobstream.Create(tblobfield(adotable1.fieldbyname('MYIMAGE')),bmread=
);<BR>try=20
                        //try1<BR>strm.position =
:=3D0;<BR>image1.Picture.Graphic=20
                        :=3D nil; //=C7=E5=B3=FD=CD=BC=CF=F1<BR>// =
BMP=A1=A2JPEG=C1=BD=D6=D6=CD=BC=CF=F1=CA=FD=BE=DD=B1=D8=D0=E8=B7=D6=B1=F0=
=B4=A6=C0=ED<BR>if=20
                        adotable1.fieldbyname('isbmp').asstring =3D'1' =
then=20
                        //BMP=D0=CD=CD=BC=CF=F1=CA=FD=BE=DD<BR>begin =
//begin11<BR>bitmap :=3D=20
                        tbitmap.Create ;<BR>try=20
                        =
//try11<BR>bitmap.LoadFromStream(strm);<BR>image1.Picture.Graphic=20
                        :=3D bitmap;<BR>finally<BR>bitmap.Free;<BR>end; =
//end=20
                        try11<BR>end //end begin11<BR>else if=20