如何将扫描仪结果存入数据库

Question

sql数据库已经建好
字段名称为pic0类型为：image;
如何将扫描仪扫的结果，存入数据库中，扫描仪启动代码段已经完成：
procedure TForm1.Button1Click(Sender: TObject);
begin
imgscan1.ShowSelectScanner;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
imgedit1.Zoom:=100;
if not imgscan1.ScannerAvailable then
imgscan1.OpenScanner;
imgscan1.StartScan;
imgscan1.CloseScanner;
end;procedure TForm1.Button3Click(Sender: TObject);
var imgedit1:timgedit;
begin
imgedit1:=timgedit.Create(nil);
table1.Edit;
//table1.Append;
table1.Insert;table1.Fields[3].Assign(imgedit1);
table1.Post;
imgedit1.Free;
end;
运行后提示错误：multiple records  found ,but only one  was excepted
请各位高手帮忙，
谢谢。

Answer 1

APPEND在插入时必须是一条记录一条记录的插入
你可以做一个循环实现以上功能!

Answer 2

扫描仪代码为：
procedure TForm1.Button1Click(Sender: TObject);
begin
imgscan1.ShowSelectScanner;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
imgedit1.Zoom:=100;
if not imgscan1.ScannerAvailable then
imgscan1.OpenScanner;
imgscan1.StartScan;
imgscan1.CloseScanner;
end;
请帮忙

Answer 3

你可以使用STREAM流的形式来存储SCAN的结果，可以使用SAVETOSTREAM！

Answer 4

你的错误出的太多了,一致与无法正确显示一异常了!使用流使一个好办法的使用使用TBlobField.LoadFromStream;就搞定了!

Answer 5

控件用的是：imgedit  图像已经能显示在imgedit其中，能不能给出完整程序或者给出流的具体用法，如能使用在加50分