bmp圖片數據送往SQL SERVER

導航: 論壇 -> DELPHI技術 斑竹:zizii,sephil,liumazi  
作者:
maimaizhi (muting) ▲△△△△ 普通會員 瀏覽:163 -
2003-8-8 20:22:41
標題: bmp圖片數據送往SQL SERVER
樓主: 用什麼辦法可以送大於32k的bmp圖片數據到sql server上呢?

我試過用流送,但是隻能送一個小於32k的。

----------------------------------------------
-
作者:
bios (阿貢) ★☆☆☆☆ 盒子中級會員 -
2003-8-9 8:59:26
1樓: procedure TForm1.Button1Click(Sender: TObject);
var
jpeg1:Tjpegimage;
bm:TBitMap;
s:string;
begin

table1.Append ;
jpeg1:=Tjpegimage.create;
if od1.Execute then
 if od1.FileName <>' then
 begin//1
  s:=extractfileext(od1.FileName );
  if lowercase(s)='.jpg' then
   begin//2
  jpeg1.LoadFromFile(od1.filename);
  bm:=TBitMap.Create ;
  bm:=jpegtobitmap(jpeg1);
  table1.FieldByName('pic').assign(bm);
  table1.Post ;
  end;//2
  if lowercase(s)='.bmp' then
   begin//3
    bm:=TBitMap.Create ;
    bm.LoadFromFile(od1.filename);
    table1.FieldByName('pic').assign(bm);
    table1.Post ;
   end;//3
 end//1
 else
 table1.Cancel ;

end;
----------------------------------------------

----------------------------------------------
按此在新窗口瀏覽圖片500)this.width=500" border=0>
作者:
bbhorse (xinhua2008) ▲△△△△ 未激活 -
2003-8-9 10:49:10
2樓: 能不能加點中文說明呀
----------------------------------------------
願和所有喜歡DELPHI的人做朋友!
作者:
bios (阿貢) ★☆☆☆☆ 盒子中級會員 -
2003-8-9 14:38:03
3樓: 不會吧,挺簡單啊,我現在比較忙真的很抱歉!
----------------------------------------------
按此在新窗口瀏覽圖片500)this.width=500" border=0>
作者:
maimaizhi (muting) ▲△△△△ 普通會員 -
2003-8-9 20:05:50
4樓: 謝bios了。
----------------------------------------------
-
作者:
mutiny (mutiny) ▲△△△△ 未激活 -
2003-8-15 12:03:05
5樓: bm:=jpegtobitmap(jpeg1);
這函數出錯。
----------------------------------------------
-
作者:
pirate (狙擊手 * AWP *) ▲△△△△ 普通會員 -
2003-8-15 15:27:28
6樓: procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from 圖象');
  adoquery1.Open;
  adoquery1.Append;
  adoquery1.FieldByName('id').AsInteger:=3;
  adoquery1.FieldByName('圖象個數').AsInteger:=3;
  adoquery1.FieldByName('文件夾名稱').AsString:='3';
  adoquery1.FieldByName('圖象內容').Assign(image1.picture);
  adoquery1.Post;
end;
----------------------------------------------
老了。。。。咳咳。。。。。
作者:
pirate (狙擊手 * AWP *) ▲△△△△ 普通會員 -
2003-8-15 15:30:27
7樓: 各位高手:
 我現在遇到:把*.dwg格式的導入sql server,做不起來,而且最好導入和導出
要壓縮和解壓
  請幫幫我
----------------------------------------------
老了。。。。咳咳。。。。。
作者:
bios (阿貢) ★☆☆☆☆ 盒子中級會員 -
2003-8-16 10:03:20
8樓: *.dwg 我不認識這個格式,這是什麼?
----------------------------------------------
按此在新窗口瀏覽圖片500)this.width=500" border=0>
作者:
pcspace (庸人) ▲△△△△ 普通會員 -
2003-8-17 16:08:10
9樓: 各位大俠!最好給一個通用的SQL Server保存二進制文件的例子就好了!不管什麼文件類型都無所謂了!!
----------------------------------------------
-
作者:
pirate (狙擊手 * AWP *) ▲△△△△ 普通會員 -
2003-8-18 16:12:32
10樓: *.dwg就是autocad 格式的
----------------------------------------------
老了。。。。咳咳。。。。。
作者:
pirate (狙擊手 * AWP *) ▲△△△△ 普通會員 -
2003-8-18 16:14:57
11樓: 那是當然,保存二進制還用考慮格式嗎?
我也實現不了。這就是爲什麼我保存不了*.dwg格式原因了
----------------------------------------------
老了。。。。咳咳。。。。。
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章