你用下面方法试试:
begin
ClientDataSet1.Append;
ClientDataSet1.FieldByName('ID').AsInteger := 1;
ClientDataSet1.FieldByName('Name').AsString := 'Borlandor';
Stream := TMemoryStream.Create;
Image1.Picture.Graphic.SavetoStream(Stream);
Stream.Position := 0;
ClientDataSet1.FieldByName('Photo').LoadFromStream(Stream);
ClientDataSet1.Post;
ClientDataSet1.ApplyUpdates(-1);
Stream.free;
end;
begin
ClientDataSet1.Append;
ClientDataSet1.FieldByName('ID').AsInteger := 1;
ClientDataSet1.FieldByName('Name').AsString := 'Borlandor';
Stream := TMemoryStream.Create;
Image1.Picture.Graphic.SavetoStream(Stream);
Stream.Position := 0;
ClientDataSet1.FieldByName('Photo').LoadFromStream(Stream);
ClientDataSet1.Post;
ClientDataSet1.ApplyUpdates(-1);
Stream.free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货