2018年11月16日星期五

Google Maps über COM (Component Object Model) 谷歌地圖

Google Maps über COM (Component Object Model)

jasontpenny
GMLib
Rodrigo
TGoMaps Lite
DelphiMaps
Der Preis.
Die Flexibilität.

2018年11月13日星期二

Undocumented MessageBoxTimeOut function 時間倒數訊息

http://www.delphibasics.info/home/delphibasicssnippets

Undocumented MessageBoxTimeOut function

function MessageBoxTimeOut( 
      hWnd: HWND; lpText: PChar; lpCaption: PChar; 
      uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
function MessageBoxTimeOutA( 
      hWnd: HWND; lpText: PChar; lpCaption: PChar; 
      uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;

function MessageBoxTimeOutW( 
      hWnd: HWND; lpText: PWideChar; lpCaption: PWideChar; 
      uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;

implementation 

// this const is not defined in Windows.pas 
const 
  MB_TIMEDOUT = 32000; 

function MessageBoxTimeOut; externaluser32 name 'MessageBoxTimeoutA'; 
function MessageBoxTimeOutA; external user32 name 'MessageBoxTimeoutA'; 
function MessageBoxTimeOutW; external user32 name 'MessageBoxTimeoutW';

var 
  iResult: Integer; 
  iFlags: Integer; 
begin 
  // Define a MessagBox  with an OK button and a timeout of 2 seconds 
  iFlags  := MB_OK or MB_SETFOREGROUND or MB_SYSTEMMODAL or MB_ICONINFORMATION;
  iResult := MessageBoxTimeout( 
   Application.Handle, 
   'Test a timeout of 2 seconds.', 
   'MessageBoxTimeout Test', iFlags, 0, 2000); 

  // iResult will = 1 (IDOK) 
  ShowMessage(IntToStr(iRet)); 

  // Define a MessageBox with a Yes and No button and a timeout of 5 seconds 
  iFlags  := MB_YESNO or MB_SETFOREGROUND or MB_SYSTEMMODAL or MB_ICONINFORMATION; 

  iResult := MessageBoxTimeout( 
    Application.Handle, 
    'Test a timeout of 5 seconds.', 
    'MessageBoxTimeout Test', iFlags, 0, 5000); 

  // iResult = MB_TIMEDOUT if no buttons clicked, otherwise 
  // iResult will return the value of the button clicked 

  case iResult of 
  IDYES:  // Pressed Yes button 
    ShowMessage('Yes'); 

  IDNO:  // Pressed the No button 
    ShowMessage('No'); 

  MB_TIMEDOUT: // MessageBox timed out 
    ShowMessage('TimedOut'); 
  end; 
end;

Using NtDeleteFile from Delphi 刪除　檔案

Using NtDeleteFile from Delphi

The required structures (not defined in Delphi) are UNICODE_STRING and OBJECT_ATTRIBUTES.
function NtDeleteFile(ObjectAttributes:POBJECT_ATTRIBUTES):DWORD; stdcall; external 'ntdll.dll'; RtlDosPathNameToNtPathName_U

2018年11月12日星期一

完整抓取記憶體驗證鏡像

memory text Dynamic Section Image Verification

LoadLibrary GetDllDirectory GetProcAddress FreeLibrary GetModuleHandle DllMain MapViewOfFile

Dynamic TEXT Section Image Verification - CodeProject
Dynamic Code Checksum Generator - CiteSeerX
Dynamic Section - Assembly Language Programmer's Guide

memory Dynamic process Section Image list api monitor

2018年11月7日星期三

delphi VCL Web-Frameworks RIA

http://delphi625.rssing.com/chan-54815889/all_p14.html

delphi VCL Web-Frameworks

delphi Web ria

Rich Internet Application Frameworks

VCL Web-Frameworks
RealThinClient
IntraWeb
AthTek WebXone
UniGui
Raudus
xxm
DelphiOnRails
WebHub VCL
Kitto
p2js
extPascal
DelphiMVCFramework
Pas2Php

2018年7月18日星期三

delphi vector graphic

Graphics32
delphi gr32
Vectorial Polygon Rasterizer (VPR)
delphi Simple Vector Library
delphi Clipper open source library
http://www.felix-colibri.com/papers/graphic/delphi_3d_designer/delphi_3d_designer.html
delphi OpenWire
PascalSCADA
delphi SCADA Graphics opc

efg2 grphic
http://www.efg2.com/Lab/Library/Delphi/Graphics/Algorithms.htm
http://www.efg2.com/Lab/Library/Delphi/Graphics/index.html
http://www.efg2.com/Lab/Library/Delphi/Graphics/Math.htm
http://www.efg2.com/Lab/Library/Delphi/Graphics/ComponentsAndPrograms.htm
SweetDrawingEngine www.codeaccelerate.com

delphi-jedi graphic

torry Components Graphics Packs

LazRGBGraphics http://wiki.freepascal.org/LazRGBGraphics
BGRABitmap http://wiki.freepascal.org/BGRABitmap
AggPas http://www.crossgl.com/aggpas/
fpVectorial http://wiki.freepascal.org/fpvectorial
Andorra 2D http://andorra.sourceforge.net/
Graphics32 http://graphics32.org
http://wiki.freepascal.org/LazPaint
BGRABitmap. LazRGBGraphics http://wiki.freepascal.org/Lazarus_Image_Editor

Delphi SVG

https://www.awaresystems.be/techtalks.html

2018年7月4日星期三

delphi 我在哪裡? EIP EBP ESP 暫存器

delphi assembly Instruction Pointer

delphi assembly Instruction Pointer eip rtti

How to Get the EIP( Instruction Pointer Value ) in GCC Assembler?

https://www.codeproject.com/questions/641737/how-to-get-the-eip-instruction-pointer-value-in-gc

delphi procedure rtti TRttiMethod

Non-Obvious Debugging Techniques

2018年6月6日星期三

Delphi midas code generator

Delphi Multi-Tier Code Generator

datasetprovider broker
datasetprovider Remote Data Broker

http://www.torry.net/tools/code/codegen/DBAppCodeGenerator09.zip http://www.torry.net/tools/code/codegen/IniCodeGenerator10.zip http://www.torry.net/localuploads/StoredProcedureMaker.zip

Advanced DataSnap Features
http://www.delphisources.ru/pages/faq/master-delphi-7/content/LiB0171.html

Overview General Comments About Delphi’s Data Access Technologies http://slideplayer.com/slide/6068299/

delphi ru скриншот ServerSocket MIDAS

Введение в Microsoft RPC

2018年5月24日星期四

delphi float double 浮點數

https://github.com/Tominator2/HEXtoIEEE-754

http://www.davdata.nl/math/floatingpoint.html

http://www.efg2.com/Lab/Mathematics/NaN.htm
http://www.efg2.com/Lab/Library/Delphi/MathInfo/index.html

http://docwiki.embarcadero.com/RADStudio/Tokyo/en/About_Floating-Point_Arithmetic

http://rvelthuis.de/articles/articles-floats.html

IEEE standard for floating-point 754 1985 2008

https://ieeexplore.ieee.org/document/4610935/definitions?ctx=definitions

https://en.wikipedia.org/wiki/Double-precision_floating-point_format

var
  f:Single;
  pb:  pbyte;
  pba:array[1..sizeof(Single)] of byte;
  ttb4,ttb3,ttb2, ttb1 : Byte;
  i : Integer;
  s:string;
  Lines: TStrings;
begin

  s:='';

  f := string.ToSingle(Edit1.Text);
  pb := addr(f);
  for I := 1 to SizeOf(f) do
  begin
    pba[I]:= pb^;
    inc(pb);
  end;
  I:=1;

  ttb4:= pba[SizeOf(f)];
  ttb3:= pba[SizeOf(f)-1];
  ttb2:= pba[SizeOf(f)-2];
  ttb1:= pba[SizeOf(f)-3];

  s:= s +'Sign:'+ byte(ttb4 shr 7).ToHexString+',';
  s:= s +',Exp:'+ byte((ttb4 shl 1) or (ttb3 shr 7)).ToHexString;
  s:= s+',Frac:'+ byte((ttb3 shl 1 )shr 1).ToHexString + byte(ttb2).ToHexString+ byte(ttb1).ToHexString;

  s:= s +',Full:';
  for I := SizeOf(f) downto 1 do
  begin
    s:= s +','+ pba[I].ToHexString;
  end;
  I:=1;

  //32 bits (1 for the sign 8 for the exponent, and 23 for the mantissa).

  Memo1.Lines.Add(FormatFloat('0000000.0000000',f));
  Memo1.Lines.Add(s);
  Memo1.Lines.Add(
    '[Sign:'+ f.Sign.ToString+
    '][Exp:'+ word(f.Exp).ToHexString+
    '][Frac:'+ f.Frac.ToHexString
    +']');
  Memo1.Lines.Add('Exponent:'+ f.Exponent.ToHexString);
  Memo1.Lines.Add('Mantissa:'+ f.Mantissa.ToHexString);

2018年5月15日星期二

從 window 找到 application path PID

Enumerating All Processes
https://msdn.microsoft.com/en-us/library/windows/desktop/ms682623.aspx
Snapshot Process 32 First Process Next Enum Processes
Kernel32 CreateToolhelp32Snapshot
CreateToolhelp32Snapshot
Process32First 找到第一個
Process32Next 下一個
EnumProcesses
QueryFullProcessImageName
https://msdn.microsoft.com/zh-tw/library/windows/desktop/ms684919(v=vs.85).aspx

EnumWindows() 列舉出所有視窗
FindWindow() FindWindowEx() 找到窗體
GetWindowThreadProcessId() 找 process ID 擁有這窗
OpenProcess() 得到 HANDLE
GetModuleFileNameEx()
GetProcessImageFileName()
QueryFullProcessImageName()
GetWindowModuleFileName()

EnumWindows FindWindow FindWindowEx GetWindowThreadProcessId OpenProcess GetModuleFileName GetProcessImageFileName QueryFullProcessImageName GetWindowModuleFileName

如何創建單一唯一執行執行檔傳參數 CreateParams paramstr

How to run a single instance of an application
http://delphidabbler.com/articles?article=13
delphi Process Param Create Params paramstr
如何創建單一唯一執行執行檔傳參數

本篇教你傳遞參數給程式，可以確認運作或是重複的執行或是結束他

首先動作是

傳遞個 window message WM_COPYDATA

運作如

先找 window 存在?
喚醒她
傳送window message
決定是否結束他

你可以用 findwindows 找到自己預留的接收端

SwitchToPrevInst 你可以前後找

可以對其他 window 做傳送 SendMessage( Wdw, WM_COPYDATA, 0, LPARAM(@CopyData)

Data 必須是動態產生的 alloc ...

http://delphidabbler.com/articles?article=13&part=4

後面有下載

2018年5月13日星期日

op SWIG c convert 2 pascal / delphi

http://www.swig.org/exec.html

swig 是個編譯器的介面讓你從 c/c++ 轉成 perl python ruby tcl ...java pascal

http://wiki.freepascal.org/C_to_Pascal

https://en.wikipedia.org/wiki/Comparison_of_Pascal_and_C

http://c2pas.sourceforge.net

https://community.embarcadero.com/blogs/entry/c-to-delphi-converter-tool-can-quickly-and-easily-help-you-convert-standard-c-code-to-delphi

https://www.cadkas.com/ec2delphi.php

Developer Tools Code Code Convertors https://torry.net/pages.php?id=1518

https://github.com/WouterVanNifterick/C-To-Delphi

http://rvelthuis.de/articles/articles-convert.html

新建子處理並且把輸出輸入轉向

https://msdn.microsoft.com/en-us/library/windows/desktop/ms682499(v=vs.85).aspx

Creating a Child Process with Redirected Input and Output

ProcessStartInfo Redirect screen graphic mode

Diagnostics StandardOutput ReadToEnd

ShellExecute ShellExecuteEx CreateProcess CreateProcessAsUser …

https://www.experts-exchange.com/articles/1595/Execute-a-Program-with-C.html

capture PeekNamedPipe

Process OutputDataReceived

2018年5月7日星期一

delphi 把個物件元件 object component 存檔 save file

http://www.swissdelphicenter.ch/en/showcode.php?id=1626
https://stackoverflow.com/questions/698536/saving-a-tobject-to-a-file
https://torry.net/pages.php?id=96
http://jedqc.blogspot.tw/2006/02/d2006-what-on-earth-are-these-explicit.html
http://www.jed-software.com/files/ExplicitProps.zip
delphi runtime design system save
http://bitwisemag.co.uk/2/Add-A-Runtime-Form-Designer-To.html
delphi component stream binary save
http://www.delphisources.ru/pages/faq/master-delphi-7/content/LiB0045.html
https://theroadtodelphi.com/tag/rtti/
delphi property procedure save file Method
如何欺騙 Delphi 將一般獨立 procedure 當成 TxxEvent of Class;
Using resource files with Delphi
delphi component stream serialization
https://www.thoughtco.com/function-or-procedure-as-parameter-1057606

...save a TImagelist with all its images to a file?

// For writing components use WriteComponentResFile(path + source filename , component name source)

WriteComponentResFile('C:\imagelist1.bin',imagelist1);

// For reading the data back to a component:
// component := ReadComponentResFile(path + source filename , component name traget)imagelist1 := ReadComponentResFile('c:\imagelist1.bin', nil) as TImagelist;

http://www.delphipages.com/forum/showthread.php?t=30102

function ComponentToString(Component: TComponent): string;

var
BinStream:TMemoryStream;
StrStream: TStringStream;
s: string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result:= StrStream.DataString;
finally
StrStream.Free;

end;
finally
BinStream.Free
end;
end;

delphi ObjectBinaryToText ObjectTextToBinary

tubbysong 元件

2018年5月6日星期日

gps 時間校正

gps utc conversion arduino

~~http://www.instructables.com/id/GPS-time-UTC-to-local-time-conversion-using-Arduin/~~

http://www.instructables.com/id/GPS-time-UTC-to-local-time-conversion-using-Arduin/

網路時間協定- 維基百科，自由的百科全書 - Wikipedia

gps time synchronize International GNSS

synchronize Time dhcp

delphi 正則邏輯搜尋

http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Regular_Expressions

https://www.regular-expressions.info/

Regular delphi

embarcadero Regular delphi

http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/TRegExReplace_(Delphi)

lcd liquid crystal display 偏光片 Polarizer

lcd liquid crystal display 偏光片 Polarizer

polarizers magnet Faraday 偏光片法拉第效應

偏光片受到強烈磁性的變化而改變偏光的角度

https://www.youtube.com/channel/UCivA7_KLKWo43tFcCkFvydw

穩定壓縮複合木材刀柄電化塑化

stabilized compressed Hybrid Resin Wood

訊息鑑別碼

Message authentication code

訊息鑑別碼- 維基百科，自由的百科全書 - Wikipedia

金鑰雜湊訊息鑑別碼- 維基百科，自由的百科全書 - Wikipedia

https://en.wikipedia.org/wiki/Category:Message_authentication_codes

3SJJ0808金融数据密码机技术白皮书_百度文库

SJL22金融数据密码机技术白皮书V8.0h_图文_百度文库

 SJJ1212 Financial HSM Encryption of Data DES 3DES AES SM4

中国人民银行 pboc

https://www.ibm.com/support/knowledgecenter/en/linuxonibm/com.ibm.linux.z.wskc.doc/wskc_c_macclc.html
A keyed-hash MAC (HMAC) based message authentication can be used by the HMAC Generate and HMAC Verify verbs.

2018年5月3日星期四

俄國人的入口網站

https://yandex.ru

Снег, лёд и океан

地圖

https://translate.yandex.ru

翻譯

幸好網址是英文

自己做cpu 的教學

http://apollo181.wixsite.com/apollo181

APOLLO181 is a homemade didactic 4-bit CPU

made exclusively of TTL logics and bipolar memories All employed chips are described in the Bugbook® I and II, in particular the 74181 Arithmetic and Logic Unit.

內容講ㄧ個自己做cpu 的教學，及尊敬的 Dr. Peter R. Rony

Relay Computer ttl 74181

http://www.derivedlogic.com/TTL%20Processor/ttlprocessor.html

http://www.derivedlogic.com/TTL%20Processor/ttlprocessorblog.html

http://www.kswichit.com/8088kit/8088kit.htm

https://eater.net/8bit/

fpge 8086

8086 stack structure 74373

2018年5月1日星期二

圖片變形

axes Transformations translation euclidean affine homography Affine Transformation Shear
https://en.wikipedia.org/wiki/Digital_image_processing
https://en.wikipedia.org/wiki/Affine_transformation
笛卡爾座標

歐幾里德
仿射
單應
仿射
轉型
剪斷

Circle Rotate Spiral Wave warp
圈圈
旋渦
螺旋
水波
變形

https://docs.opencv.org/2.4/modules/imgproc/doc/geometric_transformations.html?highlight=warpaffine

Geometric Image Transformations

flag texture 3d Affine transformation Affine Transformation 拾人牙慧點滴

Polynomial Transformation Rubber Sheeting.
ＧＩＳ投影與反轉

https://tehnoblog.org/photoshop-tutorial-how-to-remove-image-distortion/

Warping Morphing algorithm

驗證碼 captcha Warping Morphing algorithm

2018年4月30日星期一

python 3d 統計圖表

https://matplotlib.org/index.html

https://matplotlib.org/mpl_toolkits/mplot3d/tutorial.html

Matplotlib is a Python 2D plotting library which produces publication quality figures in a variety of hardcopy formats and interactive environments across platforms. Matplotlib can be used in Python scripts, the Python and IPython shells, the Jupyter notebook, web application servers, and four graphical user interface toolkits.

python 的 3d 表格工具函式庫提供你快速產出 3d的統計圖表有有許多變的樣式，可以再多種 python script 上或是主機上

5種座標系統平行軸

Delta 水母 Cartesian 龍門 polar coordinate system 極座標系 Scara 平行軸

Delta Cartesian polar Scara cylindrical

Cartesian coordinate system

cylindrical coordinate system Cartesian coordinate system Spherical Coordinates

Meshing Coordinate Global Coordinate Systems

2018年4月28日星期六

delphi pascal rad ide open source 編輯器

"Dev-Pascal" "WOL Library" "Virtual Pascal" "CodeTyphon" "Lazarus" "Kylix" "Pascal-P compiler"

"Virtual Pascal" "CodeTyphon" "Lazarus" "OpenWire"

free pascal ide

http://wiki.freepascal.org/FPMake

List of compilers and interpreters

Best Third party components for Lazarus

Popular Open Source Delphi Projects

delphi pascal rad ide open source 編輯器

跨平台 pascal 免費編譯開發環境 (window Qt X 基礎) codetyphon lazarus delphi similar delphi development environment

https://sourceforge.net/projects/charm-pacal/

https://alternativeto.net/software/turbo-pascal/

https://alternativeto.net/software/codetyphon/

CodeTyphon Alternative pascalxe Lazarus Charm Pascal IDE

2018年4月25日星期三

捕捉DOS輸出

Thundax Output

Кодировка из Win в DOS и из DOS в Win в Delphi 2010
URL
google

function WinToDos(ASource: String): AnsiString;
var
Ch: PAnsiChar;
begin
Ch := AnsiStrAlloc(Length(ASource) + 1);
CharToOem(PChar(ASource), Ch);
Result := StrPas(Ch);
StrDispose(Ch)
end;

procedure WritelnDos(ASource: String);
begin
Writeln(WinToDos(ASource));
end;
function DosToWin(ASource: AnsiString): AnsiString;
var
Ch: PAnsiChar;
begin
Ch := AnsiStrAlloc(Length(ASource) + 1);
OemToAnsi(PAnsiChar(ASource), Ch);
Result := StrPas(Ch);
StrDispose(Ch)
end;

function DosToWin(ASource: AnsiString): String;
var
Ch: PChar;
begin
Ch := StrAlloc(Length(ASource) + 1);
OemToChar(PAnsiChar(ASource), Ch);
Result := StrPas(Ch);
StrDispose(Ch)
end;

function AsciiToAnsi(AsciiStr: string): string;
var AnsiStr: string;
begin
SetLength(AnsiStr, Length(AsciiStr));
if Length(AsciiStr) > 0 then OemToChar(PChar(AsciiStr), PChar(AnsiStr));
AsciiToAnsi:= AnsiStr;
end;

function AnsiToAscii(AnsiStr: string): string;
var AsciiStr: string;
begin
SetLength(AsciiStr, Length(AnsiStr));
if Length(AnsiStr) > 0 then CharToOem(PChar(AnsiStr), PChar(AsciiStr));
AnsiToAscii:= AsciiStr;
end;

取得系統時間效能量測

http://codingdelphi.blogspot.tw
Win32 Performance Measurement Options

The five Win32 timing functions provided by the base API (as implemented in KERNEL32.dll) are

GetTickCount,
GetSystemTime()
GetSystemTimeAsFileTime()
QueryPerformanceCounter(),
GetThreadTimes()
GetProcessTimes()
timeGetTime()

References
Java 2 Performance and Idiom Guide, Craig Larman & Rhett Guthrie, Prentice-Hall PTR, 2000.
More Effective C++, Scott Meyers, Addison-Wesley, 1996.
More Exceptional C++, Herb Sutter, Addison-Wesley, 2002.

rtc base timeer timegettime setwaitabletimer ... 最後一頁

GetTickCount function
https://msdn.microsoft.com/en-us/library/windows/desktop/ms724408%28v=vs.85%29.aspx

https://msdn.microsoft.com/en-us/library/windows/desktop/ms724411%28v=vs.85%29.aspx
timeGetTime function
https://msdn.microsoft.com/en-us/library/dd757629.aspx
ntquerytimerresolution NtSetTimerResolution
NtQuerySystemInformation function
https://msdn.microsoft.com/zh-tw/library/windows/desktop/ms724509(v=vs.85).aspx
Articles » Languages » C / C++ Language » General Timers Tutorial
https://www.codeproject.com/Articles/1236/WebControls/?fid=2345&df=90&mpp=25&sort=Position&view=Normal&spc=Relaxed&fr=101&prof=True

Acquiring high-resolution time stamps
QueryPerformanceCounter (QPC)
System.Diagnostics.Stopwatch
QueryPerformanceFrequency
Timestamp Cycle Counter (TSC) - Intel® Developer ... 64-bit register present on all x86 processors since the Pentium.

2018年4月16日星期一

檔案鏈結鏡像備份同步

mklink Winodws 建立 symbolic link

https://technet.microsoft.com/zh-tw/library/cc753194(v=ws.10).aspx

Mklink Examples.

mklink [[/d] | [/h] | [/j]]

https://msdn.microsoft.com/en-us/library/windows/desktop/aa364215(v=vs.85).aspx

File and Directory Linking

https://en.wikipedia.org/wiki/Symbolic_link

https://docs.microsoft.com/en-us/sysinternals/downloads/junction

Junction v1.07

https://docs.microsoft.com/zh-tw/sysinternals/

Windows Sysinternals

mklink

https://kb.iu.edu/d/abbe

mklink ln symlink linux mac freebsd

mklink %USERNAME% iTunes batch junction

How to move your iTunes library to a new location.

ln file

mklink 在Winodws 7 建立symbolic link | 瓶水相逢- 艾小克- 點部落

Drive Mirroring Instant Backup

file directory share Mirroring Instant Backup

https://ss64.com/nt/syntax-args.html

Command Line arguments (Parameters)

https://technet.microsoft.com/en-us/library/bb490963.aspx

windows System path Directory echo PATH variable

byte 2 bin byte array

var
a: byte;
MASK: byte;
arr : Array[0..7] of byte;
iindex : byte;
begin
a:= random($ff);
MASK := ($80-1);// ($1 shl (sizeof(a)*7) )-1
//writeln(MASK);
write('a= ');
write(a);
write('= ');
write(a div 16 );
write(',');
write(a mod 16 );
writeLn('');

//msb 1 byte to 8byte
for iindex := 7 downto 0 do
begin
if a > MASK then arr[iindex]:=1 else arr[iindex]:=0;
a:= a shl 1;
write(arr[iindex]);
end;
//writeLn('-----------');

訂閱：文章 (Atom)

2018年11月16日 星期五

2018年11月13日 星期二

2018年11月12日 星期一

2018年11月7日 星期三

2018年7月18日 星期三

2018年7月4日 星期三

2018年6月6日 星期三

2018年5月24日 星期四

2018年5月15日 星期二

2018年5月13日 星期日

2018年5月7日 星期一

2018年5月6日 星期日

2018年5月3日 星期四

地圖

2018年5月1日 星期二

2018年4月30日 星期一

2018年4月28日 星期六