タイトル

タイトル

​

Delphi12にアップグレードしたらAndroidのbuildができなくなった。

C++は13からサポート終了したそうですね。その終了理由がわけわかめですが？
過去にKylix, .net のサポート打ち切りで信用できない開発言語ですので、とうとうきましたね

そろそろ Delphi androidを Visual Studioに移植したほうがよさそうです。幸い１プロジェクトでcoplilot先生に手伝ってもらえば数日あれば移植終わりそうです。
近いうちに .NET MAUI に移植したいと思います。

とりあえず復旧できたの手順を書いておきます

現象

標準インストールしただけでは、不具合があり
SDK 基底パス, avdmanager.bat または androud.bat の場所, SDK APIの場所
が無効になっていて利用できない。

» Delphi12] アップグレードしたらAndroidのbuildができなくなった。'">続きを読む

タイトル

​

iPhoneとAndroidを同時に開発できるクロスプラットフォーム開発ツール

を Copilot 先生に相談してみた。

1. .NET MAUI

   .NET MAUI はオープンソースであり、Xamarin.Forms を進化させ、モバイルからデスクトップ シナリオに拡張したものです。
   .NET MAUI アプリのサポート対象プラットフォーム LINK

   新規プロジェクトを実行しただけでファイルが数千個できる(ファイル数: 2,275、フォルダー数: 1,182)。android apk 140MB.
   🚫 ネットワークドライブに配置すると意味不明なエラーが表示されて実行できない。
   📌 実行しないとページをビュジュアル編集できない変な仕様。
   🚫[致命的欠陥] .NET MAUI XAML デザイナーは、Visual Studio 2022 ではサポートされていません。
   
   Xamarin:  [C#]
   「Xamarin」は2024年5月1日に終了、「iOS 17」「Android 14」に対応せず
   Xamarinは、C#を使用してiOSとAndroidの両方で画像の入出力を行うことができます。`System.IO`名前空間を使用してファイル操作を行い、`Xamarin.Forms`の`Image`コントロールを使用して画像を表示できます。

2. React Native: [JavaScript]
   React Nativeも画像の入出力をサポートしています。`react-native-fs`パッケージを使用してファイルシステムにアクセスし、画像の読み込みや書き込みを行うことができます。

3. Flutter: [Dart]
   Flutterは、画像の読み込みや書き込みを簡単に行うためのライブラリを提供しています。`Image`ウィジェットを使用して画像を表示し、`image_picker`パッケージを使用して画像を選択・保存することができます。

4. Unity:  [C#]
   主にゲーム開発に使用されるクロスプラットフォームエンジンですが、
   iOSとAndroidのアプリ開発にも利用できます。3Dグラフィックスやインタラクティブなコンテンツに強みがあります。

» 続きを読む

     if (TJBuild_VERSION.JavaClass.SDK_INT >= 29) then // (Android10 API 29)
       // MediaStore.VOLUME_EXTERNAL_PRIMARY : Constant Value: "external_primary"
       LVolume := 'external_primary'
     else
       LVolume := 'external';
     // LVolume := 'xxxx-xxxx'; // SDカードの場合は数値を書いて有効にする

     LContentUri := TJImages_Media.JavaClass.getContentUri(StringToJString(LVolume));
     //LContentUri := TJMyAndroidUtils.JavaClass.getContentUriFromFilename(
     //                 TAndroidHelper.Context, StringToJString(LContentFilename));

     ShowDebugMessage('ContentResolver:Uri:' + #10 + JStringToString(LContentUri.toString()));

» 続きを読む

    LFileName := OpenPictureDialog1.Files[0];
    if Pos('\',LFileName) = 0 then
    begin
      ShowMessage('ドライブ情報が取得できないため操作できません。');
      Exit;
    end;

» 続きを読む

procedure TForm1.Button1Click(Sender: TObject);
begin  // プレビュー
  frReport1.LoadFromFile(ExtractFileDir(Application.ExeName)
     + DirectorySeparator + 'Untitled.lrf');
  frReport1.ShowReport;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin // 印刷
  frReport1.LoadFromFile(ExtractFileDir(Application.ExeName)
     + DirectorySeparator + 'Untitled.lrf');
  // プリンタの設定を開きたい場合はここに処理を加える
  if frReport1.PrepareReport() then
    frReport1.PrintPreparedReport('1', 1); // ページ範囲, 印刷数
end;

procedure TForm1.frReport1BeginDoc;
  var
    AfrObject : TfrObject;
begin
  AfrObject := frReport1.Pages[0].FindObject('Memo1');
  if Assigned(AfrObject) then
     AfrObject.Memo.Text := 'こんにちは';
end;

» Delphiを捨てる！?'">続きを読む

Borland時代のDelphiで作ったアプリはWindows10で表示の不具合などいろいろ問題を起こすので
Delphi11へサクッと移行したほうがいいです。
普通にコード書いてるだけなら無修正でコンパイル通って移行できると思います。
プロジェクトオプションの PEのバージョンを 既定値の6.0から 5.0 にするとXPでも動作します。
PE 6.0 vista以降
PE 5.0 XPなど

» Delphi jedi version'">続きを読む

» Delphi でこんにちは'">続きを読む

GoogleはKotlin という言語や低レベルはrustにシフトしているらしく、GoogleのGo言語は、オワコンらしいのですね。

rustもオワコン説もありますが
開発元がmozillaというのがマイナスイメージ、ダメ実装ポイ雰囲気なので長年無視していましたが、最近大手が基幹システムに採用しているということで再注目を浴びているようなので、地位が確立し当面消滅はしないだろうということで触ってみることにしました。

初見

とにかく、rustの他人のコードは読みにくい。

はぁ？　っていう感じですね。変な記号だらけで 頭をグルグル　ブドウ糖消費しまくって 考えないと理解不能です。

考案した人パズルが好きなのかな？意地悪い性格じゃないかな？

人が読みやすい、わかりやすい構造考えようよ


mod 普通この分野のmodは 割り算のあまり だろう、 moduleを略すなよといいたい。
fnもそう 普通に functionやfuncでいいのに。
度が過ぎる省略は逆に生産性を低下させる。
変な略しているのに、他はたらたら長文、設計思想がめちゃくちゃ。
変なとこで略すと無意識に頭で変換で脳細胞がいくつかが痛むし養分減るからからほんと勘弁だよ

phpみたいに零細企業のアプリ ハカイダーみたいなのがOSSコード破壊するのがいるので、RUSTだとレベルが一定以上必要になるので
読みにくい考える仕様にすることで結果としてバグが減ることに貢献するとは思う。

ただ度が過ぎるとみんないなくなる。
他人のコード読みにくい ＝ メンテナンス難

気になるところは、go言語と同じく外部ライブラリだよりで、バンドルではないのでライブラリのセキュリティや将来性(アップデート)、安全性に疑問が残ります。

言語の例外を実装しないのが最近の流行り？

webで情報収集して概要はつかんだので
公式のdocを読みます

変数関係はすぐに理解できました。
その他が問題ですね。へんてこりんな記号だらけで、何がしたいのやら。

.is_ok()

.unwrap
  Result値がOk列挙子なら、unwrapはOkの中身を返します。ResultがErr列挙子なら、 unwrapはpanic!マクロを呼んでくれます。

は？
そんなもの用意するなら最初から例外実装しなさいよ。
エラーで実行止めるわけないだろ。設計したやつばかか？
アプリ終了か終了おすまでエンドレスだろ普通。

rustのコードみたらunwrapだらけ

delphiだと通常 try exceptで例外起きそうな場合は全部例外封殺するので
個人的には、なくてもいいかもと思ったりもしますが
完全にないとなると気持ち悪いですね。想定外のところをスルーされると怖いですね。
というか戻り値にエラー処理強要するなら例外を実装しろといいたい。

.unwrapとか 苦し紛れに後から実装したのでしょうか？

説明書を見ながら標準ライブラリを何か普通に使おうとしたら
 error[E0658]: use of unstable library feature
は？　いやいや 仕様 糞すぎるでしょ

コアをフォークして自分色に染めようかと一瞬おもったくらいですよ

それはいいとして

実行ファイルがデカイ！

printしただけで 5MB。
うーん。ですね。
スタンドアロンならいいですが、webだとレスポンスに影響するので読み込みサイズは小さいに越したことはないです。

stripコマンドで少し小さくできるそうです

もやもやしますが SSDの時代なのでこれも気にしないことにします。

ということで、コンパイラをインストールして、サンプルのこんちにはを試して終了となりました。

サンプルだけなら、インストールしなくても 公式サイトのデモページで実行できます。

今のところバッファオーバーランを起こすようなアプリないですし、そういうのは、すべてC#とかdelphiとかスクリプト言語でかけば発生しませんしね。
低レベル操作やREST APIを
クロスコンパイルしたい場合は、便利かもですが、
rustの使い所が現在ないです。


ＷＥＢで使いたい場合は、

https://docs.rs/cgi/latest/cgi/
https://docs.rs/cookie/latest/cookie/
https://docs.rs/formdata/latest/formdata/

webフレームワーク を使いたい場合は
 axum
 actix-web

国際化は
https://docs.rs/rust-i18n/latest/rust_i18n/
や
https://docs.rs/gettext/latest/gettext/

リソース組み込む場合は、
https://docs.rs/resource/latest/resource/

このあたりを使えばサクッとかけるのではないでしょうか。

練習に小さいプロジェクトを移行するのもいいと思いますが
慣れた言語でサクッと短時間で書いたほうがストレスがなくていいですね

» 続きを読む

» 続きを読む

1. インストールメディアから32ビットインストーラーを取り出します
   • CDROMにINSTALLというフォルダーがあるのでUSBなどにそのままコピーします
   • 32bitのWindowsで INSTALL\setup.exeをクリックします
   • 次へを押すと、インストールに必要なファイルのコピーが始まるので、少し待ってから
     CTRL + TAB で フォーカスをエクスプローラーに切り替えます
   • エクスプローラーのアドレスに %temp% と入力しリターンキーを押します
   • %temp%フォルダー内に「_INS0432._MP」というファイルがあるので
     （１）の 「install」フォルダーにコピーし、名称をsetup32.exeに変更します。
     「_INS0432._MP」→「setup32.exe」
   • インストーラーに戻り、インストールの中止をクリックし終了します。
     これで 64ビット対応のセットアップ準備ができました。
     
     
2. 64ビットWindowsにDelphi2をインストール
   • インストールしたい64ビットWindows で
     (1)のフォルダーの setup32.exe をクリックします。

» Delphi2.0を64ビットWindowsにインストールするには？'">続きを読む

• RegExpr → RegularExpressions
• PAnsiChar → PWideChar
• 他数点

» Delphi10.2 Unicode に移行してみた'">続きを読む

アプリ側で旧形式の制限をかけたい場合

• QuickReportがいらない場合は削除することで回復することができます。
• CMPLIB32.DCLのバックアップを忘れずに、(QuickRepoのREG.pasがないため)

// uses UrlMon;
// const USERAGENT_IE11 = 'Mozilla/5.0 (Windows NT 10.0; Trident/7.0; rv:11.0) like Gecko';
function SetUserAgent(AUserAgentText : string) : boolean;
begin
  Result := (S_OK =
    UrlMon.UrlMkSetSessionOption(URLMON_OPTION_USERAGENT,
           PChar(AUserAgentText), Length(AUserAgentText), 0)
            );
end;

• http://opencv.org/
  ライブラリが落ちているところ
  
  
• Delphi XE5 で OpenCV を試す
  http://blogs.embarcadero.com/teamj/2014/02/18/4264/
  • https://github.com/Laex/Delphi-OpenCV
    古い開発環境で利用できないので ゴミ ライブラリである。
    最低バージョン:xe4以降
    ・TDictionary(xe4以降)
    ・POINTERMATH指令(2009以降)
    ・class operator (2007以降)
• Delphiから利用
  呼び出し部分は C++で書いてDLLで連結したほうが無難

» 続きを読む

» 続きを読む

結論

» 続きを読む

.NET Framework 1.1 からの移行

• .NET Framework SDK Version 1.1
  https://www.microsoft.com/ja-jp/download/details.aspx?id=16217
• Microsoft .NET Framework Version 1.1 再頒布可能パッケージ
  http://www.microsoft.com/ja-jp/download/details.aspx?id=26
• .NET Framework SDK Version 1.1
  https://www.microsoft.com/ja-jp/download/details.aspx?id=16217
• Microsoft Visual J# .NET Version 1.1 再頒布可能パッケージ
  http://www.microsoft.com/ja-jp/download/details.aspx?id=12520
• MSXML 4.0 Service Pack 3 (Microsoft XML Core Services)
  https://www.microsoft.com/ja-jp/download/details.aspx?id=15697

» Delphi Professional'">続きを読む

» 続きを読む

» 続きを読む

» Delphi'">続きを読む

• webBrowserで別のウインドウで開くときの開く先のＵＲＬの取得法
  とその中のリンク記事
  （VSUG フォーラム → .NET 開発  → Visual C#  → webBrowserで別のウインドウで開くときの開く先のＵＲＬの取得法）
• MSDN Library for Visual Studio 2008
  ・CreateSink メソッド （使用例）
  ・他
  

revision 4612 : Updating to cookie draft-23.

» 続きを読む

» 続きを読む

» Delphi C++Builder Starter Edition'">続きを読む

» Delphi2007? )で、Idhttp.Getすると壊れる理由'">続きを読む

• 最新版では、この不具合は修正されています
  アプリを Lazarus Version1.8 以降でコンパイルしなします
  
  
• Lazarus Version1.7 以前の場合

  procedure TForm1.FormCreate(Sender: TObject); begin   with Application do Flags := Flags + [AppNoExceptionMessages]; end; procedure TForm1.ApplicationProperties1Exception(Sender: TObject; E: Exception); begin  { uses節にLCLTypeを追加します }   with Application do    MessageBox(PChar(E.Message),PChar(Title),MB_OK+MB_ICONERROR); end;

Delphi2005付属のDemeanorとフリーなNanDoKuをさわってみる

今日のDelphiの講義は、難読化です
みなさん用意はいいですか
聴講料は無料なので安心してください(＾▽＾;

【はじめに】

.netで作成した、exeファイルは、簡単に類似ソースコードに戻すことができるそうです。
実際、.net自体に低級言語に戻すildasmツールが付属しています
この非常に狭い地球には、任意の.net高等言語に戻すフリーツールも出回っているようです
これは、普通の開発者にとって脅威です

このことは利用するユーザーには、全く利もなく害もないのですが、
開発側にしてみれば多言語間で簡単に呼び出せるようにした弊害なのでしょう。

そこで、そのようなツールで、ソースコードに戻しても
変数名やクラス名をグチャグチャに変更して

• 「人が見ても理解し難いソース」
• 「そのまま使うとコンパイラエラーを起こし、手を加えないと使えないものにしてしまう」
• 「コードを流用する気力を根こそぎ奪う」
• 「動作原理を理解し難くして隠蔽する」
• 「名前短縮によりexeサイズの縮小を期待する」

などいろいろな目的の元で変換を行うのが .netの難読化ツールです

さいわいDelphi2005に付属しているのでインストールしておきましょう。
(冊子 Quick Start P.5)

【Demeanorの準備】

まず、パスが遠いのでユーザーの環境変数に
フルパスを登録すると便利です

PATHにパスを登録してもいいのですが、あまり長くなるのが好きではないので
ここでは、個別の環境変数を作成することにします。

環境変数 Demeanor を作成し、そこにフルパス
"C:\Program Files\Wise Owl, Inc\Demeanor for .NET, Personal Edition\Demeanor"
を登録しました

【Demeanorの使い方】

%Demeanor% dotnet実行ファイル名
PATHが取っている場合は
Demeanor dotnet実行ファイル名
で 難読化済みexe が作成できます

Demeanorフォルダに変更されたexeができます
出力先は、/out:パス
で変更できます

変換方法を変更するには

その他詳しくは、DOSプロンプトを起動して、
Demeanor /?
で確認しましょう

【ildasm】
ildasm
"C:\Program Files\Microsoft.NET\SDK\v1.1\Bin\ildasm.exe"
のショートカットを作って置くと便利です

ildasmにできたファイルを投げ入れると
どの程度exeが書き換えられたか閲覧できます

DelphiでC#のexeを作ったものはかなり変更されたかなという感じを受けます
delphi.netのexeには、あまり変更が加わっていない気がします。

次に
NanDoKuというフリーソフトを使ってみましょう

【NanDoKu】

ということで
うーん、こ、これは・・・
delphi.netのexeにそのまま使うと飛びます

■まず、設定を開き コンパイラのildasm.exeを正しいパスに変更しましょう

■Nandokuデフォルトオプションだと
   delphi.netのexeは、飛びます
　オプションを変更して飛ばないようにします

変換項目の設定
メソッド
にチェックがあると
---------------------------
難読化失敗
---------------------------
難読化に失敗しました。
原因不明のエラーが発生しました
---------------------------

■exe→Demeanor→Nandoku
　とするとNandokuで飛びます

●exe→Nandoku→Demeanor
　という手順だと飛ばないようです
  （この処理はバッチ処理すると楽です）
　ildasmで確認をすると
　適度に難読化がかかった感じでいい感じです。

Delphi2005でVB,C#のコードから作成したexeファイルの場合は、
メソッド名も変更されるので
難読化効果がさらにあるような気がします。

執筆:2008.1.31 おかめりん

Indy Cookie 2007

執筆：2007.01.05
編集：2007.03.19
編集：2007.07.09
編集：2007.07.18
編集：2007.07.21
編集：2007.11.23
編集：2009.10.16

10.0.52は、かなり古いので
cookieのドメインの最初が .で始まっていると処理できずエラーになります。
（IdCookie、IdCookieManager）
(10.1.6でも直っていませんでした。：２００７．３、２００７．７)
(10.2.3でも直っていませんでした。：２００７．１０)


他にも修正をみつけたので、この文書は
インストール方法と分離しました。(2007.7.21)
最新版のインストール方法は、こちらに書いてあります。

パッチ: クッキーのバグを修正します。

Indy10 Cookie bug fix(2007年3月中旬　時点、version 10.1.6)
Indy10 Cookie bug fix(2007年10月中旬　時点、version dev 10.2.3)
Indy9   Cookie bug fix(2007年7月中旬　時点、version 9.0.5.0(stable),indy9.0.18(stable), DevSnapshot)

【現象】
１．
   example.comがexample.comのcookieを渡し、ソフトウェアに保存したとします。
   .example.comでのcookieを、example.comで取得できません。

２．
   anywordexample.comにソフトウェアが接続するとexample.comのcookieをanywordexample.comに渡します。 
   example.com.anydomainにソフトウェアが接続するとexample.comのcookieをexample.com.anydomainに渡します。

　後者（２．）は、セキュリティ勧告ものレベルなのは容易に想像がつくと思います。

   サイトと同名の文字列を含んでる場合に限られますが、
   誘導によりクッキーの略奪が可能なので注意が必要です。

（３．）パス付き/で終わらないクッキーを保存した場合、同じ文字が並ぶパスにわたしてしまいます。
    firefox2ではわたさないことを確認しました。(違うパスへ保存はできるようです。)
　※ IE7では、Indyと同様の現象が起きます。
　　　　Netscpeの仕様書を見るとそうなると　最終パス名の部分一致になると書いてありました。
   ※　Cookieには、きちんとした規格が無いようなことがかいてありました。
　　　　firefox2のような動作がいいと個人的に私は思いますのでそういう風に修正を加えます。

　　/で終わらないクッキーを書いた方が悪いと思いますが、そういうミスはあるものです。
　　（共有サーバーで問題になります。他人のアカウントにわたすので）
　　例：   path=/tea;　http/〜/tea/のものを  http/〜/team/　にもわたします。 
    

【対策】
※：適用した場合のコードの安全性はご自分で確認を取ってください。
　　わたしは、一切責任はもちません。

コードが修正されている可能性も否定できませんので
まず、何もしない状態でセキュリティホールが残っているか確認をとることをお勧めします。
下の再現コードである程度確認できると思います

２００７年3月でのdevコードなので、該当行が多少移動しているかもしれません。
関数名も書いているので探しやすいと思います。
　(delphi2005付属の10.0.52は、行数が違いますので関数名で探してください。)

Indy 〜 10.1.16 :
331: function TIdNetscapeCookie.IsValidCookie

begin
//....(省略)
   Result := FDomain = RightStr(AServerHost, Length(FDomain));
修正
  var ACookieDomain : String;
begin
//....(省略)
//  Result := FDomain = RightStr(AServerHost, Length(FDomain));
// bad code : FDomain = RightStr(AServerHost, Length(FDomain));
//   FDomain        AServerHost
//  xxxx.yyyy.com , zxxxx.yyyy.com : is not valid
//  xxxx.yyyy.com ,  xxxx.yyyy.com : is valid
// .xxxx.yyyy.com ,  xxxx.yyyy.com : is valid
// .xxxx.yyyy.com , yxxxx.yyyy.com : is not valid
      if (Copy(FDomain,1 , 1)='.') then
           ACookieDomain := FDomain
          else
           ACookieDomain := '.' + FDomain;
       Result := ( ACookieDomain = RightStr('.' + AServerHost, Length(ACookieDomain)) );

Indy 10.2.3 : 
-      Result := TextEndsWith(AServerHost, FDomain);
+       // bad code : Result := TextEndsWith(AServerHost, FDomain);
+       //    TextEndsWith('noexample.com',  'example.com') = true : is not valid
+        if (Copy(FDomain,1 , 1)='.') then
+            Result := TextEndsWith('.' + AServerHost, FDomain)
+         else
+            Result := TextEndsWith('.' + AServerHost, '.' + FDomain);

135: function TIdCookieManager.GenerateCookieList

begin
//....(省略)
  if IndyPos(LCookiesByDomain[i], URL.Host) > 0 then
修正
  TempCookiesDomain : String;
begin
//....(省略)
//  if IndyPos(LCookiesByDomain[i], URL.Host) > 0 then
    TempCookiesDomain := LCookiesByDomain[i];
    if (Copy(TempCookiesDomain,1 , 1) <> '.') then TempCookiesDomain := '.' + TempCookiesDomain;
    if (TempCookiesDomain  = RightStr('.' + URL.Host, Length(TempCookiesDomain))) then

注意
 Netscapeの仕様書では、/で終わらない場合、最後のパス名は部分一致になっています
 IE7もそういう動作をしているようです。
 firefox2では、部分一致にはなっていません。
 firefox2風に、/で終わるパスと同様の動作にするには以下のようにします。

function TIdCookieManager.GenerateCookieList

 if Pos(LCookieList.Cookies[j].Path, URL.Path) = 1 then
-->
// if Pos(LCookieList.Cookies[j].Path, URL.Path) = 1 then
 if (RightStr(LCookieList.Cookies[j].Path,1) = '/') then
  begin
    if Pos(LCookieList.Cookies[j].Path, URL.Path) <> 1 then continue;
  end
  else
  begin
    if Pos(LCookieList.Cookies[j].Path + '/', URL.Path) <> 1 then continue;
  end;

procedure TIdCookieManager.DoAdd

 if Length(ACookie.Domain) = 0 then LDomain := AHost
  else LDomain := ACookie.Domain;
-->
 if Length(ACookie.Domain) = 0 then LDomain := AHost
  else LDomain := ACookie.Domain;

  while (copy(LDomain, 1 , 1)='.') do LDomain := copy(LDomain, 2 , Length(LDomain));
  if (LDomain ='') then exit;

function TIdNetscapeCookie.IsValidCookie

begin
//....(省略)
    if IsHostname(AServerHost) then
    begin
      if IsHostName(FDomain) then
        result := FDomain = RightStr(AServerHost,Length(FDomain))
       else
        result := FDomain = RightStr(DomainName(AServerHost),Length(FDomain));
    end
修正
  var ACookieDomain : String;
begin
//....(省略)
    if IsHostname(AServerHost) then
    begin
//      if IsHostName(FDomain) then
//        result := FDomain = RightStr(AServerHost,Length(FDomain))
//       else
//        result := FDomain = RightStr(DomainName(AServerHost),Length(FDomain));
      if (Copy(FDomain,1 , 1)='.') then
           ACookieDomain := FDomain
          else
           ACookieDomain := '.' + FDomain;
       Result := ( ACookieDomain = RightStr('.' + AServerHost, Length(ACookieDomain)) );
    end

function TIdCookieManager.GenerateCookieList

begin
//....(省略)
  if IndyPos(Uppercase(LCookiesByDomain[i]), Uppercase(URL.Host + URL.path)) > 0 then {FLX}
修正
  ACookieDomain : String;
begin
//....(省略)
//  if IndyPos(Uppercase(LCookiesByDomain[i]), Uppercase(URL.Host + URL.path)) > 0 then {FLX}
    ACookieDomain := LCookiesByDomain[i];
    if (Copy(ACookieDomain ,1 , 1) <> '.') then ACookieDomain := '.' + ACookieDomain;
    if (ACookieDomain  = RightStr('.' + URL.Host, Length(ACookieDomain))) then

注意
 Netscapeの仕様書では、/で終わらない場合、最後のパス名は部分一致になっています
 IE7もそういう動作をしているようです。
 firefox2では、部分一致にはなっていません。
 firefox2風に、/で終わるパスと同様の動作にするには以下のようにします。


 if Pos(LCookieList.Cookies[j].Path, URL.Path) = 1 then
-->
// if Pos(LCookieList.Cookies[j].Path, URL.Path) = 1 then
 if (RightStr(LCookieList.Cookies[j].Path,1) = '/') then
  begin
    if Pos(LCookieList.Cookies[j].Path, URL.Path) <> 1 then continue;
  end
  else
  begin
    if Pos(LCookieList.Cookies[j].Path + '/', URL.Path) <> 1 then continue;
  end;

program testCookieManager;

{$APPTYPE CONSOLE}

uses
  IdCookieManager,IdURI, IdGlobal;

 var TestCount : integer = 0;

function CookieManager_check(Cookie, HostName , AccessURL : string;
                 Accept : Boolean; mesg : string) : Integer;
  var
    aURI : TIdURI;
    IdCookieManager1 : TIdCookieManager;
    s : string;
    isError : boolean;
begin
  Result := 0;
  aURI := TIdURI.Create(AccessURL);
  IdCookieManager1 := TIdCookieManager.Create(nil);
  try
    try
      IdCookieManager1.CookieCollection.Clear;
      IdCookieManager1.AddCookie(Cookie, HostName);
      IdCookieManager1.AddCookie('Set-Cookie: name2=value2; path=/tea/; domain=dummy', 'dummy');

//      aURI.URI := AccessURL;
      s := IdCookieManager1.GenerateCookieList(aURI,False);
      if (Accept) then
         isError := (s = '')
        else
         isError := (s <> '');

      if (isError) then
      begin
        Result := 1;
        Inc(TestCount);
        Writeln(' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ ' ,TestCount);
        Writeln(mesg);
        Writeln(' Cookie '+Cookie);
        Writeln(' CookieHostName '+HostName);
        Writeln(' AccessURL '+AccessURL);
        Writeln(' GenerateCookieList('+aURI.URI+') = ' + s);
      end;
    except
      Result := -1;
      Writeln('internal error');
    end;
  finally
    aURI.Free;
    IdCookieManager1.Free;
  end;
end;

function TestCookie() : Integer;
  var
    r : integer;
begin
  Result := 0;

//  r := CookieManager_check('Set-Cookie: name1=value1; path=/; domain=localhost'

  r := CookieManager_check('Set-Cookie: name1=value1;'
                , 'abc.test'
                , 'http://testabc.test/index'
                , false
                , 'bug: send other domain''s cookie');
  if (r<>0) then Result := r;

  r := CookieManager_check('Set-Cookie: name1=value1;'
                , 'deny.abc.abc'
                , 'http://nodeny.abc.abc/index'
                , false
                , 'bug: send other domain''s cookie');
  if (r<>0) then Result := r;

  r := CookieManager_check('Set-Cookie: name1=value1;'
                , 'all.abc'
                , 'http://all.abc/index'
                , true
                , 'bug: can not get own cookie');
  if (r<>0) then Result := r;

  r := CookieManager_check('Set-Cookie: name1=value1; domain=.all.abc'
                , 'all.abc'
                , 'http://all.abc/index'
                , true
                , 'bug: can not get own cookie');
  if (r<>0) then Result := r;

  r := CookieManager_check('Set-Cookie: name1=value1; path=/;'
                , 'denyall.abc'
                , 'http://denyall.abc.localhost/index'
                , false
                , 'bug: send other domain''s cookie');
  if (r<>0) then Result := r;

  r := CookieManager_check('Set-Cookie: name1=value1; path=/;'
                , 'denyall.abc'
                , 'http://denyall.bc/index'
                , false
                , 'bug: send other domain''s cookie');
  if (r<>0) then Result := r;

  if (Result = 0) then Writeln(' ok : testCookieManager');
end;

begin
  Writeln(gsIdProductName + ' ' + gsIdVersion);

  Halt(TestCookie());
end.

ブラウザで確認したい場合 【　．で始まるクッキーの場合】

asp.netだとサンプルを作りにくいのでphpをサーバーに置きます。
---サーバーに保存します----ｐｈｐのファイルです--------
<?php
  // cookie_test.php
   $s = '';
   if (isset($_COOKIE['name1'])) { $s .= 'name1='.$_COOKIE['name1']."\r\n"; }
   if (isset($_COOKIE['name2'])) { $s .= 'name2='.$_COOKIE['name2']."\r\n"; }

   setcookie ('name1','value1' ,time()+60*60*24*30, '/', '.example.com');
   setcookie ('name2','value2' ,time()+60*60*24*30, '/', 'example.com');
   header('Content-type: text/plain');

   print $s;
?>
-----------------------------------------------
example.comは、適当に自分のドメインに置き換えてください。
このファイルにIEやFirefoxでアクセスしてください。
２回ほどアクセスすると２つクッキーが表示されると思います。

しかし、Indyでは、パッチを適用しない場合は、１つしか表示できません。

バグの再現コードです。 (上のphpとセットで使用します)
-----------------------------------------------
 example code
-----------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
  var i:Integer;
begin
  Memo1.Text := IdHTTP1.Get(Edit1.Text);
  Memo2.Clear;
  for i := 0 to IdCookieManager1.CookieCollection.Count-1 do
    Memo2.Lines.Add(IdCookieManager1.CookieCollection.Items[i].CookieText);
end;

----------------------------------------------
サーバを経由しないで単体で確認したい場合は、上の DOS版を利用します

おまけ：
C:\WINDOWS\SYSTEM32\DRIVERS\etc\hosts
に、 127.0.0.数字  ホスト名[ドメイン名]
みたいに追加して、apache等のサーバーを起動すると
容易にローカルでデバッグできると思います。

-----------------------
ssl通信のはじめにエラー
最新版は、どうも一緒に配布してあるdllだと古くてエラーになるようです。
 ソースコードを見ると以下のようにありました。
 自分でコンパイル済みのdll最新版を入れるようにだと・・・

Indy OpenSSL now uses the standard OpenSSL libraries
for pre-compiled win32 dlls, see:
http://www.openssl.org/related/binaries.html
recommended v0.9.8a or later

バグ報告してあげようと思ったのですが、バグ報告ページに接続できないので、あきらめました。
（また海外のメーリングリストは、ウイルス・スパムメールの嵐に遭うので関わる気はありません。）

　ポカ。。。(((∂。∂)ﾝ
あれ？　私は誰　いまなにしていました？
　あれれ・・・

追記：2007年７月でも修正されていなかったので、newsグループに報告しました。
追記：Snapshotをみても反応が無かったので、QualityCentralに登録しました。 openされたようです。
追記：2007.10 RightStrがTextEndsWithに変更されていることを確認しました。
           関数名が変わっただけで欠陥は直っていないようです。

Indyのバージョンの確認方法
(新規フォームにボタンを貼って、コードを置き換えてください)

uses IdAbout;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdAbout.ShowDlg
end;

Indy10のクッキー欠陥（version  〜10．1．6）

（version  10．1．6）
Indy10のクッキーの欠陥を
もう一つ発見しましたので
掲載しました。

Indy10を使ってブラウザとして利用されている方は注意が必要です。

Indyの最新版のインストールの仕方[Delphi2005]
に掲載しています

起動したプログラムが終了するまで待機するには

執筆：2007.01.22
編集：2007.01.22

起動したプログラムが終了するまで待機するには

System.Diagnostics.Process

WshShellオブジェクト

参考

起動したプログラムの終了を待たない関数は
 ShellExec関数(Win32API)
などがあります。

バージョン管理 win編 Subversion(Quick Start)

執筆：2007.01.10

忘れっぽいので、覚え書きです。

※ Windowsで使う用途で記述していますが、Linux系なら標準で利用できるようです。

※ インストール後、試用２０分間程度のまとめです。

インストールした経緯：
  StarTeamだと比較的最新のDelphi(BDS)以外管理できないし
　Winのソフトなどをcvsでバージョン管理しようとおもっていたのですが、
　cvsサイトにいっても、うまくファイルを揃えることができませんでした。
  　そして偶然、Subversionという類似品を発見し、インストールしました。

下記の３つをそろえると、とても操作性がいいです。very good!

の３つをダウンロードします。

tortoisesvnのヘルプを見ながらテストしてみます。
日本語パックをインストールしてからのほうがいいと思います。

基本的に、tortoisesvnのヘルプを読むだけで操作できるようです。

データが消えると困るので
テストは、フラッシュメディアでやってみました。

同一ＰＣで、管理と両方使う場合

[tT]humbs.db    */[tT]humbs.db
*.[tT][mM][pP]  */*.[tT][mM][pP]
は共通の除外ファイルに設定していた方がいいでしょう？

Linux系にアクセスする場合は、大文字小文字を区別するので注意しましょう。

【Tios】

【ここがいまいち】

【最後に】
　古いバージョンも同時に、修正したりしたかったので
　いいツールが無料で見つかってよかったです。

自動バックアップは、.vbsに処理を書くからいいとして

　いままで、古いプロジェクトをlzhかzipに圧縮してたので、
いままでどうり、
ソースとかを zip,lzh,gzのどれかで、自動保存もしてくれると非常にありがたいのですが・・・
イベントが登録できるようなので
やり方は、おぉおぃ探すことにしましょう。

【削除と再構築編】
　完全に消したいデータが、でてきた場合には避けられない。