main.pas

来自「这是一个DELPHI7应用案例开发篇有配套程序种子光盘」· PAS 代码 · 共 56 行

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBXpress, FMTBcd, DB, SqlExpr, StdCtrls, Provider, DBClient,
  jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    SQLConnection1: TSQLConnection;
    tbBook: TSQLTable;
    Button1: TButton;
    ClientDataSet1: TClientDataSet;
    DataSetProvider1: TDataSetProvider;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
    bs:TStream;
    buf:PChar;
    ms:TMemoryStream;
begin
    buf := 'Hello!';
    with ClientDataSet1 do
    begin
        Open;
        First;
        Edit;
        bs := CreateBlobStream(FieldByName('BookCover'),bmWrite);
        ms := TMemoryStream.Create;
        ms.WriteBuffer('hello',5);
//        Image1.Picture.Graphic.SaveToStream(ms);
        bs.WriteBuffer(ms.Memory,ms.Size);
        bs.Free;
        Post;
        ApplyUpdates(-1);
    end;
end;

end.