盒子论坛 v2.1

procedure TForm1.Button1Click(Sender: TObject);
var tempstream:TStringStream;
  tempjpeg:TJPEGImage;
begin
  try
       tempstream:=TStringStream.Create(' ');
       TBlobField(Query1.FieldByName('Image')).SaveToStream(tempstream);
       tempstream.Position:=0;
       tempjpeg:=TJPEGImage.Create;
       tempjpeg.LoadFromStream(tempstream);
       DBImage1.Picture.Bitmap.Assign(tempjpeg);
finally
       tempstream.Free;
       tempjpeg.Free;
end;
end;
----------------------------------------------
-

作者：

wjcking (wjcking)	★☆☆☆☆	-
	普通会员

2004/1/14 13:51:56

4楼：

多谢各位仁兄,要是bmp格式的该怎么办？
----------------------------------------------
http://www.videa.cn
C#/Pascal/Java

作者：

mjfmjf (mjfmjf)	★☆☆☆☆	-
	普通会员

2004/2/22 10:56:08

5楼：

大哥大姐我在使用3楼的方法时出现错误jpeg error #53 我不知道是什么错误阿？？我在线等待给位的解答，谢谢在存入数据库时正常

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

作者：

mjfmjf (mjfmjf)	★☆☆☆☆	-
	普通会员

2004/2/22 11:18:18

6楼：

错误显示如下

此帖子包含附件:

大小:179.8K

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

作者：

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

2004/2/22 11:20:54

7楼：

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

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

信息

登陆以后才能回复