小编Ica*_*aro的帖子

PHAsset到UIImage

我正在尝试从PHAsset创建一个UIImage(如缩略图或其他东西),以便我可以将它传递给需要UIImage的东西.我已经尝试调整我在SO上找到的解决方案(因为他们都直接将它传递到tableview或其他东西),但我没有成功(可能是因为我做得不对).

func getAssetThumbnail(asset: PHAsset) -> UIImage {
    var retimage = UIImage()
    println(retimage)
    let manager = PHImageManager.defaultManager()
    manager.requestImageForAsset(asset, targetSize: CGSize(width: 100.0, height: 100.0), contentMode: .AspectFit, options: nil, resultHandler: {(result, info)->Void in
            retimage = result
    })
    println(retimage)
    return retimage
}
Run Code Online (Sandbox Code Playgroud)

printlns告诉我,manager.request行现在没有做任何事情.如何让它作为UIImage给我资产.

谢谢.

swift phasset

53
推荐指数
7
解决办法
4万
查看次数

Delphi中同一服务的多个实例

我有一个旧的Windows服务在delphi中,现在必须在同一台服务器上多次安装,我正在尝试更改代码,以便我能够更改服务名称,因为我正在安装服务,但我不能使它工作.

我找了一些资料在这里,有的在这里一下吧,学习后的职位,并进行必要的修改,我能够安装两个服务具有不同名称,但该服务不启动.

我发布负责控制下面的服务的类(继承TService),我知道相当多的代码,但我真的很感激任何帮助.

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  tvdAvalancheDataCenterService.Controller(CtrlCode);
end;
function TtvdAvalancheDataCenterService.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;
procedure TtvdAvalancheDataCenterService.ServiceLoadInfo(Sender : TObject);
begin
  Name := ParamStr(2);
  DisplayName := ParamStr(3);
end;
procedure TtvdAvalancheDataCenterService.ServiceBeforeInstall(Sender: TService);
begin
  ServiceLoadInfo(Self);
end;
procedure TtvdAvalancheDataCenterService.ServiceCreate(Sender: TObject);
begin
  ServiceLoadInfo(Self);
end;
procedure TtvdAvalancheDataCenterService.ServiceStart(Sender: TService;
  var Started: Boolean);
begin
  FtvdTrayIcon := TtvdEnvoyTrayIcon.Create(Self);
  SetServiceDescription;
  FtvdDataCenter.tvdActive := true;
end;
procedure TtvdAvalancheDataCenterService.ServiceStop(Sender: TService;
  var Stopped: Boolean);
begin
  FreeAndNil(FtvdTrayIcon);
  FtvdDataCenter.tvdActive := False;
end;
procedure TtvdAvalancheDataCenterService.ServiceAfterInstall(Sender: TService);
begin
   SetServiceDescription;
end;
procedure …
Run Code Online (Sandbox Code Playgroud)

delphi service delphi-xe

5
推荐指数
2
解决办法
1591
查看次数

需要提示UIBezierPath.像Instagram注册视图的三角形状

我试图创建一个像下面图片中的instagram三角形的bezier路径,但是我一定是做错了.Bezier路径没有显示!

- (void)viewDidLoad {
[super viewDidLoad];
// Do any additional setup after loading the view.

}

-(void)viewDidLayoutSubviews{
[super viewDidLayoutSubviews];

[self drawTriangle];

}

- (IBAction)closeButton:(UIButton *)sender {
[self dismissViewControllerAnimated:YES completion:nil];
}

- (void)drawTriangle{

UIBezierPath* trianglePath = [UIBezierPath bezierPath];
[trianglePath moveToPoint:CGPointMake(self.signUpButton.center.x, self.signUpButton.frame.origin.y + 30)];
[trianglePath addLineToPoint:CGPointMake(self.signUpButton.center.x - 10, self.imageView.frame.size.height)];
[trianglePath addLineToPoint:CGPointMake(self.signUpButton.center.x + 10, self.imageView.frame.size.height)];

UIColor *fillColor = [UIColor whiteColor];
[fillColor setFill];
UIColor *strokeColor = [UIColor whiteColor];
[strokeColor setStroke];

 [trianglePath fill];
[trianglePath stroke];

[trianglePath closePath];
}
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

objective-c cashapelayer ios uibezierpath

4
推荐指数
1
解决办法
4331
查看次数

在 C# 中将 JArray 的字符串从 JObject 转换为字符串数组

我有一个 JSON,其中一部分包含字符串值,例如

 "parent_crumbs": [
    "Platforms",
    "STATS , EXPE , ESTAP",
    "Portal"
],
Run Code Online (Sandbox Code Playgroud)

我使用下面的代码从 JSON 对象读取值

 JObject _task; //parse the JSON to JOBJECT first               
 string values=    (string)_task["parent_crumbs"].ToString();
Run Code Online (Sandbox Code Playgroud)

这将返回一个带有方括号和所有引号的字符串。

我如何将其转换为 C# 中的字符串数组

我可以删除 [ 和 ] 然后拆分 ,但是当 , 出现在字符串项中间时,整个假设将被打破。那么是否有任何方法可以从 JArray 读取字符串数组

c# json json.net

4
推荐指数
1
解决办法
1万
查看次数

更新Oracle中所有表中的所有行

我有一个在大多数表中重复的字段 (clientID)(大约 100 个左右),我尝试使用 oracle 11g 一次性更新它。我能够获取表的名称,但无法使用它。从下面的代码来看:

BEGIN
   FOR Name IN ( SELECT TABLE_NAME FROM SYS.all_tables where TABLESPACE_NAME='MyTableSpace') LOOP
        DBMS_OUTPUT.PUT_LINE(Name.TABLE_NAME); --I can't see any logs on DBMS Output for some reason
        -- Update Name.TABLE_NAME set ClientID = 1 Where ClientID = 2; --This line does not work message "Table or view does not exist"
   END LOOP;
END;
Run Code Online (Sandbox Code Playgroud)

oracle oracle11g sql-update

3
推荐指数
1
解决办法
2533
查看次数

如何根据标签可用的高度调整UILabel字体大小

我正在使用自动布局和使用UILables调整文本大小,并且它在宽度上工作得很好,但在高度上却没有那么多.

如果宽度中的文本有空格但文本没有压缩高度

任何想法如何创建约束来做到这一点?或者这是不可能的,我怎样才能找到适合矩形的文本的最小尺寸?

ios autolayout swift

3
推荐指数
2
解决办法
3396
查看次数

如何禁用整个项目的断言?

我在Delphi中有一些代码,它们都有Assert语句.我知道有一个编译器指令{$C-},但有太多的单位要添加它.有没有办法让编译器命令行或dpr文件中的某个地方完成它?

delphi assert

2
推荐指数
1
解决办法
1108
查看次数

查找嵌入表单中的表单的屏幕位置,嵌入表单中,

我发现自己处在一个棘手的情况下,我有一个应用程序,它有一个嵌入表单的表单,嵌入一个表单,嵌入一个表单......(你得到了图片).

我试图找到其中一个表单的中间部分(即easy(Self.Width div 2)和(Self.Height div 2),右).然后,相对于屏幕的位置(这很简单,以及(Self.Width div 2) + Self.Left(Self.Height div 2) + Self.Top).

问题是,这种形式被嵌入另一种形式,所以我就 (Self.Width div 2) + Self.Left + Self.Parent.Left(Self.Height div 2) + Self.Top + Self.Parent.Top

问题是我有6到8个表格相互嵌入.我在想一个递归的电话; 问题是并非所有对象都是表单,它们是表单,选项卡,面板等的混合.

什么是优雅的解决方法?

forms delphi recursion position delphi-xe

2
推荐指数
1
解决办法
1306
查看次数

自动实现可清除类中的唯一ID

我创建了一个我想成为Hashable和Equatable的新类,所以我可以轻松地遍历它,类示例如下:

class MyClass: Hashable {
    var uid: Int
    var myName: String
    var myAge:Int
    var hashValue: Int {
        return self.uid
    }
    init(uid: Int, name: String, age: Int) {
        self.uid = uid
        self.myName = name
        self.myAge = age
    }
}

func ==(lhs: MyClass, rhs: MyClass) -> Bool {
    return lhs.uid == rhs.uid
}
Run Code Online (Sandbox Code Playgroud)

问题是,现在我必须在创建类时传递一个uid,如下所示:

let user1 = MyUser(uid: 1, name: "Me", age: 36)
Run Code Online (Sandbox Code Playgroud)

我想让uid静态并为我创建的每个对象生成一个新的,如下所示:

let user2 = User(name: "The other guy", age: 23)
Run Code Online (Sandbox Code Playgroud)

在这种情况下,user2的uid将等于2,它只是一个set属性,它不需要get,因为它应该对使用该类的人完全透明.

但是,每当我尝试将uid更改为a static var或a时,class var我都无法使其符合Hashable …

hashtable iequatable swift

2
推荐指数
1
解决办法
2111
查看次数

在img标签上更改src,无法使其正常工作

我一直在尝试使用jquery和httprequest来改变网页中的图像,没有任何运气......经过大量研究我决定寻求帮助.代码粘贴在下面,我首先尝试要求json(什么工作正常),然后更新图像上的scr ...没有用.对于最后的测试我使用鼠标悬停和鼠标输出功能并没有工作,有趣的是,其他属性,如显示和隐藏工作正常,唯一的问题是与attr('scr','').

谢谢

<!DOCTYPE html>
<html>
<head>
<script src="..\js\jQuery.js"></script>
<script>
  $.getJSON("http://www.containernurseries.co.nz/json/jsonPlantDetails.php", 
  {plantSelected:"ARGYRANTHEMUM-POLLY"},
  function(data){
    $('#a1').attr('scr','data:image/jpg;base64,'+data.plantDetail.Image);
  });
  $(document).ready(function() {
    $('#a1').mouseover(function(e) {
      $('#a1'.attr('scr','http://www.containernurseries.co.nz/images/services.gif');
    }).mouseout(function(e) {
      $('#a1').attr('scr','http://www.containernurseries.co.nz/images/services.gif');
    });
  });
</script>
</head>

<body>
<img id="a1" src="http://www.containernurseries.co.nz/images/contacticon.gif" width="18" height="37"/>


</body>
</html>
Run Code Online (Sandbox Code Playgroud)

html javascript jquery json

1
推荐指数
1
解决办法
1221
查看次数

使用Enum作为对象键

我有一个枚举:

   const ingredients = {
      BREAD_BOTTOM: 'BreadBottom',
      BREAD_TOP: 'BreadTop',
      MEAT: 'Meat',
      BACON: 'Bacon',
      CHEESE: 'Cheese',
      SALAD: 'Salad'
   };
Run Code Online (Sandbox Code Playgroud)

现在我想用这个Enum创建一个成分列表,例如:

    listOfIngredients: {
      ingredients.BREAD_TOP: 1,
      ingredients.BACON: 1,
      ingredients.CHEESE: 2,
      ingredients.MEAT: 2,
      ingredients.BREAD_BOTTOM: 1,
    }
Run Code Online (Sandbox Code Playgroud)

我尝试了一些变化,${ingredients.BREAD_TOP}但我不能使成分列表具有Enum值的关键

javascript

1
推荐指数
1
解决办法
834
查看次数

尝试/除外/最后在Delphi XE中无法正常工作

我在Delphi XE中遇到这个有趣的问题,我在其中创建了一个try/except/finally语句,当应用程序生成异常时,except块从不被调用,它直接跳转到finally块,我尝试了一些事情,比如反转try /除了/最后尝试/ finally/except,尝试将try块更改为不同的地方,清理代码并重新编译,以防Delphi问题,但注意似乎工作.

我在这里要完成的是向用户显示一条对话框消息,并在发生崩溃后清理代码.

procedure CallbackExport(Sender: TObject);
var
  SaveDlg: TSaveDialog;
  FileName: string;
begin
  SaveDlg := TSaveDialog.Create (nil);
  try
    try
      SaveDlg.Title := 'Export';
      SaveDlg.InitialDir := GetSystemPath(CSIDL_DESKTOP);
      SaveDlg.Options := [ofOverwritePrompt, ofEnableSizing];

      case (Sender as TMenuItem).Tag of
        cnExcel: begin
          SaveDlg.Filter := 'Excel File (*.xls)|*.xls';
        end;
        cnHtml: begin
          SaveDlg.Filter := 'HTML File (*.html)|*.html';
        end;
        cnTxt: begin
          SaveDlg.Filter := 'Text File (*.txt)|*.txt';
        end;
        cnCsv: begin
          SaveDlg.Filter := 'Comma Seperated File (*.csv)';
        end;
        cnXml: begin
          SaveDlg.Filter := 'XML file (*.xml)|*.xml';
        end;
      end;
      if not SaveDlg.Execute(self.Handle) …
Run Code Online (Sandbox Code Playgroud)

delphi exception-handling try-catch delphi-xe

0
推荐指数
1
解决办法
2884
查看次数