久々のDelphi本です

楽しみです

Delphi　XE2プログラミング入門 著者：日向俊二 価格：3,990円（税込、送料込） 楽天ブックスで詳細を見る

今日の個人的アクティビティ

黒猫SQL Studio Nextで　i5(AS400) に接続するテスト。　
DelphiだとつながるOLEDBでつながらない。　ADOならOK。　
その他今日は、DelphiのVcl Tcollapsepanel,Tcategorybuttons,などを試験中
結構、面白い動きをします

公的には
バグフックスと死にそうな機械のBackup

TCategoryButtonのメモリリーク

Delphi2007で発生
http://qc.embarcadero.com/wc/qcmain.aspx?d=36603

You need to clear the Action property of the Items in the FormClose event
  with myCategoryButtons do
   for i := 0 to Categories.Count-1 do
    for j := 0 to Categories[i].Items.Count-1 do
     Categories[i].Items[j].Action := nil;

Unicode

Identifier	.NET Name	Additional information
037	IBM037	IBM EBCDIC US-Canada
437	IBM437	OEM United States
500	IBM500	IBM EBCDIC International
708	ASMO-708	Arabic (ASMO 708)
709		Arabic (ASMO-449+, BCON V4)
710		Arabic - Transparent Arabic
720	DOS-720	Arabic (Transparent ASMO); Arabic (DOS)
737	ibm737	OEM Greek (formerly 437G); Greek (DOS)
775	ibm775	OEM Baltic; Baltic (DOS)
850	ibm850	OEM Multilingual Latin 1; Western European (DOS)
852	ibm852	OEM Latin 2; Central European (DOS)
855	IBM855	OEM Cyrillic (primarily Russian)
857	ibm857	OEM Turkish; Turkish (DOS)
858	IBM00858	OEM Multilingual Latin 1 + Euro symbol
860	IBM860	OEM Portuguese; Portuguese (DOS)
861	ibm861	OEM Icelandic; Icelandic (DOS)
862	DOS-862	OEM Hebrew; Hebrew (DOS)
863	IBM863	OEM French Canadian; French Canadian (DOS)
864	IBM864	OEM Arabic; Arabic (864)
865	IBM865	OEM Nordic; Nordic (DOS)
866	cp866	OEM Russian; Cyrillic (DOS)
869	ibm869	OEM Modern Greek; Greek, Modern (DOS)
870	IBM870	IBM EBCDIC Multilingual/ROECE (Latin 2); IBM EBCDIC Multilingual Latin 2
874	windows-874	ANSI/OEM Thai (same as 28605, ISO 8859-15); Thai (Windows)
875	cp875	IBM EBCDIC Greek Modern
932	shift_jis	ANSI/OEM Japanese; Japanese (Shift-JIS)
936	gb2312	ANSI/OEM Simplified Chinese (PRC, Singapore); Chinese Simplified (GB2312)
949	ks_c_5601-1987	ANSI/OEM Korean (Unified Hangul Code)
950	big5	ANSI/OEM Traditional Chinese (Taiwan; Hong Kong SAR, PRC); Chinese Traditional (Big5)
1026	IBM1026	IBM EBCDIC Turkish (Latin 5)
1047	IBM01047	IBM EBCDIC Latin 1/Open System
1140	IBM01140	IBM EBCDIC US-Canada (037 + Euro symbol); IBM EBCDIC (US-Canada-Euro)
1141	IBM01141	IBM EBCDIC Germany (20273 + Euro symbol); IBM EBCDIC (Germany-Euro)
1142	IBM01142	IBM EBCDIC Denmark-Norway (20277 + Euro symbol); IBM EBCDIC (Denmark-Norway-Euro)
1143	IBM01143	IBM EBCDIC Finland-Sweden (20278 + Euro symbol); IBM EBCDIC (Finland-Sweden-Euro)
1144	IBM01144	IBM EBCDIC Italy (20280 + Euro symbol); IBM EBCDIC (Italy-Euro)
1145	IBM01145	IBM EBCDIC Latin America-Spain (20284 + Euro symbol); IBM EBCDIC (Spain-Euro)
1146	IBM01146	IBM EBCDIC United Kingdom (20285 + Euro symbol); IBM EBCDIC (UK-Euro)
1147	IBM01147	IBM EBCDIC France (20297 + Euro symbol); IBM EBCDIC (France-Euro)
1148	IBM01148	IBM EBCDIC International (500 + Euro symbol); IBM EBCDIC (International-Euro)
1149	IBM01149	IBM EBCDIC Icelandic (20871 + Euro symbol); IBM EBCDIC (Icelandic-Euro)
1200	utf-16	Unicode UTF-16, little endian byte order (BMP of ISO 10646); available only to managed applications
1201	unicodeFFFE	Unicode UTF-16, big endian byte order; available only to managed applications
1250	windows-1250	ANSI Central European; Central European (Windows)
1251	windows-1251	ANSI Cyrillic; Cyrillic (Windows)
1252	windows-1252	ANSI Latin 1; Western European (Windows)
1253	windows-1253	ANSI Greek; Greek (Windows)
1254	windows-1254	ANSI Turkish; Turkish (Windows)
1255	windows-1255	ANSI Hebrew; Hebrew (Windows)
1256	windows-1256	ANSI Arabic; Arabic (Windows)
1257	windows-1257	ANSI Baltic; Baltic (Windows)
1258	windows-1258	ANSI/OEM Vietnamese; Vietnamese (Windows)
1361	Johab	Korean (Johab)
10000	macintosh	MAC Roman; Western European (Mac)
10001	x-mac-japanese	Japanese (Mac)
10002	x-mac-chinesetrad	MAC Traditional Chinese (Big5); Chinese Traditional (Mac)
10003	x-mac-korean	Korean (Mac)
10004	x-mac-arabic	Arabic (Mac)
10005	x-mac-hebrew	Hebrew (Mac)
10006	x-mac-greek	Greek (Mac)
10007	x-mac-cyrillic	Cyrillic (Mac)
10008	x-mac-chinesesimp	MAC Simplified Chinese (GB 2312); Chinese Simplified (Mac)
10010	x-mac-romanian	Romanian (Mac)
10017	x-mac-ukrainian	Ukrainian (Mac)
10021	x-mac-thai	Thai (Mac)
10029	x-mac-ce	MAC Latin 2; Central European (Mac)
10079	x-mac-icelandic	Icelandic (Mac)
10081	x-mac-turkish	Turkish (Mac)
10082	x-mac-croatian	Croatian (Mac)
12000	utf-32	Unicode UTF-32, little endian byte order; available only to managed applications
12001	utf-32BE	Unicode UTF-32, big endian byte order; available only to managed applications
20000	x-Chinese_CNS	CNS Taiwan; Chinese Traditional (CNS)
20001	x-cp20001	TCA Taiwan
20002	x_Chinese-Eten	Eten Taiwan; Chinese Traditional (Eten)
20003	x-cp20003	IBM5550 Taiwan
20004	x-cp20004	TeleText Taiwan
20005	x-cp20005	Wang Taiwan
20105	x-IA5	IA5 (IRV International Alphabet No. 5, 7-bit); Western European (IA5)
20106	x-IA5-German	IA5 German (7-bit)
20107	x-IA5-Swedish	IA5 Swedish (7-bit)
20108	x-IA5-Norwegian	IA5 Norwegian (7-bit)
20127	us-ascii	US-ASCII (7-bit)
20261	x-cp20261	T.61
20269	x-cp20269	ISO 6937 Non-Spacing Accent
20273	IBM273	IBM EBCDIC Germany
20277	IBM277	IBM EBCDIC Denmark-Norway
20278	IBM278	IBM EBCDIC Finland-Sweden
20280	IBM280	IBM EBCDIC Italy
20284	IBM284	IBM EBCDIC Latin America-Spain
20285	IBM285	IBM EBCDIC United Kingdom
20290	IBM290	IBM EBCDIC Japanese Katakana Extended
20297	IBM297	IBM EBCDIC France
20420	IBM420	IBM EBCDIC Arabic
20423	IBM423	IBM EBCDIC Greek
20424	IBM424	IBM EBCDIC Hebrew
20833	x-EBCDIC-KoreanExtended	IBM EBCDIC Korean Extended
20838	IBM-Thai	IBM EBCDIC Thai
20866	koi8-r	Russian (KOI8-R); Cyrillic (KOI8-R)
20871	IBM871	IBM EBCDIC Icelandic
20880	IBM880	IBM EBCDIC Cyrillic Russian
20905	IBM905	IBM EBCDIC Turkish
20924	IBM00924	IBM EBCDIC Latin 1/Open System (1047 + Euro symbol)
20932	EUC-JP	Japanese (JIS 0208-1990 and 0121-1990)
20936	x-cp20936	Simplified Chinese (GB2312); Chinese Simplified (GB2312-80)
20949	x-cp20949	Korean Wansung
21025	cp1025	IBM EBCDIC Cyrillic Serbian-Bulgarian
21027		(deprecated)
21866	koi8-u	Ukrainian (KOI8-U); Cyrillic (KOI8-U)
28591	iso-8859-1	ISO 8859-1 Latin 1; Western European (ISO)
28592	iso-8859-2	ISO 8859-2 Central European; Central European (ISO)
28593	iso-8859-3	ISO 8859-3 Latin 3
28594	iso-8859-4	ISO 8859-4 Baltic
28595	iso-8859-5	ISO 8859-5 Cyrillic
28596	iso-8859-6	ISO 8859-6 Arabic
28597	iso-8859-7	ISO 8859-7 Greek
28598	iso-8859-8	ISO 8859-8 Hebrew; Hebrew (ISO-Visual)
28599	iso-8859-9	ISO 8859-9 Turkish
28603	iso-8859-13	ISO 8859-13 Estonian
28605	iso-8859-15	ISO 8859-15 Latin 9
29001	x-Europa	Europa 3
38598	iso-8859-8-i	ISO 8859-8 Hebrew; Hebrew (ISO-Logical)
50220	iso-2022-jp	ISO 2022 Japanese with no halfwidth Katakana; Japanese (JIS)
50221	csISO2022JP	ISO 2022 Japanese with halfwidth Katakana; Japanese (JIS-Allow 1 byte Kana)
50222	iso-2022-jp	ISO 2022 Japanese JIS X 0201-1989; Japanese (JIS-Allow 1 byte Kana - SO/SI)
50225	iso-2022-kr	ISO 2022 Korean
50227	x-cp50227	ISO 2022 Simplified Chinese; Chinese Simplified (ISO 2022)
50229		ISO 2022 Traditional Chinese
50930		EBCDIC Japanese (Katakana) Extended
50931		EBCDIC US-Canada and Japanese
50933		EBCDIC Korean Extended and Korean
50935		EBCDIC Simplified Chinese Extended and Simplified Chinese
50936		EBCDIC Simplified Chinese
50937		EBCDIC US-Canada and Traditional Chinese
50939		EBCDIC Japanese (Latin) Extended and Japanese
51932	euc-jp	EUC Japanese
51936	EUC-CN	EUC Simplified Chinese; Chinese Simplified (EUC)
51949	euc-kr	EUC Korean
51950		EUC Traditional Chinese
52936	hz-gb-2312	HZ-GB2312 Simplified Chinese; Chinese Simplified (HZ)
54936	GB18030	Windows XP and later: GB18030 Simplified Chinese (4 byte); Chinese Simplified (GB18030)
57002	x-iscii-de	ISCII Devanagari
57003	x-iscii-be	ISCII Bengali
57004	x-iscii-ta	ISCII Tamil
57005	x-iscii-te	ISCII Telugu
57006	x-iscii-as	ISCII Assamese
57007	x-iscii-or	ISCII Oriya
57008	x-iscii-ka	ISCII Kannada
57009	x-iscii-ma	ISCII Malayalam
57010	x-iscii-gu	ISCII Gujarati
57011	x-iscii-pa	ISCII Punjabi
65000	utf-7	Unicode (UTF-7)
65001	utf-8	Unicode (UTF-8)


ipentechさんのところからいただいてまいりました。
type
  SJISString = type AnsiString(932);   // SJIS
  EUCString = type AnsiString(20932);  // EUC
  JISString = type AnsiString(50220);  // JIS ISO-2022JP
  UTF7String = type AnsiString(65000); // UTF7
  UTF8String = type AnsiString(65001); // UTF8
  UTF16LString = type AnsiString(1200);
    //Unicode UTF-16, little endian byte order (BMP of ISO 10646); available only to managed applications
  UTF16BString = type AnsiString(1201);
    //unicodeFFFE Unicode UTF-16, big endian byte order; available only to managed applications
  UTF32LString = type AnsiString(12000);
    //Unicode UTF-32, little endian byte order; available only to managed applications
  UTF32BString = type AnsiString(12001);
    //Unicode UTF-32, big endian byte order; available only to managed applications
  MACString = type AnsiString(10001);
 
 
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  sjis:SJISString;
  euc:EUCString;
  jis:JISString;
  utf7:UTF7String;
  utf8:UTF8String;
  utf16l:UTF16LString;
  utf16b:UTF16BString;
  utf32l:UTF32LString;
  utf32b:UTF32BString;
  mac:MACString;
 
  i:integer;
  outs:String;
  input:string;
begin
  input := ''Delphi 2009 ではコード変換もらくらく？？？''+Chr($000D)+Chr($000A)+''po!'';
 
  sjis:=input;
  euc:=input;
  jis:=input;
  utf7:=input;
  utf8:=input;
  utf16l:=input;
  utf16b:=input;
  utf32l:=input;
  utf32b:=input;
  mac:=input;
 

Delphi XE2 衝動買い？

★ポイント5倍★RAD Studio XE2 Enterprise ESD （ライセンスのみ） 特別バージョンアップ・キ... 価格：176,000円（税込、送料込）

バージョンアップしたので買おうかどうか迷っている。

新しくWin64のネイティブコードでの開発
Mac OS X,ipad iphone,Androideの開発が可能になる

MacBook+VMWare Fusion+iPad+iPhoneを衝動買いして
WindowsとMac用にプログラムを作るということに興味津津…

いまのところ仕事には全く関係ない

しかし高い、毎年のバージョンアップはきつい

衝動買いの連鎖? 悩みどころである

本日のすぐ忘れてしまいそうな言葉

コルモゴロフ複雑性

メモ

Application.MainFormOnTaskbar := False;
Application.ShowMainForm:=False;

でフォームを非表示にしていたプログラムが
画面に表示されるようになった。

Windows7のせいか、XEのせいかといろいろ調べたりいじっていた。

WindowsStateがなぜかwsNormal以外になっていた

一日無駄にした・・・・

[DB2] NULLを0(ZERO)へ 計算中のエラー

SQL中に以下のような式を書いた

SUMTZANDK+SUMYNYUKN AS SAIMUZAN,

JOINしているレコードから引張った値で計算しているため
合致するレコードがない場合 NULL になるらしい。

この状態で計算するとエラーも出ずに計算式がエラーとなり値がNULLになるようだ

で、検証用にこんなSQLにしてみた

(case when SUMTZANDK is NULL then 0 else SUMTZANDK end)+
(case when SUMYNYUKN is NULL then 0 else SUMYNYUKN end) AS SAIMUZAN,

正常に計算された。

で、インターネットで検索すると、こんな方法もあるようだ

COALESCE(SUMTZANDK,0) NULLだったら0

VALUE(SUMTZANDK,0) 上と同様

後で試してみよう

感動した言葉

明日死ぬと思って生きなさい、永遠に生きると思って学びなさい　
ガンジー

Dream as if you'll live forever, live as if you'll die today.
ジェームズ・ディーン (1931-55)

Delphi メール送信

「あるデータが入力された場合、メールを送ることができますか」
と、聞かれたので
「できますよ。」と、返事だけしておいた。

で、試してみましたが、結構簡単にできるのですね。
Delphi 2007で確認

procedure TForm2.Button1Click(Sender: TObject); 
var
  subject, from, mailto, body: string;
  msg: TIdMessage;
  IdSMTP: TIdSMTP;
begin

  IdSMTP := TIdSMTP.Create(nil);
  IdSMTP.Port      := 587;  //OPB25
  IdSMTP.Host      := 'mail.smtpserver.address.net';
  IdSMTP.Username  :=   '[e-mail]';
  IdSMTP.Password  := '######';

  subject := '送信メールタイトル';
  from    := '[e-mail]';
  mailto  := '[e-mail];[e-mail]';

  body    := memo1.Lines.Text;

  msg := TIdMessage.Create(IdSmtp);
  try
    msg.Subject := subject;
    msg.Recipients.EMailAddresses := mailto;
    msg.From.Text := from;
    msg.Body.Text := body;
    msg.ContentType := 'text/plain';

    IdSmtp.Connect;
    IdSmtp.Send(msg);
    IdSmtp.Disconnect ;
  finally
    msg.Free;
  end;

end;

2009以降で利用するにはエンコードを指定してあげないといけないらしい
http://www.freeml.com/delphi-users/179/latest?w=true

まだ確認はしていません…