作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

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;

相关软件：