Xbase

dBXL2001年問題

ARAGOの開発メーカSPCのHOME PAGE

DATABASE USERS GROUPのBBS

ARAGO関係の私的BBS

ここの住人のHOME PAGE

Arago Tips


AragoWやAragoIの便利なテクニックを紹介します。


UNLHA32.DLLを使った圧縮/解凍をAragoから制御する
*//UNLHA32.DLLで圧縮を行う 
EXTERN CINT Unlha(CHANDLE,CSTRING,CSTRING,CWORD) UNLHA32.dll 
whand=0 
cmdline="a Backup *.dbf"  && ここにLHAのコマンドを書く! 
output="" 
size=255 
rt=UNLHA(whand,cmdline,output,size)

 

AragoIでテンポラリdBFの作成
*//テンプレート的に使用するdbf 
Use WebZaiko.dbf in Select() Alias WebTmp 

*//ユニークなテンポラリファイル名を付ける 
TempDBF1=FUniq("_tmp????.dbf")  && お好みに合わせて(笑) 

*//テンプレートより、上記のテンポラリファイル名のdbfを作成 
Select WebTmp 
Copy Stru to &TempDBF1. 
Use in WebTmp 

*//テンポラリdbfをNosaveモードで開ける 
Use &TempDBF1. in Select() Alias ZAIKO Exclusive Nosave 

*(以下必要な処理をコーディング) 
*CGI終了後自動でテンポラリファイルは削除される。


 

AragowでInternet接続環境を調査する
#define INTERNET_CONNECTION_MODEM       "1"
#define INTERNET_CONNECTION_LAN         "2"
#define INTERNET_CONNECTION_PROXY       "4"
*
#define INTERNET_RAS_INSTALLED         "10"
#define INTERNET_CONNECTION_OFFLINE    "20"
#define INTERNET_CONNECTION_CONFIGURED "40"

Extern CLONG InternetGetConnectedState(CSTRING,CWORD);                                              "WININET.DLL"

State = space(1)
InternetGetConnectedState(STATE,0)
STATE_L = LEFT(ITOH(asc(STATE)),1)
STATE_R = RIGH(ITOH(asc(STATE)),1)

IF STATE_L=LEFT(INTERNET_CONNECTION_CONFIGURED,1)
   ? "インターネット接続環境なし!"
ELSE
   DO CASE
   CASE STATE_R=INTERNET_CONNECTION_MODEM
      ? "モデムで接続中"
   CASE STATE_R=INTERNET_CONNECTION_LAN
      ? "LANで接続中"
   CASE STATE_R=INTERNET_CONNECTION_PROXY
      ? "プロキシ経由で接続中"
   OTHERWISE
      ? "現在接続されていません"
   ENDCASE
   *
   DO CASE 
   CASE STATE_L=LEFT(INTERNET_RAS_INSTALLED,1)
      ? "ダイヤルアップがインストールされています"
   CASE STATE_L=LEFT(INTERNET_CONNECTION_OFFLINE,1)
      ? "オフライン"
   OTHERWISE
      ? "オンライン"
   ENDCASE
ENDIF