delphi如何保存图片到数据库“

其实是保存到表（比如table1）的大对象字段（比如a6）中，可以用以下代码完成：

(table1.FieldByName('a6') as tblobfield).loadfromfile(s)

-------其中S 为要保存的图片文件名

1. 查找文件

FullFilePath : String

FullFilePath := FileSearch('file.txt', dir1)

2. 比如这是你的数据文件file.txt:

1,foo,5,20031101

3,blat,7,20031101

5,foobar,23,20031104

3. 连接到数据库,例如用

ADOConnection设置连接数据库,

新建一个ADOQuery

4.新建表格, 例如 OrdersBulk:

ADOQuery.sql.text := 'CREATE TABLE OrdersBulk

(

CustomerID INT,

CustomerName VARCHAR(32),

OrderID INT,

OrderDate SMALLDATETIME

)'

ADOQuery.open

ADOQuery.close

5. 加入数据表

ADOQuery.sql.text := 'BULK INSERT OrdersBulk FROM 'c:\file.txt'

WITH

(

FIELDTERMINATOR = ',',

ROWTERMINATOR = '\n'

)'

ADOQuery.open

---