============================================================================
y^CgzICJ[hiFelicajǂݎR|[lg
yo ^ zFliCaLibV.ZIP
yt@CzFliCaLibV.pas
yҖzVRAM̖pt
yzDOS/V@ + Delphi5.0
yzWindows2000/XP/Vista/Windows7
yT|[gzhttp://www14.atwiki.jp/vram/
============================================================================

yTvz

݂ȂICJ[hĂ܂H
dԂoXɏƂɎgAXRrjg肵Ă܂񂩁H
ICJ[hiFeliCaj̏ǂݎ邱Ƃł
FX낢Ƃł邩܂B

Ƃ΃AvP[V̋NICJ[hŐ
cgp\Ag͗lXłB

ȒPɎgƂł܂̂ňxB

ygiҁjz-----------------------------------------------------------

̃NXgp邽߂ɂFeliCaJ[h[_[(Pasori)KvłB
Pasorip\R{̂ɐڑAhCoCXg[Ώ͊łB

ȂJ[h[_[PasorîݑΉĂAp\R{̂ɓĂ
J[h[_[ɂ͑ΉĂ܂B

ƃTvvOɂStationCode.mdb܂܂Ă܂B
͉wf[^x[XꂽAccesst@CłB
TvvOɂĉw\ɂStationCode.mdbKvłB

͎͂œ肵ATvvOƓtH_ɒu
gƂł܂B

ICJ[hɂ̓J[h^Cv̂قAgѓdbɂĂ܂B
gѓdb̏ꍇICJ[hɓdĂ邽ߊx͂悢ł
ICJ[h̏ꍇ͉w̉D芴xႭpXP[XɓĂ
Ȃꍇ܂B

ygivOҁjz------------------------------------------------------

tH[̃vCx[gϐƂĐ錾܂B

    FFericaLib : TFelicaLibV;            // FelicaǂݎNX

ɃtH[̐CxgŃNX𐶐܂B
  FFericaLib := TFelicaLibV.Create;
  FFericaLib.OnGetCardInfo := OnGetCardInfo;
  FFericaLib.OnGetSuicaHist := OnGetSuicaHist;

FeliCaJ[h̓ǂݎɂ͎Ԃ邽
ǂݎ芮Cxg`܂B

ƂFeliCaJ[h[_[gpJn܂B
  FFericaLib.Open

̌AFeliCaJ[hJ[h[_[ɂ
uOnGetCardInfovCxg܂̂
̃Cxgŏs܂B

procedure OnGetCardInfo(Sender: TObject; Info: TFelicaCardInfo);
  J[hǂݎCxgłB
  ǂݎInfo.IDmInfo.PMmɊi[܂B
  i[ICJ[h̎ʔԍłB
  ICJ[h̎ʔԍ͂PƂē݂̂͑܂B
  ̔ԍǗAvP[V쐬
  NbNȂǂs܂B

FeliCaJ[hɋL^Ăgpc𓾂ɂ
uReadSuicaHist()v\bhgp܂B

̃\bhgpꍇ
uOnGetSuicaHistvCxg񂩔܂B
CxgStatusŏ󋵂𔻒f܂B

hsStart --> hsBusy  -> hsBusy (15)-> hsFinish
        +-> hsError

Jnɓǂݎُ킪ꍇhsErrorƂ
Cxg܂B

hsFinishԂSuicaHistvpeBɎgp܂B
SuicaHistɂ͗lXȏ񂪂邽߁AЉ܂B

TvvO\[XQlɂĂB

yvpeBE\bhz------------------------------------------------------

  Ԃ肻Ȃ̂ŕۗ

yƂz----------------------------------------------------------------

  FeliCaJ[h[_wAЂw
  Ƃɂ񂪔ɏȂJȃNX̂PłB
  
  JɋJFaliCa.DLLœ삷Ƃ̂ɂȂ܂B
  
  AFliCa.DLL̂ɈÂ炢ƂȂĂ܂B
  ɓǂݎJnbƁuǂݎȂvƂG[Ԃdg݂
  ɖʓ|łB
  
  񂪕Ԃ邽ߌJԂĂ̂łAǂݎ蒆̂ݓ_
  kdcbotׂ㏸Ə邱ƂƂȂƂɂȂ܂B
  
  ܂ƔɏdvÔƂȂ̂łCuFeliCa
  ނƂ͂ł܂B
  ƈÍꂽ̎擾ɂΉĂ܂B
  
  L̏sꍇSonyƎgp_sKvȂǍɂ߂܂B
  i܂ł̏Kvȏʂ͂ȂƎv܂j
  
  ̃NXƊgƂȐl܂AB

  Ȃ̃NX́AJ傪Ȃ̂̂P̃p[cɂȂ\łB

yzzȂǁz------------------------------------------------------------

̃NX̎gp@ɂ͓ɐ͂܂B
VFAEGA^t[\tgނ킸gݍŒĂ܂܂B
܂AvP[Ṽ\[XJĂꍇÃ\[Xtč\܂
ɕsȂǂgpґŉςꍇł̉ό̃\[Xzz
Ė͂܂B
\łΎ̖OڂĂΌhłB

yz--------------------------------------------------------------------

2010/01/11
  J
