aragowの印刷ダイアログを非表示にする
ドキュメント名を変えて印刷する
dllです
ダウンロード1 ダウンロード22008.5.29不具合を直しましたデフォルトプリンタに設定されます
2008.5.29リターンキーを押す方法ですSET PRINTER TOを使う場合はこっちかな
EXTERN CDECL CINT returndefault01(CVOID) print001.dll
EXTERN CDECL CINT hookstartdoc01(CVOID) print001.dll
EXTERN CDECL CLONG gethookdc01(CVOID) print001.dll
EXTERN CDECL CINT startdoc01(CLONG,CSTRING) print001.dll
EXTERN CDECL CINT AbortDoc(CLONG) gdi32.DLL
EXTERN CDECL CINT StartPage(CLONG) gdi32.DLL
EXTERN CDECL CINT EndPage(CLONG) gdi32.DLL
EXTERN CDECL CINT EndDoc(CLONG) gdi32.DLL
returndefault01()
*↑を入れると印刷ダイアログが非表示になります
hookstartdoc01()
PRINT FORM form01
stor gethookdc01() to hDC01
AbortDoc(hDC01)
startdoc01(hDC01,'ドキュメント01')
描画
PRINT FORM
EndDoc(hDC01)
startdoc01(hDC01,'ドキュメント02')
描画
PRINT FORM
EndDoc(hDC01)
・
・
・
startdoc01(hDC01,'ドキュメント03')
描画
PRINT FORM
PRINT FORM END
と使います
Cookieの読み書きDLLです
ダウンロード1 ダウンロード2 ダウンロード32010.1.1 %と日本語だけエンコードデコードするように直しました
こっちはエンコードデコードなしのものです
*Cookieの読み書きDLLです(charset=Shift_JIS)
SET COMPATIBLE OFF
EXTERN CDECL CSTRING recvcookie(CSTRING) cookie001.dll
EXTERN CDECL CVOID sendcookie(CSTRING) cookie001.dll
STORE space(6000) to recv01
store recvcookie(recv01) to recv01
IF LEN(recv01)=0
STORE 'ありませんもう一度アクセスすると・・・' TO recv01
endi
output('Content-type: text/html; charset=Shift_JIS',1)
*output('Set-Cookie: name=123abc',1)
*store 'NAME=tanaka日本語; expires=Fri, 31-Dec-2010 23:59:59 GMT' to send01
*STORE 'name=123abc東京特許許可局; max-age=180' TO send01
STORE 'name=123abc東京特許許可局' TO send01
sendcookie(send01)
output('',1)
output('<html><head><title>Cookieの読み書き</title></head><body>',1)
output('このcgiから送ったcookieは<br>',1)
output(send01,1)
output('<br>です<br>',1)
output('あなたから送り返されたcookieは<br>',1)
output(recv01,1)
output('<br>です</body></html>',1)
*Cookieの読み書きDLLです(charset=UTF-8)
SET COMPATIBLE OFF
EXTERN CDECL CSTRING recvcookie(CSTRING) cookie001.dll
EXTERN CDECL CVOID sendcookieutf(CSTRING) cookie001.dll
EXTERN CDECL CSTRING shift_to_utf(CSTRING,CSTRING) cookie001.dll
STORE space(6000) to recvutf01
store recvcookie(recvutf01) to recvutf01
IF LEN(recvutf01)=0
STORE space(1000) to recvutf01
STORE shift_to_utf('ありませんもう一度アクセスすると・・・',recvutf01) TO recvutf01
endi
output('Content-type: text/html; charset=UTF-8',1)
*output('Set-Cookie: name=123abc',1)
*store 'NAME=tanaka日本語; expires=Fri, 31-Dec-2010 23:59:59 GMT;' to send01
STORE 'name=123abc東京特許許可局' TO send01
store space(1000) to sendutf01
store shift_to_utf(send01,sendutf01) to sendutf01
sendcookieutf(sendutf01)
output('',1)
outpututf('<html><head><title>Cookieの読み書き</title></head><body>')
outpututf('このcgiから送ったcookieは<br>')
output(sendutf01,1)
outpututf('<br>です<br>')
outpututf('あなたから送り返されたcookieは<br>')
output(recvutf01,1)
outpututf('<br>です</body></html>')
func outpututf
para output01
store space(1000) to outpututf01
store shift_to_utf(output01,outpututf01) to outpututf01
output(outpututf01,1)
retu .t.
CryptoAPIによる暗号復号dllです
ダウンロード1 ダウンロード2EXTERN CDECL CSTRING text_to_crypto(CSTRING,CSTRING,CSTRING) crypto001.dll
EXTERN CDECL CSTRING crypto_to_text(CSTRING,CSTRING,CSTRING) crypto001.dll
set talk off
set compatible off
clear
STORE '12345abcde日本語' TO string02
? string02
? LEN(string02)
STORE SPACE(1000) TO string03
*パスワード、平文_to_暗号
STORE text_to_crypto('123abc',string02,string03) TO string03
? string03
? LEN(string03)
STORE string03 TO string02
STORE SPACE(1000) TO string03
*パスワード、暗号_to_平文
STORE crypto_to_text('123abc',string02,string03) TO string03
? string03
? LEN(string03)
exeファイルのバージョン情報（プロパティ）書き込み
ダウンロード1*exeファイルのバージョン情報（プロパティ）書き込み
*Borland C++ Compiler（無料）をインストールする
*バージョン情報を書き込むファイル名を間違えないように
file01="sample.exe"
FILEVERSION_INFO="2,2,3,4"
PRODUCTVERSION_INFO="6,6,7,8"
FileDescription="説明だよー"
LegalCopyright="著作権だよー"
FileVersion="ファイルバージョンだよー"
CompanyName="会社名だよー"
OriginalFilename="正式ファイル名だよー"
ProductVersion="製品バージョンだよー"
ProductName="製品名だよー"
InternalName="内部名だよー"
do setresource
proc setresource
SET TALK OFF
SET ALTERNATE TO temp@@@.rc
SET ALTERNATE ON
?? '#include <winver.h>'
? 'VS_VERSION_INFO VERSIONINFO'
*? 'FILEVERSION 1,2,3,4'
? 'FILEVERSION '+FILEVERSION_INFO
*? 'PRODUCTVERSION 5,6,7,8'
? 'PRODUCTVERSION '+PRODUCTVERSION_INFO
? 'FILEFLAGSMASK VS_FFI_FILEFLAGSMASK'
? 'FILEFLAGS 0x00000000L'
? 'FILEOS VOS__WINDOWS32'
? 'FILETYPE VFT_APP'
? 'FILESUBTYPE VFT2_UNKNOWN'
? 'BEGIN'
? ' BLOCK "VarFileInfo"'
? ' BEGIN'
? ' VALUE "Translation", 0x411, 1200'
? ' END'
? ' BLOCK "StringFileInfo"'
? ' BEGIN'
? ' BLOCK "041104b0"'
? ' BEGIN'
? ' VALUE "FileDescription","'+FileDescription+'\0"'
? ' VALUE "LegalCopyright","'+LegalCopyright+'\0"'
? ' VALUE "FileVersion","'+FileVersion+'\0"'
? ' VALUE "CompanyName","'+CompanyName+'\0"'
? ' VALUE "OriginalFilename","'+OriginalFilename+'\0"'
? ' VALUE "ProductVersion","'+ProductVersion+'\0"'
? ' VALUE "ProductName","'+ProductName+'\0"'
? ' VALUE "InternalName","'+InternalName+'\0\0\0\0\0\0"'
? ' END'
? ' END'
? 'END'
? ''
SET ALTERNATE OFF
SET ALTERNATE TO
RUN C:\borland\bcc55\Bin\brc32.exe temp@@@.rc &file01
retu
上記のバージョン情報（プロパティ）の読み込みgetversion001.dllを使います
ダウンロード1 ダウンロード2 ダウンロード3*exeファイルのバージョン情報（プロパティ）読み込み
*getversion001.dllを使います
set talk off
set lang to american
EXTERN CDECL CSTRING getversion(CSTRING,CSTRING,CSTRING) getversion001.dll
*言語が日本語Windows Multilingualの場合
*EXTERN CDECL CSTRING getversionj(CSTRING,CSTRING,CSTRING) getversion001.dll
*言語が英語（米国）の場合
*EXTERN CDECL CSTRING getversione(CSTRING,CSTRING,CSTRING) getversion001.dll
*言語がニュートラル言語の場合
*EXTERN CDECL CSTRING getversionn(CSTRING,CSTRING,CSTRING) getversion001.dll
store 'sample.exe' to file01
STORE SPACE(1000) TO string01
stor getversion(file01,'FILEVERSION_INFO',string01) to string01
? string01
? LEN(string01)
STORE SPACE(1000) TO string01
stor getversion(file01,'PRODUCTVERSION_INFO',string01) to string01
? string01
? LEN(string01)
STORE SPACE(1000) TO string01
stor getversion(file01,'FileDescription',string01) to string01
? string01
? LEN(string01)
STORE SPACE(1000) TO string01
stor getversion(file01,'LegalCopyright',string01) to string01
? string01
? LEN(string01)
STORE SPACE(1000) TO string01
stor getversion(file01,'FileVersion',string01) to string01
? string01
? LEN(string01)
STORE SPACE(1000) TO string01
stor getversion(file01,'CompanyName',string01) to string01
? string01
? LEN(string01)
STORE SPACE(1000) TO string01
stor getversion(file01,'OriginalFilename',string01) to string01
? string01
? LEN(string01)
STORE SPACE(1000) TO string01
stor getversion(file01,'ProductVersion',string01) to string01
? string01
? LEN(string01)
STORE SPACE(1000) TO string01
stor getversion(file01,'ProductName',string01) to string01
? string01
? LEN(string01)
STORE SPACE(1000) TO string01
stor getversion(file01,'InternalName',string01) to string01
? string01
? LEN(string01)
urlエンコードデコード（日本語だけエンコードしています）
ダウンロード1 ダウンロード2EXTERN CDECL CSTRING urlencode(CSTRING,CSTRING) encode001.dll
EXTERN CDECL CSTRING urlencodeutf(CSTRING,CSTRING) encode001.dll
EXTERN CDECL CSTRING urldecode(CSTRING,CSTRING) encode001.dll
EXTERN CDECL CSTRING shift_to_utf(CSTRING,CSTRING) encode001.dll
EXTERN CDECL CSTRING utf_to_shift(CSTRING,CSTRING) encode001.dll
EXTERN CDECL CINT lenutf(CSTRING) encode001.dll
EXTERN CDECL CSTRING substrutf(CSTRING,CINT,CINT,CSTRING) encode001.dll
EXTERN CDECL CVOID dispshift(CSTRING) encode001.dll
EXTERN CDECL CVOID disputf(CSTRING) encode001.dll
EXTERN CDECL CVOID dbgviewshift(CSTRING) encode001.dll &&Dbgview.exe用
EXTERN CDECL CVOID dbgviewutf(CSTRING) encode001.dll &&Dbgview.exe用
set talk off
set compatible off
SET LANGUAGE TO AMERICAN
STORE '12345abcde日本語' TO string01
? '<元の文字列>'
? string01
STORE SPACE(1000) TO string02
STORE urlencode(string01,string02) TO string02
? '<urlエンコード> '
? string02
STORE string02 TO string01
STORE SPACE(1000) TO string02
STORE urldecode(string01,string02) TO string02
? '<urlデコード>'
? string02
STORE '12345abcde日本語' TO string01
STORE SPACE(1000) TO string02
STORE shift_to_utf(string01,string02) TO string02
? '<utf-8に変換>'
? string02
*disputf(string02)
dbgviewutf(string02)
? '文字数'+str(LEN(string02))
? 'utfとしての文字数'+str(lenutf(string02))
STORE string02 TO string01
STORE SPACE(1000) TO string02
STORE urlencodeutf(string01,string02) TO string02
? '<utf-8のurlエンコード> '
? string02
? '文字数'+str(LEN(string02))
STORE SPACE(1000) TO string02
STORE substrutf(string01,10,3,string02) TO string02
? '<utf-8のSUBSTR()>'
? string02
*disputf(string02)
dbgviewutf(string02)
? '文字数'+str(LEN(string02))
? 'utfとしての文字数'+str(lenutf(string02))
STORE string02 TO string01
STORE SPACE(1000) TO string02
STORE urlencodeutf(string01,string02) TO string02
? '<utf-8のurlエンコード> '
? string02
? '文字数'+str(LEN(string02))
STORE string02 TO string01
STORE SPACE(1000) TO string02
STORE urldecode(string01,string02) TO string02
? '<utf-8のurlデコード>'
? string02
*disputf(string02)
dbgviewutf(string02)
STORE string02 TO string01
STORE SPACE(1000) TO string02
STORE utf_to_shift(string01,string02) TO string02
? '<shift_jisに変換>'
? string02
? '文字数'+str(LEN(string02))
aragoiとaragowとでHTTPサーバーを介してのデータの送受信http001.dllを使います
ダウンロード1 ダウンロード2 ダウンロード3注意2010.3.1resvsockfileに4番目の引数タイムアウト（秒）を付けました
*server.prg（aragoiで実行する）
*aragoiから送信する
set language to american
set compatible off
*HTTPファイルを表示させる場合
store 'index.htm' to file01
store 'text/html' to mime01
*ファイルをダウンロードさせる場合
*store 'sample.doc' to file01
*store 'text/plain' to mime01
do sendfile
proc sendfile
stor fsize(file01) to length01
if length01>0
STORE ltrim(STR(length01)) TO length
output('Content-Length: '+length)
if mime01='text/html'
foutput(file01,mime01)
else
output('Content-Disposition: attachment; filename='+file01)
foutput(file01,mime01)
endi
endi
retu
*client1.prg（aragowで実行します）
*http001.DLLを使います
*テキストファイルを受信する場合
set talk off
set language to american
set compatible off
clear
EXTERN CDECL CINT opensock(CSTRING,CINT) http001.dll
EXTERN CDECL CINT sendsock(CINT,CSTRING) http001.dll
EXTERN CDECL CINT recvsockoneline(CINT,CSTRING) http001.dll
*4番目の引数はタイムアウト（秒）です
EXTERN CDECL CLONG recvsockfile(CINT,CSTRING,CLONG,CINT) http001.dll
EXTERN CDECL CINT closesock(CINT) http001.dll
STORE 'www2.odn.ne.jp' TO domain01
STORE 'http://www2.odn.ne.jp/merrybelle/index.htm' TO download01
*STORE '192.168.0.60' TO domain01
*STORE '/aragoi/aragoi.exe?server.prg' TO download01
DO download
PROCEDURE download
stor opensock(domain01,80) to sock
IF sock>0
sendsock(sock,'GET '+download01+' HTTP/1.0'+CHR(10))
sendsock(sock,CHR(10))
STORE 0 TO length01
do while .t.
STORE SPACE(1000) TO string01
STORE recvsockoneline(sock,string01) TO n
if n<=0
exit
endi
* ? subs(string01,1,n)
IF n>15
IF SUBSTR(string01,1,15)='Content-Length:'
STORE VAL(SUBSTR(string01,16,n-15)) TO length01
endi
endi
endd
if n>=0
store 0 to n01
do while .t.
STORE SPACE(1000) TO string01
STORE recvsockoneline(sock,string01) TO n
if n<0
exit
endi
store n01+n To n01
? subs(string01,1,n)
endd
endi
closesock(sock)
ENDIF
RETURN
*client.prg（aragowで実行します）
*http001.DLLを使います
*ファイルにダウンロードする場合
set talk off
set language to american
set compatible off
clear
EXTERN CDECL CINT opensock(CSTRING,CINT) http001.dll
EXTERN CDECL CINT sendsock(CINT,CSTRING) http001.dll
EXTERN CDECL CINT recvsockoneline(CINT,CSTRING) http001.dll
*4番目の引数はタイムアウト（秒）です
EXTERN CDECL CLONG recvsockfile(CINT,CSTRING,CLONG,CINT) http001.dll
EXTERN CDECL CINT closesock(CINT) http001.dll
EXTERN CDECL CSTRING md5checksum(CSTRING,CSTRING) http001.dll
STORE 'merrybelle.sub.jp' TO domain01
STORE 'https://merrybelle.sub.jp/argyubin.dbf' TO download01
*STORE '192.168.0.60' TO domain01
*STORE '/aragoi/aragoi.exe?server.prg' TO download01
STORE 'test.tmp' TO file01
DO download
store space(100) to string01
? md5checksum(file01,string01)
PROCEDURE download
stor opensock(domain01,80) to sock
IF sock>0
sendsock(sock,'GET '+download01+' HTTP/1.0'+CHR(10))
sendsock(sock,CHR(10))
STORE 0 TO length01
do while .t.
STORE SPACE(1000) TO string01
STORE recvsockoneline(sock,string01) TO n
if n<=0
exit
endi
* ? subs(string01,1,n)
IF n>15
IF SUBSTR(string01,1,15)='Content-Length:'
STORE VAL(SUBSTR(string01,16,n-15)) TO length01
endi
endi
endd
*4番目の引数はタイムアウト（秒）です
STORE recvsockfile(sock,file01,length01,10) TO n
closesock(sock)
STORE fsize(file01) TO length02
IF length01>0 .and. (length01=n .and. length01=length02)
? str(length02)+'Byteダウンロード完了しました'
else
? 'ダウンロードに失敗しました'
endi
ENDIF
RETURN
aragowからaragoiにファイルをアップロードする
*getput.prg（aragoiで実行します）
*aragoiでファイルを受信する
EXTERN CDECL CSTRING md5checksum(CSTRING,CSTRING) http001.dll
id=GETFORM('id01')
password=GETFORM('password01')
string01=space(100)
if id='user' .and. password='password'
file01='test.tmp'
GETPUT('test',file01)
string01=md5checksum(file01,string01)
endi
output('Content-type: text/html',2)
output(string01)
*client2.prg（aragowで実行します）
*http001.DLLを使います
*ファイルをアップロードする場合
set talk off
set language to american
set compatible off
clear
EXTERN CDECL CINT opensock(CSTRING,CINT) http001.dll
EXTERN CDECL CINT sendsock(CINT,CSTRING) http001.dll
EXTERN CDECL CLONG sendsockfile(CINT,CSTRING,CLONG,CINT) http001.dll
EXTERN CDECL CINT recvsockoneline(CINT,CSTRING) http001.dll
EXTERN CDECL CLONG recvsockfile(CINT,CSTRING,CLONG,CINT) http001.dll
EXTERN CDECL CINT closesock(CINT) http001.dll
EXTERN CDECL CSTRING md5checksum(CSTRING,CSTRING) http001.dll
EXTERN CDECL CSTRING base64encode(CSTRING,CSTRING) http001.dll
STORE '192.168.0.60' TO domain01
STORE '/aragoi/aragoi.exe?getput.prg' TO upload01
stor 253 to length01
store 'user' to id01
store 'password' to password01
*アップロードするファイル
store 'sample.doc' to file01
stor fsize(file01) to length02
store length01+len(id01)+len(password01)+length02 to length01
STORE ltrim(STR(length01)) TO length
DO upload
PROCEDURE upload
stor opensock(domain01,80) to sock
IF sock>0
sendsock(sock,'POST '+upload01+' HTTP/1.0'+CHR(10))
sendsock(sock,'Content-Type: multipart/form-data; boundary=*a*2*s*5*d*8*'+CHR(10))
* Content-Length: を正確に設定すること
sendsock(sock,'Content-Length: '+length+CHR(10))
sendsock(sock,CHR(10))
sendsock(sock,'--*a*2*s*5*d*8*'+CHR(10))
sendsock(sock,'Content-Disposition: form-data; name="id01"'+CHR(10))
sendsock(sock,CHR(10))
sendsock(sock,id01+CHR(10))
sendsock(sock,'--*a*2*s*5*d*8*'+CHR(10))
sendsock(sock,'Content-Disposition: form-data; name="password01"'+CHR(10))
sendsock(sock,CHR(10))
sendsock(sock,password01+CHR(10))
sendsock(sock,'--*a*2*s*5*d*8*'+CHR(10))
sendsock(sock,'Content-Disposition: form-data; name="test"; filename="dummy"'+CHR(10))
sendsock(sock,'Content-Type: text/plain'+CHR(10))
sendsock(sock,CHR(10))
sendsockfile(sock,file01,length02,10)
sendsock(sock,CHR(10))
sendsock(sock,'--*a*2*s*5*d*8*--'+CHR(10))
do while .t.
STORE SPACE(1000) TO string01
STORE recvsockoneline(sock,string01) TO n
if n<=0
exit
endi
* ? subs(string01,1,n)
endd
store '' to string03
if n>=0
store 0 to n01
do while .t.
STORE SPACE(1000) TO string01
STORE recvsockoneline(sock,string01) TO n
if n<0
exit
endi
store n01+n To n01
? subs(string01,1,n)
store subs(string01,1,n) to string03
endd
endi
closesock(sock)
store space(100) to string02
store md5checksum(file01,string02) to string02
? string02
if string03=string02
? 'アップロード完了しました'
else
? 'アップロードに失敗しました'
endi
ENDIF
RETURN
Entryfieldを全選択にするkeybd001.dllを使います
rtlentry.prg右から左への入力setsub01()で設定しclrsub01()で解除します必ずセットで使うこと
rtlentry1.prgは文字型です
ダウンロード1 ダウンロード2 ダウンロード3 ダウンロード4EXTERN CDECL CVOID setselect(CVOID) keybd001.dll
EXTERN CDECL CVOID sethome(CVOID) keybd001.dll
EXTERN CDECL CVOID setend(CVOID) keybd001.dll
EXTERN CDECL CVOID setret(CVOID) keybd001.dll
EXTERN CDECL CVOID rmclosebtn(CVOID) keybd001.dll
EXTERN CDECL CVOID maximize(CVOID) keybd001.dll
EXTERN CDECL CSTRING getphonetic(CSTRING) keybd001.dll
*Entryfieldを全選択にする
EXTERN CDECL CVOID setselect(CVOID) keybd001.dll
*×ボタンを灰色にして無効にする
EXTERN CDECL CVOID rmclosebtn(CVOID) keybd001.dll
*パネルを最大化する
EXTERN CDECL CVOID maximize(CVOID) keybd001.dll
*
*
*
*DEFINE ENTRYFIELDにPROLOGUE selectall などとPROLOGUEを入れる
rmclosebtn()
maximize()
ACTIVATE PANEL PANEL01 MODAL
*:************************************************************
func selectall
setselect()
retu .t.
半角全角変換hantozen001.dllを使います
ダウンロード1 ダウンロード2 ダウンロード3 ダウンロード4EXTERN CDECL CSTRING han_to_zen(CSTRING,CSTRING) hantozen001.dll
EXTERN CDECL CSTRING trimhan(CSTRING,CSTRING) hantozen001.dll
EXTERN CDECL CSTRING zen_to_han(CSTRING,CSTRING) hantozen001.dll
EXTERN CDECL CSTRING trimzen(CSTRING,CSTRING) hantozen001.dll
EXTERN CDECL CSTRING hira_to_kata(CSTRING,CSTRING) hantozen001.dll
EXTERN CDECL CSTRING hira_to_han(CSTRING,CSTRING) hantozen001.dll
EXTERN CDECL CSTRING kata_to_hira(CSTRING,CSTRING) hantozen001.dll
*ATOK 2007 Win32APIはや
EXTERN CDECL CSTRING kanji_to_han(CSTRING,CSTRING) hantozen001.dll
*IME 2007 COMインターフェイスおそ
EXTERN CDECL CSTRING kanji_to_kana(CSTRING,CSTRING) hantozen001.dll
*kanji_to_kanaでopenとcloseを分けたもの下記のように使います
EXTERN CDECL CLONG openife(CVOID) hantozen001.dll
EXTERN CDECL CSTRING getife(CLONG,CSTRING,CSTRING) hantozen001.dll
EXTERN CDECL CVOID closeife(CLONG) hantozen001.dll
set talk off
STORE '。「」、・ヲァィア゛オ゛ゥェォャｳﾞメモ田中ュョッー鈴木ｷｹｺｻｼｽセあ゛Acああ゜ソタﾀﾞﾁﾞﾂﾞツレロワン゛゜' TO a
STORE SPACE(200) TO a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12
? '【元】'
? a
? '【全角に】'
stor han_to_zen(a,a1) to a1
? a1
? '【半角を削除】'
stor trimhan(a,a2) to a2
? a2
? '【半角に】'
stor zen_to_han(a,a3) to a3
? a3
? '【全角を削除】'
stor trimzen(a,a4) to a4
? a4
? '【カタカナに】'
stor hira_to_kata(a,a5) to a5
? a5
? '【半角カタカナに】'
stor hira_to_han(a,a6) to a6
? a6
? '【ひらがなに】'
stor kata_to_hira(a,a7) to a7
? a7
? '【漢字を半角に】'
stor kanji_to_han(a,a8) to a8
? a8
? '【漢字をかなに】'
stor kanji_to_kana(a,a9) to a9
? a9
? kanji_to_han('千葉県浦安市舞浜 東京ディズニーランド',a10)
? kanji_to_kana('千葉県浦安市舞浜 東京ディズニーランド',a11)
*getife()を使う場合は1回だけ初めにopenife()を終わりにcloseife()を使います
store openife() to ife01
use argyubin.dbf
stor 1 to c
do while c<=10
stor space(200) to a12
*ここのように繰り返すときはgetife()が速いです
stor getife(ife01,trim(data3),a12) to a12
? a12
skip
stor c+1 to c
endd
closeife(ife01)
aragowの印刷ダイアログを非表示にする
ダウンロード1 ダウンロード2 ダウンロード3EXTERN CDECL CVOID directprn(CSTRING,CINT,CINT,CINT,CINT) directprn001.dll
*("プリンタ名",PAPERSIZE,ORIENTATION,DUPLEX,印刷ダイアログ0非表示1表示)
*directprn(char * printername01,int papersize01,int orientation01,int duplex01,int dlg01)
directprn("",9,1,2,0)
PRINT FORM form01
PRINT FORM
PRINT FORM END
*プリンタ名 ""はデフォルト
*用紙サイズ 0はデフォルト
*DMPAPER_A3 = 8
*DMPAPER_A4 = 9
*DMPAPER_A4SMALL = 10
*DMPAPER_A5 = 11
*DMPAPER_B4 = 12
*DMPAPER_B5 = 13
*DMPAPER_JAPANESE_POSTCARD = 43
*用紙方向 0はデフォルト
*DMORIENT_PORTRAIT = 1
*DMORIENT_LANDSCAPE = 2
*両面印刷 0はデフォルト
*DMDUP_SIMPLEX = 1
*DMDUP_VERTICAL = 2
*DMDUP_HORIZONTAL = 3
*印刷ダイアログ 0は非表示 1は表示
メール送信aragowサンプルmail001.dllを使います
ダウンロード1 ダウンロード2 ダウンロード3 ダウンロード4 ダウンロード5メール受信
ダウンロード1 ダウンロード2
aragoiで印刷 overlayprn001.dllを使います
PDFCreator Auto-save<DocumentFilename>でPDF JPEG BMPその他のファイルにしてノータッチでWEBに貼ることができます
ダウンロード1 ダウンロード2 ダウンロード3 ダウンロード4 ダウンロード5 ダウンロード6 ダウンロード7
*arago+mysqlで郵便番号検索
ダウンロード1 ダウンロード2 ダウンロード3 ダウンロード4 ダウンロード5検索結果をエディットボックスで表示する
ダウンロード1 ダウンロード2 ダウンロード3
*arago+postgresqlで郵便番号検索
ダウンロード1 ダウンロード2 ダウンロード3 ダウンロード4 ダウンロード5検索結果をエディットボックスで表示する
ダウンロード1 ダウンロード2 ダウンロード3
スタンドアロン使用前提でaragowのdbfをc#で使う
aragowのdbf+c#で郵便番号検索
ダウンロード1 ダウンロード2 ダウンロード3
aragowのdbfをc#で追加 更新 削除する
ダウンロード1 ダウンロード2 ダウンロード3 ダウンロード4 ダウンロード5 ダウンロード6 ダウンロード7
xlsxファイルの読み書きdll
ClosedXMLを使う
ClosedXML.dll excelcli001.dll excelcs001.dll サンプル excel003.prg calendar2.prg
ダウンロード1 ダウンロード2 ダウンロード3 ダウンロード4 ダウンロード5 ダウンロード6 ダウンロード7
excel.exeを使う
excelcli101.dll excelcs101.dll サンプル excel004.prg calendar3.prg excelcsv.prg excelkei.prg
ダウンロード1 ダウンロード2 ダウンロード3 ダウンロード4 ダウンロード5 ダウンロード6 ダウンロード7 ダウンロード8