存储图标

Question

我不知道怎么把文件的图标存到sqlserver表的字段中，请告知代码，字段类型是image，
并且怎么读取图标请各位大侠相告

Answer 1

var
  AStream: TFileStream;
begin
  if FileExists(trim(edtFileName.Text)) then
  begin
    AStream := TFileStream.Create(trim(edtFileName.Text), fmOpenRead);
    try
      with ADOTblTrans do
      begin
        if not (AStream.Size > 5200000) then begin
          Open;
          Insert;
          TblobField(FieldByName('FileText')).LoadFromStream(AStream);            Post;
                            );
        end
        
      end;//end with
    finally
      AStream.Free;
    end;//end try
    
  end