D
dean_2008
Unregistered / Unconfirmed
GUEST, unregistred user!
请问哪位有照片批量导入的相关信息阿？谢谢，分不多了！
D
dean_2008
Unregistered / Unconfirmed
GUEST, unregistred user!
请问哪位有照片批量导入的相关信息阿？谢谢，分不多了！
唐
唐佐平
Unregistered / Unconfirmed
GUEST, unregistred user!
[
][][]
][][]
9
99boy
Unregistered / Unconfirmed
GUEST, unregistred user!
批量导入还不是一张一张导入，和单张导入没有什么区别啊。只是一开始要查看一下目录内有什么文件，然后就循环……
C
chaofan201
Unregistered / Unconfirmed
GUEST, unregistred user!
批量导入是一张一张导入，有一软件，用百度搜索
“DELPHI存取JPEG、BMP图像到数据库完整解决方案”
即可。
“DELPHI存取JPEG、BMP图像到数据库完整解决方案”
即可。
D
dean_2008
Unregistered / Unconfirmed
GUEST, unregistred user!
是啊
D
dean_2008
Unregistered / Unconfirmed
GUEST, unregistred user!
[]
]
M
mingyifan
Unregistered / Unconfirmed
GUEST, unregistred user!
都有批量导入，和导出的啊
J
jiangzhang3942
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
begin
ADODataSet1.Active := false;
ADODataSet1.CommandText := 'select * from DB';
ADODataSet1.Active := true;
for I := 0 to ListBox1.Count - 1 do//将文件名用存入到listbox里面
begin
ListBox1.ItemIndex := i;
ADODataSet1.Append;
TBlobField(ADODataSet1.FieldByName('Pic')).LoadFromFile('C:/'+ListBox1.Items[listbox1.itemindex]);//假设文件在C盘
ADODataSet1.Post;
end;
end;
begin
ADODataSet1.Active := false;
ADODataSet1.CommandText := 'select * from DB';
ADODataSet1.Active := true;
for I := 0 to ListBox1.Count - 1 do//将文件名用存入到listbox里面
begin
ListBox1.ItemIndex := i;
ADODataSet1.Append;
TBlobField(ADODataSet1.FieldByName('Pic')).LoadFromFile('C:/'+ListBox1.Items[listbox1.itemindex]);//假设文件在C盘
ADODataSet1.Post;
end;
end;
X
xukaiming
Unregistered / Unconfirmed
GUEST, unregistred user!
这么简单的问题拉,做定了一张图片，然后用一个循环就可以了
D
dean_2008
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。