SaveComponentByFile

unit savecomponent1;

interface

uses
  windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
  stdctrls, db, dbtables;

type
  tform1 = class(tform)
    button1: tbutton;
    query1: tquery;
    listbox1: tlistbox;
    button2: tbutton;
    button3: tbutton;
    button4: tbutton;
    label1: tlabel;
    query2: tquery;
    button5: tbutton;
    edit1: tedit;
    procedure button1click(sender: tobject);
    procedure button2click(sender: tobject);
    procedure button3click(sender: tobject);
    procedure button4click(sender: tobject);
    procedure button5click(sender: tobject);
    procedure edit1keypress(sender: tobject; var key: char);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  form1: tform1;

implementation

{$r *.dfm}

procedure tform1.button1click(sender: tobject);
var
  f:tmemorystream;
  path:string;
  filename:string;
begin
  path:=extractfilepath(application.exename);
  filename:=path+'listbox.ini';
  f:=tmemorystream.create ;
  f.writecomponent(listbox1);
  f.savetofile(filename);
  f.free;
  listbox1.free;
end;

procedure tform1.button2click(sender: tobject);
var
  f:tmemorystream;
  path:string;
  filename:string;
  xx:tlistbox;
begin
  xx:=tlistbox.create(self);
  xx.parent:=self;
  path:=extractfilepath(application.exename);
  filename:=path+'listbox.ini';
  f:=tmemorystream.create ;
  f.loadfromfile(filename);
  xx:=tlistbox(f.readcomponent(xx));
  f.free;
end;

procedure tform1.button3click(sender: tobject);
var
  path:string;
  filename:string;
begin
  path:=extractfilepath(application.exename);
  filename:=path+'listbox.ini';
  with query1 do
    begin
      close;requestlive:=true;sql.clear;databasename:='oilrep44444';
      sql.add('select * from zy_query');
      open;insert;
      fieldbyname('qry_id').asinteger:=strtoint(edit1.text);
      tblobfield(fieldbyname('sql_blob')).loadfromfile(filename);
      try
        post;
      except
        close;
      end;
    end;
end;

procedure tform1.button4click(sender: tobject);
var
  path:string;
  filename:string;
begin
  path:=extractfilepath(application.exename);
  filename:=path+'listbox.ini';
  with query1 do
    begin
      close;sql.clear;databasename:='oilrep44444';
      sql.add('select * from zy_query where qry_id=:qq');
      params[0].asinteger:=strtoint(edit1.text);
      try
        open;
        tblobfield(fieldbyname('sql_blob')).savetofile(filename);
      except
        close;
      end;
    end;
end;

procedure tform1.button5click(sender: tobject);
begin
listbox1.free;
end;