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;
Ïà¹ØÎÊ´ð£º
ÎÒÓÐÒ»¸ö±í£¬½á¹¹ÊÇÕâÑù¡£
ת³ö µ¥Î» תÈ뵥λ ±ÊÊý ½ð¶î
date(Ö÷) outid(Ö÷) inid(Ö÷) num amt
2009 1 2 1 500 Ϊ 1 µ¥Î» ÔÚ2009Ä ......
sqlµÄÈí¼þÔÚÄÄÀï¿ÉÒÔϰ¡£¡ÔÚÍøÉÏÕÒÁËÂù¶à¶¼Óò»Á˰¡
Ëæ±ã¸ãÒ»D°æ°É£¬
ѸÀ×µÚÒ»¸ö¾Í¿ÉÒÔÓÃ
2000,2005¶¼ÕâÑù
http://119.147.41.16/down?cid=0698C2D64D7D637D90A6D2482298E6717D4F15CD&t=2&fmt=-1 ......
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
ÇëÎÊ
Ìí¼ÓÐÂÊý¾ÝÔ´->Êý¾Ý¿â->Ìí¼ÓÁ¬½Ó
Õâ¸ö½çÃæÏ£¬Êý¾ÝÔ´Ñ¡Ôñ£ºMicrosoft SQL Server (SqlClient)£»
·þÎñÆ÷Ãû£º
Ó¦¸ÃÐ´Ê²Ã´ÄØ£¿
ÓÐËÖªµÀ£¿¶àл¸÷λ£¡£¡
Äãµ½µ×ÊÇÒªÁ¬mysql»¹ÊÇmssql£¿
ÒýÓÃ
ÇëÎÊ
......
1¡£ÔõÑùʹxp_cmdshellÄÜÍêÕûÊä³ö³¬¹ý255¸ö×Ö·ûµÄ×Ö·û´®¡£
2¡£select ʱ£¬¼ìË÷ËÙ¶ÈÊÇÓëfromºóµÄ TABLE˳ÐòÓйأ¬»¹ÊÇÓëwhereÌõ¼þµÄ˳ÐòÓйØ(TABLEÊý¾Ý¶àÉÙ )
ÔÚϵͳÊôÐÔÉ趨ÀïÓиöÑ¡Ïî,¿ÉÒÔÐ޸ĵ¥×Ö¶ÎÊä³ö×ÖÊýÏÞÖÆ. ......