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

Question

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

Answer 1

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

Answer 2

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

Answer 3

先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;