unit1.~pas

使用 DELPHI（C++BUILDER）

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, DBTables, ExtCtrls;

type
  TForm1 = class(TForm)
    Database1: TDatabase;
    Query1: TQuery;
    Button1: TButton;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    num:integer;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
      llll:boolean;
      tse:textfile;
      str:string;
      wxy:boolean;

begin

              {str ; 二进制文件存储,string 类型，使用其它类型也一样的，但是存储文件略有不同}

                AssignFile(tse, 'c:\temp.img'); //将二进制文件存储到指定目录
                rewrite(tse);
                write(tse,str);
                closefile(tse);
                Query1.SQl.Clear;
                Query1.SQl.Add('update test set sImage=:sImage where Id=:Id');
                Query1.ParamByName('Id').AsString := '0001';

                Query1.ParamByName('sImage').DataType := ftBlob;   //定义字段类型
                Query1.ParamByName('sImage').LoadFromFile('c:\temp.str',ftblob); //读取所存文件
                Query1.ExecSQL;


end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  Form1.Close;
end;

end.