|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/12/28 18:13:22 |
标题: |
在备注型字段里怎么写内容?急急急!!!!! |
浏览:1331 |
|
加入我的收藏 |
楼主: |
在备注型字段里怎么写内容??????????急急急!!!!!
----------------------------------------------
菜鸟 |
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2003/12/28 18:40:55 |
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;
----------------------------------------------
|
作者: |
|
2003/12/28 18:46:29 |
2楼: |
还有没有其它的更简单的方法啊,谢谢指教!
----------------------------------------------
菜鸟
|
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2003/12/28 21:00:07 |
3楼: |
小弟很苯 一般都是用苯办法!但管用!
----------------------------------------------
|
作者: |
|
2003/12/28 22:02:42 |
4楼: |
可是我试过,一直都出现问题啊?
----------------------------------------------
菜鸟
|
|