bmp图片数据送往SQL SERVER

来源：互联网发布：阿里云电视软件下载编辑：程序博客网时间：2024/05/01 06:53

导航：

论坛 -> DELPHI技术斑竹:zizii,sephil,liumazi

作者：

maimaizhi (muting) ▲△△△△ 普通会员

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;
----------------------------------------------

----------------------------------------------

作者：

bbhorse (xinhua2008) ▲△△△△ 未激活

2003-8-9 10:49:10

2楼：

能不能加点中文说明呀
----------------------------------------------
愿和所有喜欢DELPHI的人做朋友！

作者：

bios (阿贡) ★☆☆☆☆ 盒子中级会员

2003-8-9 14:38:03

3楼：

不会吧，挺简单啊，我现在比较忙真的很抱歉！
----------------------------------------------

作者：

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 我不认识这个格式，这是什么？
----------------------------------------------

作者：

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格式原因了
----------------------------------------------
老了。。。。咳咳。。。。。