delphiÓëSQL2000µÄͼƬ¶ÁÈ¡
ÔÚÒ»ÕÅgoods±íÖÐÓвúÆ·Ãû³Æ,¹æ¸ñ,ͼƬ·¾¶µÈ×Ö¶Î,ÒѾ°ÑͼƬµÄ·¾¶±£´æµ½goods±íÖÐ,ÇëÎÊÔõôÑù²ÅÄܲéѯgoods±íʱ,²é³öµÄ¼Ç¼˫»÷»òÊÇÔõôÑù¿ÉÒÔÖ±½Ó´ò¿ªÍ¼Æ¬Â·¾¶Õâ¸ö×Ö¶ÎÏà¶ÔÓ¦µÄͼƬ,лл
²»ÖªÊÇʲô¸ñʽµÄͼƬ
bmp, jpeg¸ñʽµÄÓÃTImageÕâ¸ö¿Ø¼þ¼ÓÔØ¾Í¿ÉÒÔÁË¡£
ÎÒ·¢¶Î´úÂë¸øÄã.ÕâÊDz»¹Üʲô¸ñʽµÄÖ»ÒªÄã Uses ÉÏͼƬµ¥Ôª.Èç uses jpeg
if Not OpenpictureDialog1.Execute then Exit;
ADotable1.Edit;
DBImage1.Picture.LoadfromFile(OpenPictureDialog1.FileName);
DBImage1.CopyToClipboard;
DBIMage1.PastefromClipboard;
Adotable1.Post;
ÓÃÊý¾ÝÁ÷°ÑͼƬ´æ´¢µ½Êý¾Ý¿âÖУ¬ÕâÑù¶ÁÈ¡±È½Ï·½±ã¡£
´úÂ빩Äã²Î¿¼£º
´æ´¢Í¼Æ¬
Delphi(Pascal) code:
procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream;
jpg: TJpegImage;
begin
ms := TMemoryStream.Create;
jpg := TJpegImage.Create;
if dlgOpen1.Execute then
img1.Picture.LoadfromFile(dlgOpen1.FileName);
try
if img1.Picture.Graphic<>nil then
begin
//try
img1.Picture.Graphic.SaveToStream(ms);
//ÅжÏͼƬ´óС£¬Èç¹ûͼƬ̫´óÔò²»ÔÊÐí
if ms.Size >1024*500 then
showmessage('ͼƬ̫´ó²»ÔÊÐí')
else
//ÌύͼƬ
begin
qry1.Append;
TBlobField(qry1.FieldByName('pic')).LoadfromStream(ms);
qry1.Post;
end;
Ïà¹ØÎÊ´ð£º
¿ÉÄÜÒòΪ¹¤×÷µÄÔÒò ½Ó´¥Êý¾Ý¿âÕâ¿é±È½ÏÉÙ£¬Ö®Ç°¶¼ÊÇ×ö³ÌÐòÕâ¿é£¬Êý¾Ý¿âÕâ¿é¶¼ÓÐרÃŵÄÈËÀ´×ö ·Ö¹¤¶¼ºÜÃ÷ϸ ËùÒÔ¶ÔÊý¾Ý¿âÕâÒ»¿éÍêÈ«²»Á˽⡣ǰ¶Îʱ¼ä È¥ÃæÊÔÁ˼¸¼Ò¹«Ë¾ ¼¸ºõ¶¼ÊÇÔÚÊý¾Ý¿âÕâ¿é¹ÒµôµÄ Á¬¸ö¼òµ¥µÄSQ ......
½ñÌì×öÁËÒ»¸ö´æ´¢¹ý³Ì »·¾³ÊÇSQL2000Êý¾Ý¿â
´óÖÂÈçÏÂ
½¨Á¢ÁÙʱ±í
¶¨ÒåÔ±¹¤Óαê
Ñ»·Ô±¹¤£¨ÊôÓÚ1¸ö¹«Ë¾)
......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
sqlserver2005 ½¨Á¢µÄÊý¾Ý¿â£¬ÓëÊÖ³Öpda´«ÊäÊý¾Ý£¬×î½üͻȻ³öÏÖÎÞ·¨´«µÝÊý¾ÝµÄÎÊÌ⣬pda¶ËÌáʾµÄ´íÎóʱoutofmemoryexception£¬µ«ÊÇpdaÉÏÃæµÄÈÝÁ¿Ã»ÓÐÎÊÌ⣬
sqlserverµÄÈÕ×ÓÉϵĴíÎóÈçÏ£º
ÈÕÆÚ 2010-1-25 14:45: ......
×Ö¶Î1,×Ö¶Î2.....×Ö¶ÎN,Status,ParentID
1,Name1....test1,1,99
1,Name1....test1,3,99
1,Name2....test2,1,101
1,Name2....test2,3,101
1,Name3....test3,2,101
1,Name1....test1,4,101
ÏëÒªµÄ½á¹ûÊÇ:
1,Na ......