delphi 3层

Question

两个image 字段 FieldByName(Image) := FieldByName(Image1) 怎么付值 image1 字段是有图片的了

Answer 1

FieldByName(Image).Value := FieldByName(Image1).Value
或者
var
  tmpStream : TMemoryStream;
……
TBlobField(FieldByName(Image1)).SaveToStream(tmpStream);
tmpStream.Seek(0,0);
TBlobField(FieldByName(Image)).LoadFromStream(tmpStream);

Answer 2

var
  stream : TStream;
begin
  stream := TMemoryStream.Create;
  try
    TBlobField(qry1.FieldByName('Image')).SaveToStream(stream);
    stream.Position := 0;
    TBlobField(qry1.FieldByName('Image1')).LoadFromStream(stream);
  finally
    stream.free;
  end;

Answer 3

 FieldByName(Image).Assign(FieldByName(Image1));

Answer 4

FieldByName(Image).Value := FieldByName(Image1).Value
这样不行 出来的都是 ？ 号

Answer 5

FieldByName(Image).Assign(FieldByName(Image1)); 这样也是？号