盒子论坛 v2.1

procedure TForm1.Button2Click(Sender: TObject);
var
  MemSize: Integer;
  Buffer: PChar;
  MyFile: TFileStream;
  Stream: TBlobStream;
  Doc_ole:ToleContainer;
  test:string;
begin
  od1.Filter:='WORD文档(*.DOC)|*.DOC';{从对话窗选择文件}
    MyFile:=TFileStream.Create('e:\a.doc',fmOpenRead);
    MyFile.Seek(0, soFromBeginning);
    with table1 do   {‘table1’为含BLOB字段的表名}
    begin
      First;
      Edit;
      Stream := TBlobStream.Create(FieldByName('Memo2')as TBlobField, bmWrite);

      {‘Doc’为BLOB字段名}
      MemSize := MyFile.Size;
      Inc(MemSize); {Make room for thebuffer's null terminator.}
      Buffer := AllocMem(MemSize);{Allocate the memory.}
      try
        Stream.Seek(0, soFromBeginning); {Seek 0 bytes from the stream's end point}
        MyFile.Read(Buffer^,MemSize);

        test:=strpas(Buffer);
        Stream.Write(Buffer^,MemSize);
      finally
        MyFile.Free;
        Stream.Free;
      end;
           try
             Post;
           except
             on E: EDatabaseError do
           Application.HandleException(E);
         else
          raise;
           end;
     end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  MemSize: Integer;
  Buffer: PChar;
  MyFile: TFileStream;
  Stream: TBlobStream;
  Doc_ole:ToleContainer;
  test:string;
begin
    if FileExists('e:\temp.doc') then
             DeleteFile('e:\temp.doc');
    MyFile:=TFileStream.Create('e:\temp.doc',fmCreate);
    with table1 do
    begin
      First;
      Stream := TBlobStream.Create(FieldByName('Memo2') as TBlobField, bmRead);
      Stream.Seek(0, soFromBeginning);
      MemSize := Stream.Size;
      Inc(MemSize);{Make room for the buffer's null terminator.}
      Buffer := AllocMem(MemSize);{Allocate the memory.}
      try
        MyFile.Seek(0, soFromBeginning);
        Stream.Read(Buffer^,MemSize);
        test:=strpas(Buffer);
        MyFile.Write(Buffer^,MemSize);
      finally
        MyFile.Free;
        Stream.Free;
      end;
    end;

    shellexecute(application.handle,'open',pchar('e:\temp.doc'),nil,nil,SW_SHOWNORMAL);
end;

----------------------------------------------

信息

登陆以后才能回复