delphi如何存入和读取image数据类型

Question

我建了一个表再MS中：
create table try（
a image）
go我想把memo1中的字段存入到try表中如何实现，再读取出来显示到memo1中来？
如果文本实现了，有怎么把一张图片写入到a中，再从a中把数据读出来显示到一张图片中。

Answer 1

道理一样的：
写入
TBlobField(FieldByName('Try')).LoadFromFile
TBlobField(FieldByName('Try')).LoadFromStream
读取
TBlobField(FieldByName('Try')).SaveToFile
TBlobField(FieldByName('Try')).SaveToStream
自己选择吧！

Answer 2

procedure  TForm1.GetPicture(pos:string;TempQuery:   TADOQuery);
var
  MS_JpegStream:TMemoryStream;
begin
  try
    MS_JpegStream:=TMemoryStream.Create;
    with  tempQuery  do
    begin
      close;
      sql.clear;
      sql.Add('select  tp   from   tp');
      Open;
    end;
    if   tempquery.FieldByName('tp').isnull   then
    begin
      image1.Picture.Graphic:=nil;
    end
    else
    begin
      (tempQuery.FieldByName('tp')   as   tblobfield).savetostream(MS_JpegStream);
      image1.Picture.Graphic:=nil;
      image1.Picture.Graphic:=TJpegImage.Create;
      MS_JpegStream.Position:=0;
      image1.Picture.Graphic.LoadFromStream(MS_JpegStream);
    end;
  finally
    MS_JpegStream.Free;
  end;
end;procedure  TForm1.SetPicture(id:string;TempQuery:TADOQuery);
var
  MS_JpegStream:TMemoryStream;
  M_BitMap:TBitMap;
  M_Jpeg:TJpegImage;
begin
  OpenDialog1.Execute;
  try
    MS_JpegStream:=TMemoryStream.Create;
    M_BitMap:=TBitMap.Create;
    M_Jpeg:=TJpegImage.Create;
    if  ExtractFileExt(OpenDialog1.FileName)='.bmp'   then
    begin
      M_BitMap.LoadFromFile(OpenDialog1.FileName);
      M_Jpeg.Compress;
      M_Jpeg.Assign(M_BitMap);
    end
    else if extractfileext(OpenDialog1.FileName)='.jpg'   then
    begin
      M_Jpeg.LoadFromFile(OpenDialog1.FileName);
    end;
    M_Jpeg.SaveToStream(MS_JpegStream);
    with tempQuery do
    begin
      close;
      sql.clear;
      sql.Add('insert into tp (id,tp) values (''1'',:image)');
      Parameters.ParamByName('image').LoadFromStream(MS_JpegStream,ftblob);
      ExecSQL;
    end;
  finally
    MS_JpegStream.Free;
    M_BitMap.Free;
    M_Jpeg.Free;
  end;
end;
针对bmp和jpg格式的

Answer 3

我就记得是stream，具体的不记得了

Answer 4

  M_Jpeg:TJpegImage; 要USES什么？ 
[Error] Unit1.pas(66): Undeclared identifier: 'TJpegImage'