unit1.pas

写流进数据库.rar 如何把文件变为流

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtnrs, DB, ADODB;

type
  TForm1 = class(TForm)
    OleContainer1: TOleContainer;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    function GetSysDate:TDateTime;
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  a:TMemoryStream;
begin
  a:=TMemoryStream.Create;
  a.LoadFromFile('D:\煤田煤层\2007-10-08\data\111.mdf');
  ADOquery1.append;
  TBlobField(ADOquery1.FieldByName('mdf')).LoadFromStream(a);
  ADOquery1.Post;


  //a.SaveToFile('D:\煤田煤层\2007-10-08\data\1112.mdf');
  //OleContainer1.LoadFromStream();
 // OleContainer1.SaveAsDocument('d:\新建 文本文档2.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  a:TMemoryStream;
begin
  a:=TMemoryStream.Create;
  TBlobField(ADOquery1.FieldByName('mdf')).SaveToStream(a);
  a.SaveToFile('D:\煤田煤层\2007-10-08\data\1112.mdf');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Form1.Caption:=DateToStr(GetSysDate);
end;

function TForm1.GetSysDate:TDateTime;
Begin
 {with ADOquery1 do
 begin
   //Connection:=dm.AdoConnection1;
   SQL.Clear;
   SQL.Add(' Select to_char(sysdate,'yyyymmdd') FDate  ');
   Open;
   Result:=StrToDate(FormatDateTime('YYYY-MM-DD',FieldByName('Fdate').AsDatetime));
 end; }
end; 




procedure TForm1.Button4Click(Sender: TObject);
var
  nowtime:Int64;
  a:TMemoryStream;
begin
  a:=TMemoryStream.Create;
  a.LoadFromFile('D:\煤田煤层\2007-10-08\data\111.mdf');
  with ADOquery1 do //取服务器时间
  begin
    close;
    SQL.Clear;
    SQL.Add(' select TO_CHAR(SYSDATE,''YYYYMMDDHH24MiSS'') as time from dual  ');
    Prepared;
    open;
    If not eof then
    begin
      nowtime:=StrToInt64(FieldByName('time').asstring);
    end;
  end;

  with ADOquery1 do //删除MDF中的所有数据（惟一条数据）
  begin
    close;
    SQL.Clear;
    SQL.Add(' delete from MDF ');
    Prepared;
    ExecSQL;
    SQL.Clear;
    SQL.Add(' commit ');
    Prepared;
    ExecSQL;
  end;


  with ADOquery1 do   // 加图到数据库
  begin
    close;
    SQL.Clear;
    SQL.Add('insert into MDF(Time) Values (:a0)');
    Parameters[0].Value :=nowtime;
    Prepared;
    ExecSQL;
    SQL.Clear;
    SQL.Add(' commit ');
    Prepared;
    ExecSQL;
    SQL.Clear;
    SQL.Add(' select * From MDF where time=:a0 ');
    Parameters[0].Value :=nowtime;
    Prepared;
    open;
    edit;
    TBlobField(FieldByName('mdf')).LoadFromStream(a);
    Post;
  end;

end;

end.