function TUniMainModule.GetImageFromBase(perID:integer; perImage:TUniImage):boolean;
var
  perIBQuery:TIBQuery ;
  perTypeImage:integer;
  Stm:TStream;

begin
perIBQuery:=MyInitializationTIBQerySelect(perIBQuery); //
perIBQuery.Active:=false;
perIBQuery.SQL.Clear;
perIBQuery.SQL.Add(
                        'select * from USERS where ID =:perID'
                       );

if  perID = 0 then perIBQuery.ParamByName('perID').IsNull else  perIBQuery.ParamByName('perID').AsInteger:= perID;

  try
  perIBQuery.Active:=true;
  //perIBQuery.Last;
  Stm := perIBQuery.CreateBlobStream( perIBQuery.FieldByName('PHOTO'), bmRead);
  Except
  FreeAndNil(perIBQuery);
  FreeAndNil(Stm);
  end;

  try
  if Stm.Size > 0 then
    begin
    Stm.Position:=0;
//    perImage.Picture.Graphic.LoadFromStream(Stm);
    //perImage.Picture.Graphic:=TJPEGImage.Create;//TBitmap.Create;
    perImage.Picture.LoadFromStream(stm);
    end;
  finally
  FreeAndNil(perIBQuery);
  FreeAndNil(Stm);
  end;
end;

  try
  NewADOQuery:=TADOQuery.Create(nil); //запрос на фото
    with NewADOQuery do
    begin
      SQL.Text := 'select thumbnailPhoto from ''LDAP://'+EditDomainName.Text+''' where DisplayName='''+perFIO+'''';
      //SQL.Text := 'select jpegPhoto from ''LDAP://'+EditDomainName.Text+''' where DisplayName='''+perFIO+'''';
      Connection:=NewADOConnection;
    end;
  NewADOQuery.Open;
  except
  MemoLog.Lines.Add('Ошибка запроса в AD для поиска фотографии по ФИО пользователя')
  end;

if not NewADOQuery.IsEmpty then       //если есть, то показываем
  begin
  Stm := TMemoryStream.Create;
  v:=NewADOQuery.FieldByName('thumbnailPhoto').value;

  Stm.Position:= 0;
  p := VarArrayLock(v);
  Stm.Write(p^, VarArrayHighBound(v, 1));
  VarArrayUnlock(v);

  Stm.Position:= 0;
  Image1.Picture.LoadFromStream(stm);
  end;

if not NewADOQuery.IsEmpty then       //если есть, то показываем
  begin
  Stm:=VariantToStram(NewADOQuery.FieldByName('thumbnailPhoto').value)  ;               //преобразовываем фотографию из АД в поток

  Stm.Position:= 0;

  jpeg := TJPEGImage.Create;  //конвертируем из jpeg в bpm
  try
    jpeg.CompressionQuality := 100 ; {Default Value}
    jpeg.LoadFromStream(stm);
    bmp := TBitmap.Create;
    try
      Stm.Free;
      Stm:=TMemoryStream.Create;
      Stm.Position:= 0;
      bmp.Assign(jpeg);
      bmp.SaveToStream(Stm);
    finally
      bmp.Free;
    end;
  finally
    jpeg.Free;
  end;


  perIBQuery:=MyInitializationTIBQeryInsert(perIBQuery); //
  perIBQuery.Active:=false;
  perIBQuery.SQL.Clear;
  perIBQuery.SQL.Add('update USERS '
                    +' set '
                    +'PHOTO = :perPHOTO '
                    +'where ID = :perID'
                    );
  if  perID = 0 then perIBQuery.ParamByName('perID').IsNull else  perIBQuery.ParamByName('perID').AsInteger:= perID;

    try
    Stm.Position:=0;                                                              //
    perIBQuery.ParamByName('perPHOTO').LoadFromStream( Stm, ftBlob);             //
    perIBQuery.ExecSQL;
    IBTransactionComm.Commit;
    except
    MemoLog.Lines.Add('Ошибка добавления фотографии из AD в БД')
    end;

  FreeAndNil(perIBQuery); //
  NewADOQuery.Close;
  FreeAndNil(NewADOConnection);
  FreeAndNil(Stm);
  end;

function TUniMainModule.GetImageFromBase(perID:integer; perImage:TUniImage):boolean;
var
  perIBQuery:TIBQuery ;
  perTypeImage:integer;
  Stm:TStream;

begin
perIBQuery:=MyInitializationTIBQerySelect(perIBQuery); //
perIBQuery.Active:=false;
perIBQuery.SQL.Clear;
perIBQuery.SQL.Add(
                        'select * from USERS where ID =:perID'
                       );

if  perID = 0 then perIBQuery.ParamByName('perID').IsNull else  perIBQuery.ParamByName('perID').AsInteger:= perID;

  try
  perIBQuery.Active:=true;
  //perIBQuery.Last;
  Stm := perIBQuery.CreateBlobStream( perIBQuery.FieldByName('PHOTO'), bmRead);
  Except
  FreeAndNil(perIBQuery);
  FreeAndNil(Stm);
  end;



  try
  if Stm.Size > 0 then
    begin
    Stm.Position:=0;
//    perImage.Picture.Graphic.LoadFromStream(Stm);
    //perImage.Picture.Graphic:=TJPEGImage.Create;//TBitmap.Create;
    perImage.Picture.Bitmap.LoadFromStream(stm);
    end;
  finally
  FreeAndNil(perIBQuery);
  FreeAndNil(Stm);
  end;
end;