月份: 2014 年 12 月

蘋果貓咖啡試喝(1) 鑽石山

IMG_0001
昨天收到好友景隆夫妻寄來的掛耳咖啡，景隆是在前前公司的同事，後來離職後透過臉書還保有聯繫，現在是App開發的神級人物。前陣子夫妻開了間蘋果貓咖啡，也因為夫妻都是iOS Developer，咖啡店除了喝咖啡外，也成了每個月中部地區Developer的聚會基地。
iOS開發者聚會
雖然蘋果貓咖啡才開沒多久，但二夫妻為了圓咖啡夢倒是下足了功夫研究，也從十月份開始嘗試自烘咖啡豆。十二月初Vicky私訊來問後，在年前就寄來了五種不同豆種的咖啡掛耳包。今天先試喝鑽石山(Diamond Mountain)~

鑽石山咖啡經過Vicky細心的挑豆以及烘焙後，維持著該有的柑橘香味及及堅果香，入口微酸，但會有回甘餘韻。

也許這咖啡豆常常聽著Objective-C跟Swift的語法的緣故，所以邊喝咖啡邊寫程式如有神助~哈哈~倒是解決了不少程式上的問題。

蘋果貓咖啡
蘋果貓咖啡

蘋果貓咖啡

地址：台中市 龍井區龍北路318號

電話：04-26380188

粉絲專頁 https://www.facebook.com/AppleCatCafe

網站　http://applecat-cafe.com/

Vicky’s LINE-ID : apple_vicky

遠振推SSD虛擬主機

 

早上看到一直使用的虛擬主機商遠振的新廣告，推出SSD硬碟的新主機。

強調

  • 台灣罕見不限 MySQL 資料庫、FTP、Email、附加網域，最適合架設多網站的全功能虛擬主機方案！
  • 保留本機一份加四份異機備份，資料保障領先業界
  • 立即搬家享優惠，首年八折，再享免費搬遷服務

一直很喜歡它的主機服務。推給大家

遠振主機

網址:

https://host.com.tw

Mac系統上VMware Fusion修改Disk Size出現there is not enough space on the file system for the selected operation

因為虛擬機器上要重新安裝Delphi XE7 update1時空間不足，接著要把Virtual Machine的Disk Size加大後出現了”there is not enough space on the file system for the selected operation”。搞了好久才知道Virtual Disck要加大的容量，系統的可用空間需要大於它，也就是說如果你要從60G加大到70G的話，你的系統可用空間也要有70G以上才行。

Delphi結合簡易PHP路徑規劃

延續上一篇的文章，如何透過Delphi傳遞起訖點就能幫助做路徑規劃呢？透過Delphi的WebBrowser元件搭配遠端的PHP，傳遞參數可以做得到！

PHP的部份，我們主要是要傳遞FROM以及TO二個參數(以下不做解釋XD)
[php]
<!DOCTYPE html>
<html>
<head>
<meta name="viewport" content="initial-scale=1.0, user-scalable=no">
<meta charset="utf-8">
<title>路徑規劃</title>
<style>
html, body, #map-canvas {
height: 100%;
margin: 0px;
padding: 0px
}
</style>
<script src="https://maps.googleapis.com/maps/api/js?v=3.exp"></script>
<script>
var directionsDisplay;
var directionsService = new google.maps.DirectionsService();
var map;
var stepDisplay;
var markerArray = [];

function initialize() {
var rendererOptions = {
map: map,
suppressMarkers : true
}
directionsDisplay = new google.maps.DirectionsRenderer(rendererOptions);
var fengyuan = new google.maps.LatLng(24.253706601916402, 120.72275021093753);
var mapOptions = {
zoom:17,
center: fengyuan
};
map = new google.maps.Map(document.getElementById(‘map-canvas’), mapOptions);
directionsDisplay.setMap(map);
stepDisplay = new google.maps.InfoWindow();
calcRoute();
}

function calcRoute() {
for (i = 0; i < markerArray.length; i++) {
markerArray[i].setMap(null);
}
markerArray = [];
var start = <?php echo ‘"’.($_GET["FROM"]).’"’; ?>;
var end = <?php echo ‘"’.($_GET["TO"]).’"’; ?>;
var request = {
origin:start,
destination:end,
travelMode: google.maps.TravelMode.WALKING
};
directionsService.route(request, function(response, status) {
if (status == google.maps.DirectionsStatus.OK) {
directionsDisplay.setDirections(response);
showSteps(response);
}
});
}
function showSteps(directionResult) {
var myRoute = directionResult.routes[0].legs[0];
for (var i = 0; i < myRoute.steps.length; i++) {
var icon = "https://chart.googleapis.com/chart?chst=d_map_pin_letter&chld=" + i + "|FF0000|000000";
if (i == 0) {
icon = "https://chart.googleapis.com/chart?chst=d_map_xpin_icon&chld=pin|glyphish_walk|00FFFF|FF0000";
}
var marker = new google.maps.Marker({
position: myRoute.steps[i].start_point,
map: map,
icon: icon
});
attachInstructionText(marker,myRoute.steps[i].instructions);
markerArray.push(marker);
}

var marker = new google.maps.Marker({
position: myRoute.steps[i – 1].end_point,
map: map,
icon: "https://chart.googleapis.com/chart?chst=d_map_xpin_icon&chld=pin|glyphish_walk|ADDE63"
});
markerArray.push(marker);
}
function attachInstructionText(marker, text) {
google.maps.event.addListener(marker, ‘click’, function() {
stepDisplay.setContent(text);
stepDisplay.open(map, marker);
});
}
google.maps.event.addDomListener(window, ‘load’, initialize);
</script>
</head>
<body>
<div id="map-canvas"></div>
</body>
</html>
[/php]

DELPHI的部份，因為D7的URLENCODE有問題，所以我們另尋了一個解決的部份(見延伸閱讀)
[pas]
function HTTPEncode(const AStr: String): String;
const
NoConversion = [‘A’..’Z’,’a’..’z’,’*’,’@’,’.’,’_’,’-‘,’0′..’9′,’$’,’!’,””,'(‘,’)’];
var
Sp, Rp: PAnsiChar;
begin
SetLength(Result, Length(AStr) * 3);
Sp:= PAnsiChar(AStr);
Rp:= PAnsiChar(Result);
while Sp^ <> #0 do
begin
if Sp^ in NoConversion then
Rp^ := Sp^
else
if Sp^ = ‘ ‘ then
Rp^ := ‘+’
else
begin
FormatBuf(Rp^, 3, ‘%%%.2x’, 6, [Ord(Sp^)]);
Inc(Rp,2);
end;
Inc(Rp);
Inc(Sp);
end;
SetLength(Result, Rp – PAnsiChar(Result));
end;
function URLEncode(const Url: String): String;
begin
Result:= HttpEncode(UTF8Encode(Url));
end;
[/pas]
最後在畫面上佈置出二個Edit以及一個Button，以及WebBrowser。程式很簡單
[pas]
procedure TForm1.Button1Click(Sender: TObject);
var
str:WideString;
begin
str := ‘http://你的php位置?FROM=’+URLEncode(edit1.text)+’&TO=’+URLEncode(edit2.text);
self.WebBrowser1.Navigate(str);
end;
[/pas]

延伸閱讀：
Delphi URLEncode問題解決
http://alexey-m.ru/articles/urlencode-utf-8-windows1251

Google Map 路徑規劃API測試

Google Map是筆者覺得很棒的一項服務，而且Google也很佛心的提供開發的API（雖然有次數限制）。因為住豐原的關係，常常聽到週遭朋友說不知道那些可以去，所以就嘗試玩了一下路徑規劃。其實也還不複雜~例出主要的部份

JavaScript

[js]
var start = document.getElementById(‘start’).value; // 起點(可以是地址或是經緯度)
var end = document.getElementById(‘end’).value; // 終點(可以是地址或是經緯度)

var request = {
origin:start,
destination:end,
travelMode: google.maps.TravelMode.WALKING // 設成步行 (預設是google.maps.TravelMode.DRIVING 開車)
};
directionsService.route(request, function(response, status) {
if (status == google.maps.DirectionsStatus.OK) {
directionsDisplay.setDirections(response);
}
});
[/js]

延伸閱讀：
Google Map API 3.0 https://developers.google.com/maps/documentation/javascript/directions?hl=zh-tw

讓佛祖、耶酥一起保佑程式碼無BUG，比乖乖有效?

微博上看到各國機房為了確保主機穩定不出怪事，請出法師、大師、神父到機房作法、禱告。

台灣最聞名的就是放乖乖了，然後要記得是綠燈（正常）的椰子乖乖:)

最近程式設計師流行直接寫在CODE裡，像上次寫的機器上除了要擺乖乖外，程式碼也該加上佛祖保佑，今天更出現耶穌版本。

[pascal]
// |~~~~~~~|
// | |
// | |
// | |
// | |
// | |
// |~.\\\_\~~~~~~~~~~~~~~xx~~~ ~~~~~~~~~~~~~~~~~~~~~/_//;~|
// | \ o \_ ,XXXXX), _..-~ o / |
// | ~~\ ~-. XXXXX`)))), _.–~~ .-~~~ |
// ~~~~~~~`\ ~\~~~XXX’ _/ ‘;)) |~~~~~~..-~ _.-~ ~~~~~~~
// `\ ~~–`_\~\, ;;;\)__.—.~~~ _.-~
// ~-. `:;;/;; \ _..-~~
// ~-._ `” /-~-~
// `\ / /
// | , | |
// | ‘ / |
// \/; |
// ;; |
// `; . |
// |~~~—–…..|
// | \ \
// | /\~~–…__ |
// (| `\ __-\|
// || \_ /~ |
// |) \~-‘ |
// | | \ ‘
// | | \ :
// \ | | |
// | ) ( )
// \ /; /\ |
// | |/ |
// | | |
// \ .’ ||
// | | | |
// ( | | |
// | \ \ |
// || o `.)|
// |`\\\\) |
// | |
// | |
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
// 耶穌保佑 永無 BUG
[/pascal]
同場加映
[pascal]
//
// _oo0oo_
// o8888888o
// 88" . "88
// (| -_- |)
// 0\ = /0
// ___/`—‘\___
// .’ \\| |// ‘.
// / \\||| : |||// \
// / _||||| -:- |||||- \
// | | \\\ – /// | |
// | \_| ”\—/” |_/ |
// \ .-\__ ‘-‘ ___/-. /
// ___’. .’ /–.–\ `. .’___
// ."" ‘< `.___\_<|>_/___.’ >’ "".
// | | : `- \`.;`\ _ /`;.`/ – ` : | |
// \ \ `_. \_ __\ /__ _/ .-` / /
// =====`-.____`.___ \_____/___.-`___.-‘=====
// `=—=’
//
//
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
// 佛祖保佑 永無bug
//
//***************************************************
[/pascal]

升級Yosemite執行Java出現需要舊版Jave SE6執行階段

 

 

 

 

升級Yosemite後，發現執行Jave撰寫的程式時出現需要安裝舊版Java SE6。

解決方案是到Apple Supportj找到Java for OS X下載就行了

http://support.apple.com/kb/DL1572?viewlocale=zh_TW&locale=en_US

螢幕快照 2014-12-25 下午2.01.01

 

cmd.fm 下指令聽音樂玩遊戲的網站

無意間發現了一個酷站，是模仿DOS界面的音樂網站，不管是查詢、播放、音量都需要打指令，適合技術狂熱的朋友。
主頁面可以看到音樂來源是soundcloud，這網站透過api取得音樂。
常用的指令:
聽音樂的話就輸入 play rock ，就會播放rock類型的音樂….
調音量就輸入　volume 1~100
暫停就輸入　pause
繼續播就打　resume
上一首　back
下一首　next
從help看到有遊戲，如果打mario就出現瑪莉兄弟…..

服務名稱： cmd.fm
網址: https://cmd.fm/
cmd.fm02 cmd.fm03 cmd.fm04
cmd.fm01

cmd.fm05

聖誕節快樂

因為有facebook的關係，所以很少分享生活中的點滴。不過就破例一下 🙂

昨天跟太平洋百貨豐原店企劃課林幽蘭課長合照，出現了美女與野獸(野生壽山)的照片~最後換了一套結合萬聖節及聖誕節的「生膽老公公」造型裝扮～
結果有不少人來合照，還有媽媽叫小朋友過去合照，小朋友不敢還被媽媽笑沒膽XD
來！靠近我就生膽給你了XD

anyway~還是祝大家聖誕節快樂！Merry Xmas~

 

1459094_984337424913273_6452567582794794122_n1800356_10152429949666541_4533522340688898873_n

Delphi 7 從健保局下載zip檔案順便解壓縮

由於學校還使用Delphi 7，為了要教同學從網路上下載檔案加上解壓縮費了不少力氣。順便就記錄一下如何從健保局抓下檔案後，然後一道解壓縮。

1.Delphi7沒有壓縮元件，所以要尋求免費的資源。幸好有Opensource的Delphi 7zip元件
網址:https://code.google.com/p/d7zip/
下載之後解壓縮會有三個檔案
7z.dll
readme.html
sevenzip.pas

2.把7z.dll跟sevenzip.pas放到程式目錄下(散佈程式時記得.exe檔跟7z.dll要一起copy)。
3.回到Delphi7的Project→add to project把sevenzip.pas加進專案
4.File→Use Unit選Sevenzip.pas後就可以開始寫code了
5.畫面上佈置如下圖
(text設為http://www.nhi.gov.tw/Resource/webdata/2976_1_hospbsc.zip)
delphi7zip02
6.ButtonClick程式如下
[pascal]
procedure TForm1.Button1Click(Sender: TObject);
var
ms:TMemoryStream;
i:integer;
tempfile,extname,filename1:String;
begin
ms := Tmemorystream.Create;
ms.Clear;
ms.Position :=0;
try
idhttp1.Get(edit1.text,ms);
ms.SaveToFile(ExtractFilePath(Application.ExeName)+’\test.zip’);
except
end;
if fileexists(ExtractFilePath(Application.ExeName)+’\test.zip’) then
begin
with CreateInArchive(CLSID_CFormatZip) do
begin
OpenFile(ExtractFilePath(Application.ExeName)+’\test.zip’);
for i := 0 to NumberOfItems – 1 do
if not ItemIsFolder[i] then begin
tempfile := ItemPath[i];
extname:=ExtractFileExt(tempfile);
if extname =’.txt’ then
filename1:=tempfile;
end;
ExtractTo(ExtractFilePath(Application.ExeName));
end;
Memo1.Lines.LoadFromFile(Filename1);
end;
end;
[/pascal]
藥品健保藥價資料集
P.S idhttp1.HandleRedirects := True;