图片怎么输入到数据库里？(33分)

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-18

• #1

以前没遇到过，请尽量详细些，给出exmaple最好

 

Q

qzq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-18

• #2

用blob类型不就行了,
看看delphi的帮助.

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-18

• #3

blob类型－－知道是用这个类型。
我是说在程序里怎么控制输入“图片”。

 

O

OopsWare

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-18

• #4

如下过程可将文件存入Blob,哪管是BMP,还是JPG

procedure TForm1.Button1Click(Sender: TObject);
var MemStm : TMemoryStream;
BlobStm: TStream;
begin
MemStm := TMemoryStream.Create;
MemStm.LoadFromFile('ReadMe.txt');
Query1.Edit;
BlobStm:=Query1.CreateBlobStream(Query1.FieldByName('C2'), bmReadWrite);
try
MemStm.SaveToStream(BlobStm);
except
end;
BlobStm.Free;
MemStm.Free;
end;

我做了个将图片以JPEG存入数据库的控件，需要的话，给我联系！

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-18

• #5

免费？
如果工作的时候用当然要和你商量费用，可我是个学生（10天内）
sheepish@china.com
能有source么？

 

O

OopsWare

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-18

• #6

当然!
就现在

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-19

• #7

thanx

 

崔

崔占东

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-21

• #8

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Table1.Edit;
DBImage1.Picture.LoadFromFile(OpenDialog1.FileName);
Table1.Post;
end;
end;