如何把一个流变量赋值给Sql语句中的自定义参数(Tblob类型)???(10分)

我的源程序如下:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
MS:TMemoryStream;
begin
MS:=TMemoryStream.create;
Image1.Picture.Bitmap.SaveToStream(MS);
MS.Position:=0;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('insert into thblogin (name,picture) ');
Query1.SQL.add('valuesname,icture)');
Query1.paramByName('Picture').asBlob //就是这一句如何做到把MS变量值赋予Picture??
Query1.ParamByName('name').asstring:='thb';
Query1.execSql;
end;
请求各位老师帮忙,谢谢

将Query1.paramByName('Picture').asBlob 改成
Query1.Parameters[1].LoadFromStream(ms,ftgraphic);试试。

我也用过这种写法效果不太好我一直都用TABLE控件的INSERT方法写入
你MS ：声明成TStringStream。
TABLE。INSERT；
TABLE。FILED[1]。VALUE ：= STRINGSTREAM。DATASTRING；
TABLE。POST；
一定可以的。