FDELPHI 移転

テーマ:

@niftyのフォーラム、Delphi&Borland Users Forum (http://fdelphi.nifty.com/ )が、今日で閉鎖されることになり、その移転先が http://fdelphi.com/ となります。

ニフティから、移転するからか、ドメインが、真ん中のニフティ取れただけになります。


なるほどね。

AD

FDELPHI.INFO (トップページ)のアクセスが1000を超えました。

クローラを除いた総ページアクセスも1200を超えました。

(しかし、クローラも、色んな所から来るんですね。びっくりしました)

リファラの有るアクセスは400余くらいです。ニフが100ほど。某が250ほど。ここからが30ほどです。


昨日までの、広告収入は AとGを足して、約1200円ほどです。

ちなみに、支出はPC等が約9万円(OS、増設HDD含)。回線が予定工事費7350円、月額4000円ほど+電気代4000円ほど(これも予定)、ドメイン等年間3000円、です。

広告収入が月なんとか、1万円くらいになれば、充分賄えられるんですがね~。

目標は AもGも毎月支払い でしょうか。

AD

現在、@niftyで運営しております、「Delphi&Borland Users Forum」が、3/31をもって、@niftyのフォーラムシステムの終焉とともに、閉鎖されることになりました。


そこで、来月下旬から、この移転先として「Delphi Users' Forum」をXOOPSベースのコミュニティシステムを用いて運営することになりました。

予定としては、2月20日プレオープン。4月1日グランドオープン、という予定です。

これに先立って、昨日、1月1日に、情報提供サイトを立ち上げました。

(実際は、広告収入と、アマゾンアソシエイトを利用した、準備資金集めも兼ねてですのでその点、よろしく。)


情報提供サイトには、以下のものを用意する予定です。

1:各サーバの稼動状態などを確認 (未実装)

2:サーバ構築などの進捗状況を報告

3:関連書籍などの情報と、誰でも書き込める、「口コミ・ミニ1行レビュー」のコーナー(実装済)

4:寄付寄贈の受け付け(未実装)

5:その他


プログラミングに興味の有る人。

いまだと、TURBO DELPHIのEXPRESS版だと、無料で開発が可能です。

PASCAL(DELPHI) は、かなり覚え易い開発言語です。

簡単に「ゲーム」なども作れます。

いちど、やってみませんか。


情報サイト  http://fdelphi.info/

フォーラム  http://fdelphi.com/ 2/20プレオープン 4/1グランドオープン

ライブラリ  http://fdelphi.net/ 3月下旬オープン予定





ごくかんたんな 英数記号のみで、コントロールコード(#00~#1F)を使用していない場合のマクロです。

Private Function NumCvt(ByVal A As Integer) As String
If A < 95 Then
NumCvt = Chr(A + 32)
Else
NumCvt = Chr(A + 96)
End If
End Function
Function Code128A(Text As String) As String
R = 104
S = NumCvt(R)
C = Len(Text)
For I = 1 To C
L = Asc(Mid(Text, I, 1)) - 32
R = R + L * I
S = S & NumCvt(L)
Next
Code128A = S & NumCvt(R Mod 103) & NumCvt(106)
End Function


という感じです。


フォントは以下でご購入ください。

PSネットワーク
バーフォント Code128

Xoops備忘録

テーマ:

ここ何日かで気付いたことですが。

xreaでxoopsをインストールしていたところ、「コメント」のタイトルのみ文字化けという症状に出くわしました。

PHPのmbstring系が悪さしていたようで、httpdもapacheだそうなので、.htaccessでのコントロールをすることにしました。


追加するオプションは

php_flag register_globals OFF
php_value default_charset EUC-JP
php_value mbstring.language Japanese
php_flag mbstring.encoding_translation ON
php_value mbstring.detect_order ASCII,JIS,EUC-JP,SJIS,UTF-8
php_value mbstring.internal_encoding EUC-JP
php_value mbstring.http_input auto
php_value mbstring.http_output pass
php_value mbstring.substitute_character none
php_value output_handler none

です。

以上でその症状は直りました。

が、.htaccessファイルを置く場所をルートにしてしまったから大変。

別のサブディレクトリで運用していた SJISのコンテンツが 文字化けです。


いやぁ、大笑いでしたけど。

C++Builder6 実用プログラミング  井上勉著


psnetworkの新品出品物に2種類追加。

 実用プログラミングのBCB4/5/6 および基礎プログラミングのディスクサービス(CD-R)付属版。

 デルマガ特製ノート付属版

また、送料を含めて定価になるようにしている「ほぼ新品」版は、基本的には新品です。近い将来、取次から返品が返ってくればわかりませんが、8/22現在の在庫は全部新品しかないもんで・・・。


C++Builder6 基礎プログラミング  諸農和岳著


psnetworkの新品出品物に2種類追加。

 実用プログラミングのBCB4/5/6 および基礎プログラミングのディスクサービス(CD-R)付属版。

 デルマガ特製ノート付属版

送料を含めて定価になるようにしている「ほぼ新品」版は、取次ぎからの返品分です。が、カバーが痛んでいるものに関しては、カバーを新品に巻き直しています。


あとで、ディスクサービスを購入するよりも、アマゾンの送料分だけでCDがゲットできるので、便利ですよ。

もちろん、デルマガサイトから、ダウンロードも出来ます。

http://ameblo.jp/lerx/entry-10014038630.html のモノですが、ほぼ、完成しました。

これから、マニュアルの作成です。


VBAのサンプルは、


Function CH(X As Integer) As String
If X < 95 Then
CH = Chr(32 + X)
Else
CH = Chr(96 + X)
End If
End Function
Function TOUCC(Value As String) As String
Dim C(100) As Integer, I As Integer, T As Integer, S As String
A = Len(Value)
If A = 44 Then
S = CH(105)
C(0) = 102
For I = 1 To 43 Step 2
C((I + 1) / 2) = Mid(Value, I, 2)
Next
T = 105
For I = 0 To 22
S = S & CH(C(I))
T = T + (I + 1) * C(I)
Next
I = T Mod 103
S = S & CH(I) & CH(106)
Else
S = "***ERROR"
End If
TOUCC = S
End Function


となります。


EXCELでの使い方は、例えばA1に44桁の数字文字列を入力し、B1セルに、


=TOUCC(A1)


とすることで、変換が可能です。


フォントは9800円+税(税込10240円)とする予定です。