急求哪位大侠帮我分析下,TBlobField存取图片的问题 ( 积分: 50 )

C

cpf246

Unregistered / Unconfirmed
GUEST, unregistred user!
我在处理图片的存取的时候,用的是一个通用方式,但是我始终不能把图片存进数据库,大侠们帮我分析下是怎么回事,不慎感激!
ClientDataSet.Close;
ClientDataSet.CommandText := 'Select ID, Photo, FileExt from student where ID="' + FID + '" ';
ClientDataSet.Open;
ClientDataSet.Edit;

if ImagePhoto.Picture.Graphic <> nil then
begin
FMemoryStream := TMemoryStream.Create;
Jpeg := TJPEGImage.Create;
Jpeg.Assign(ImagePhoto.Picture.Graphic);
Jpeg.SaveToStream(FMemoryStream);
FMemoryStream.Position := 0;
TBlobField(ClientDataSet.FieldByName('Photo')).LoadFromStream(FMemoryStream);
ClientDataSet.FieldByName('FileExt').AsString := FileExt;
Jpeg.Free;
FMemoryStream.Free;
end;
ClientDataSet.Post;
ClientDataSet.ApplyUpdates(0);
同样的代码我在另外一个系统中运行正常,图片的存取也没问题,单我用到这里就是不行,期待!!![:(][:(]
 
代码:
[:(]
 
ClientDataSet.FetchBlob=true
 
谢谢 我已经搞定了
是数据库字符集的问题 造成的哈
 
谢谢 我已经搞定了
是数据库字符集的问题 造成的哈
 
数据库字符集怎么设置呢
 
顶部