用ADO方式如何存取流到数据库

[武稀松]

用ADO方式如何存取流到数据库

[netlib]

(adoquery1.FieldByName('img') as TBlobField).LoadFromstream(yourstream);

[武稀松]

netlib(河外孤星) ( ) 不好使呀?

[武稀松]

netlib(河外孤星) ( ) 不好使呀?

[My_first]

先uses jpeg

这是把.jpg格式的文件存入数据。也可以是其它类型的文件
procedure TForm7.Button1Click(Sender: TObject);
var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.LoadFromFile('d:\cai.jpg');//OpenDialog1.FileName　也可以
str.Position:=0;



adoquery2.Append; //图片
Tblobfield(adoquery2.FieldByName('image')).loadfromstream(str);
try
adoquery2.Post;
finally
str.Free;
end;
end;


procedure TForm5.Button1Click(Sender: TObject);
var str:Tmemorystream;
begin
IF not ADOQUERY2.IsEmpty Then
Begin
str:=Tmemorystream.Create; str.Position:=0;
Tblobfield(adoquery2.FieldByName('image')).savetostream(str);
str.SaveToFile(ExtractFilePath(Application.ExeName)+'image\cai.jpg');
str.Free;
end;