请教，这段代码有什么问题？

chdaner 2009-08-27 08:49:40

请教，这段代码有什么问题？为什么下载到电脑的文件都7 个字节？
procedure TForm1.Button10Click(Sender: TObject); //添加附档
begin
if opendialog1.Execute then
with adoquery1 do begin
close;
sql.Clear;
sql.Add('select * from T_dropdownexp');
open;
adoquery1.Edit;
TBlobField(adoquery1.FieldbyName('addition')).LoadFromFile(opendialog1.FileName);
adoquery1.Post;
Messagebox(Getactivewindow(),'Additional file saved','Save',MB_OK);
edit19.Text:=opendialog1.FileName;
end;
end;

procedure TForm1.Button11Click(Sender: TObject); //载入附档
begin
if savedialog1.Execute then
TBlobField(adoQuery1.FieldByName('addition')).SaveTofile(savedialog1.FileName);
end;

...全文

103 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

ok1411 2009-08-27

打赏
举报

学习。。

wh_wangjun 2009-08-27

打赏
举报

从数据库中读文件

var ms:TBlobStream;
MS:=CreateBlobStream(adoquery1.FieldbyName('image'),bmRead);

火龙岛主 2009-08-27

打赏
举报

[Quote=引用 5 楼 chdaner 的回复:]
有什么办法吗？我换成这样还是一样不行。
procedure TForm1.Button11Click(Sender: TObject); //载入附档
var ms:TmemoryStream;
begin
if savedialog1.Execute then
ms:=tmemorystream.Create;
ms.Position:=0;
TBlobField(adoQuery1.FieldByName('addition')).SaveTostream(ms);
ms.SaveToFile(savedialog1.FileName);
ms.Free;
end;
[/Quote]
代码貌似没有问题，你选取存的数据有问题？

chdaner 2009-08-27

打赏
举报

有什么办法吗？我换成这样还是一样不行。
procedure TForm1.Button11Click(Sender: TObject); //载入附档
var ms:TmemoryStream;
begin
if savedialog1.Execute then
ms:=tmemorystream.Create;
ms.Position:=0;
TBlobField(adoQuery1.FieldByName('addition')).SaveTostream(ms);
ms.SaveToFile(savedialog1.FileName);
ms.Free;
end;

chdaner 2009-08-27