£Û¼±£¬ÔÚÏߵȣÝdelphi sql2000 ͼƬ
1¡¢Â·¾¶ imgPath:string;//±ÈÈçÒѾµÃµ½ÁËͼƬ·¾¶
2¡¢SQL2000 Êý¾Ý¿â ±íÃû ttbtestimg ×Ö¶ÎÃû img ×Ö¶ÎÀàÐÍimage
3¡¢Çë¸øÒ»¸öÍêÕû´úÂ룬½«´Ë·¾¶ÏµÄͼƬ£¬´æÈëÊý¾Ý¿â£¬ÏàÓ¦±íµÄÏàÓ¦×Ö¶ÎÖÐ
4¡¢Çë¸ø³öÒ»¶ÎÍêÕû´úÂ룬½«´Ë±íÖеÄͼƬÏÔʾÔÚͼƬ¿Ø¼þÉÏ
4¡¢Çë¸ø³ö×¢ÊÍ
5¡¢³ÌÐòһͨ£¬Á¢¼´¸ø·Ö
Õâ¸öÓкܶàÈËÎʹý,¸øÄãÒ»¸ö²Î¿¼°É
http://topic.csdn.net/t/20051215/18/4461795.html
.....³ÌÐò»¹ÊÇÒª×Ô¼ºÐ´µÄ......
procedure TForm1.Button1Click(Sender: TObject);
var
picstream:tadoblobstream;
bmppic:tbitmap;
jpgpic:tjpegimage;
bmpstream:TMemoryStream;
OpenPicDialog:TOpenPictureDialog;
begin
try
OpenPicDialog:=TOpenPictureDialog.Create(nil);
OpenPicDialog.Filter:='All *.jpg;|*.jpg;)';
with AdoQuery1 do
begin
close;
sql.text := 'Insert into ttbtestimg(id) values(1)';
ExecSql;
SQL.Text := 'select id,img from ttbtestimg with(nolock) where id=1';
Open;
Edit;
if OpenPicDialog.Execute then
begin
jpgpic:=tjpegimage.Create;
bmppic:
Ïà¹ØÎÊ´ð£º
»·¾³£º1.win2003server+oracle9i
2.oracle9i×Ö·û¼¯ÎªAMERICAN_AMERICA.WE8ISO8859P1
3.oracle sql developer°æ±¾ 1.5.5
ÏÖÏóÃèÊö: 1.ÔÚsql developer ÖвéѯoracleÖеÄij¸ö±í£¬ÖÐÎÄÈ«²¿ÏÔʾΪÂÒÂë¡£
......
±íÈçÏÂ
½ÌÊÒID ×ùλÊý ¿ªÊ¼Ê±¼ä ½áÊøÊ±¼ä 2009Äê1ÔÂ1ÈÕ 2009Äê1ÔÂ2ÈÕ 2009Äê1ÔÂ3ÈÕ
101 50 08£º00 08£º30 30 40 50
101 50 09£º00 ......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......