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;
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
½ñÌì×öÁËÒ»¸ö´æ´¢¹ý³Ì »·¾³ÊÇSQL2000Êý¾Ý¿â
´óÖÂÈçÏÂ
½¨Á¢ÁÙʱ±í
¶¨ÒåÔ±¹¤Óαê
Ñ»·Ô±¹¤£¨ÊôÓÚ1¸ö¹«Ë¾)
......
´ÓÊý¾Ý¿âÖвéѯһÕűíµÄÊý¾Ý
select ²¿ÃÅ,ÐÕÃû from tb
ÈçºÎ²ÅÄÜÉú³ÉÏÂÃæµÄxml¸ñʽ
XML code:
<folder state="unchecked" label="È«²¿">
¡¡¡¡ <folder state="unchecked&qu ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
ÇëÎÊ
Ìí¼ÓÐÂÊý¾ÝÔ´->Êý¾Ý¿â->Ìí¼ÓÁ¬½Ó
Õâ¸ö½çÃæÏ£¬Êý¾ÝÔ´Ñ¡Ôñ£ºMicrosoft SQL Server (SqlClient)£»
·þÎñÆ÷Ãû£º
Ó¦¸ÃдʲôÄØ£¿
ÓÐËÖªµÀ£¿¶àл¸÷λ£¡£¡
Äãµ½µ×ÊÇÒªÁ¬mysql»¹ÊÇmssql£¿
ÒýÓÃ
ÇëÎÊ
......