图片导入数据图问题。（批量导入sqlsever）(100分)

D

dean_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-05

• #1

在程序中image的大小一定（比实际图片要小），如何将一张图片大小比image大小要大的图片在image中完整显示（查了一些资料，说要用到流。但是没有能实现，请大家指点）

 

F

form1.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-05

• #2

strech:=true就可以

 

D

dean_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-05

• #3

谢谢form1。还有个问题。如何能够批量往sql sever 2000数据库中导入jpg格式的图片

 

D

dean_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-06

• #4

在程序中image的大小一定（比实际图片要小），如何将一张图片大小比image大小要大的图片在image中完整显示（查了一些资料，说要用到流。但是没有能实现，请大家指点）
大家指点一下阿.谢谢!

 

D

dongy_143

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-06

• #5

单张存入数据库自己修改)
var
tempStream:TMemoryStream;
JpgPic:TJpegImage;

S:String;
begin
try
JpgPic:=TJpegImage.Create;
tempStream:=TMemoryStream.Create;
tempStream.Clear;
tempStream.postion:=0;
Table.Edit;
JpgPic.LoadFromFile(OpenDialog.FileName);
FootImage.Picture.bitmap.assign(JpgPic);
JpgPic.SaveToStream(tempStream);
TBlobField(Table.FieldByName('图象')).LoadFromStream(tempStream) ;
Table.Post;
finally
JpgPic.Free;
tempStream.Free;
end;
end;

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-06

• #6

批量就循环

 

D

dean_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-07

• #7

谢谢楼上几位.批量导入的问题已经解决了.再问个小问题就散分.我把导入的图片显示到用fast report 显示的报表中的picture。我就直接用Adoquery结果不能正常显示。请大家帮忙解决一下。搞好就散分。谢谢了

 

D

dean_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-07

• #8

大虾们给点意见吧.在fast report中显示jpeg格式图片，

 

W

weichao9999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-07

• #9

在fast report中拖入图片空件，连接一下属性就可以了，没什么吧

 

D

dean_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-07

• #10

是的，我就是这样做的，但是不行！。fast report中的picture控件blob type的属性需要设置吗？

 

D

dean_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #11

多人接受答案了。