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;
