delphi操作blobfield

delphi操作blobfield

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm2.Button1Click(Sender: TObject); begin   var Stream:TMemoryStream := TMemoryStream.Create;   img1.Picture.Graphic.SaveToStream(Stream);   dataset.Close;   dataset.SQL.Clear;   dataset.SQL.Text := 'insert into t1 (picture) values (:picture)';   dataset.ParamByName('picture').LoadFromStream(Stream, ftBlob);   dataset.ExecSQL;   Stream.Free; end;   procedure TForm2.Button2Click(Sender: TObject); begin  var Stream: TMemoryStream :=TMemoryStream.Create ;  var jpg: TjpegImage := TjpegImage.Create ;  TBlobField(dataset.FieldByName('picture')).SaveToStream(Stream);  Stream.Position :=0;  jpg.LoadFromStream(Stream);  img1.Picture.Assign(Jpg);  Stream.Free;  Jpg.Free; end;