svnno****@sourc*****
svnno****@sourc*****
2011年 10月 19日 (水) 09:14:50 JST
Revision: 1635
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1635
Author: syo68k
Date: 2011-10-19 09:14:49 +0900 (Wed, 19 Oct 2011)
Log Message:
-----------
intragramのプレビューができないのを修正
Modified Paths:
--------------
trunk/Tween/Thumbnail.vb
-------------- next part --------------
Modified: trunk/Tween/Thumbnail.vb
===================================================================
--- trunk/Tween/Thumbnail.vb 2011-10-16 17:47:27 UTC (rev 1634)
+++ trunk/Tween/Thumbnail.vb 2011-10-19 00:14:49 UTC (rev 1635)
@@ -2166,8 +2166,7 @@
Dim src As String = ""
Dim http As New HttpVarious
If http.GetData(args.url.Value, Nothing, src, 0, args.errmsg, "") Then
- Dim mc As Match = Regex.Match(src, "<meta property=""og:image"" content=""(?<url>.+)""/>")
- '二つ以上キャプチャした場合先頭の一つだけ 一つだけの場合はユーザーアイコンしか取れなかった
+ Dim mc As Match = Regex.Match(src, "<meta property=""og:image"" content=""(?<url>.+)"" ?/>")
If mc.Success Then
Dim _img As Image = http.GetImage(mc.Groups("url").Value, args.url.Key, 0, args.errmsg)
If _img Is Nothing Then Return False