Delphiの将来

解決

mk 2017-08-16 09:00:00 No: 48731

ﾂﾂ催・凝淞、Delphiﾂつｪﾂ鳴ｳﾂ渉楪可ｻﾂつｳﾂづｪﾂづ慊つｵﾂつｽﾂつｪﾂ、ﾂ堕環陛渉づｭﾂづｧﾂつｸﾂ篠ｩﾂ閉ｪﾂづ個づ慊づｭﾂづｨﾂづ・づ債、
Delphiﾂづｰﾂ使ﾂつ､ﾂ人ﾂつｪﾂ堕敖つｦﾂづ・つｨﾂづｨﾂづ慊つｹﾂづｱﾂ。ﾂ凝淞年ﾂづ昂isual C#ﾂづ按づ・、ﾂ優ﾂづｪﾂつｽﾂ甘つ仰ｫ
ﾂつｪﾂ鳴ｳﾂ渉楪づ・津ｱﾂ仰淞つｳﾂづｪﾂづｩﾂづｦﾂつ､ﾂづ可づ按づ・づ・つ｢ﾂづｩﾂつｱﾂづ・つｪﾂ、ﾂつｻﾂづ個妥･ﾂつｫﾂづ按要ﾂ暗ｶﾂつｾﾂづ・環ｴﾂつｶﾂづ・ﾂつ｢ﾂづ慊つｷﾂ。

ﾂﾂ個淞催ｵﾂつｷﾂづｩﾂづ・、ﾂ古つ人ﾂつｪﾂ催ｬﾂ青ｬﾂつｵﾂづ・つ｢ﾂづｩﾂコﾂδ督ポﾂーﾂネﾂδ督トﾂづ｢ﾂドﾂキﾂδ・δ・δ督トﾂづ按づ・ﾂづ債、Unicodeﾂ氾・elphiﾂづ・づ債使ﾂつｦﾂづ按つ｢ﾂづﾂづ個づﾂ堕ｽﾂつｭﾂづ按づ・づ・つｨﾂづｨﾂ、ﾂδ・δ督テﾂナﾂδ督ス
ﾂつｪﾂづ按つｳﾂづｪﾂづ按つ｢ﾂづ慊づ慊陛ｺﾂ置ﾂつｳﾂづｪﾂづ・つ｢ﾂづｩﾂケﾂーﾂスﾂつｪﾂ姪堋猟ｧﾂづつづｦﾂつ､ﾂづ可環ｴﾂつｶﾂづ慊つｷﾂ。
ﾂつｻﾂづ個つｽﾂづ淞、ﾂ債｡ﾂ、Delphiﾂづｰﾂ鳴ｳﾂ猟敖づ可使ﾂつ｢ﾂ堕ｱﾂつｯﾂづｩﾂつｱﾂづ・づ可仰ｭﾂつ｢ﾂ不ﾂ暗ﾂづｰﾂ覚ﾂつｦﾂづ・つ｢ﾂづ慊つｷﾂ。

ﾂﾂづﾂづ・づﾂづ・elphiﾂづ債、DBﾂづ個クﾂδ可イﾂアﾂδ督トﾂづｰﾂ催ｬﾂ青ｬﾂつｷﾂづｩﾂつｽﾂづ淞づ個ツﾂーﾂδ仰つｾﾂづ・つｽﾂつｩ
ﾂづ・思ﾂつ｢ﾂづ慊つｷﾂつｪﾂ、Webﾂシﾂスﾂテﾂδﾂつｪﾂ偲･ﾂ猟ｬﾂづ・づ按づ・つｽﾂ債｡ﾂ、ﾂつｻﾂづ個暗督義ﾂづﾂつｷﾂづ・づ可篠ｸﾂづｭﾂづｪ
ﾂづつづつつﾂづｩﾂづ個づ・づ債づ按つ｢ﾂつｩﾂづ・思ﾂつ｢ﾂづ慊つｷﾂ。ﾂ皆ﾂつｳﾂづｱﾂづ債づ・づ個づｦﾂつ､ﾂづ按づ・つｫﾂ、ﾂづ・づ個づｦﾂつ､ﾂづ・ﾂ姪堋的ﾂづ・elphiﾂづｰﾂ使ﾂづ・づ・つ｢ﾂづ慊つｷﾂつｩﾂ？ﾂつｻﾂづ個づ・つｫﾂ、C#ﾂづ按づ・づ・づ按つｭﾂ、Delphiﾂづ・づ按つｭ
ﾂづ・づ債づ按づｧﾂづ按つ｢ﾂ猟敖由ﾂづ債づ按づｱﾂづ・つｷﾂつｩﾂ？

ﾂ Delphiﾂづ債氾ｱﾂ湘ｭﾂづ可づｦﾂつ｢ﾂ個ｾﾂ古ｪﾂつｾﾂづ・思ﾂづ・づ・つｨﾂづｨﾂ、ﾂ偲ｨﾂ陛ｺﾂつｷﾂづ個づ債静可つｵﾂつ｢ﾂづ・思ﾂつ｢ﾂづ慊つｷﾂ。
ﾂづ・つｷﾂつｪﾂ、ﾂ氾ｱﾂ湘ｭﾂづ可マﾂイﾂナﾂーﾂづ按個ｾﾂ古ｪﾂづ・つﾂづｩﾂつｱﾂづ・づ可陛渉づｭﾂづｨﾂづ債つﾂづｨﾂづ慊つｹﾂづｱﾂ。ﾂδ・δ督テ
ﾂづｰﾂ円ﾂ環環づ可行ﾂつ､ﾂつｽﾂづ淞づ可づ債、ﾂδ・ジﾂδδーﾂづ按個ｾﾂ古ｪﾂ、ﾂ湘ｮﾂ陛ｱﾂつｪﾂ豊ﾂ富ﾂづ按個ｾﾂ古ｪﾂ、ﾂ堕ｽﾂつｭﾂづ個δ・ー
ﾂザﾂーﾂづ・湘ｮﾂ陛ｱﾂづｰﾂ古ｰﾂ環ｷﾂづ・つｫﾂづｩﾂ個ｾﾂ古ｪﾂづ個陛ｻﾂつｪﾂづｦﾂつ｢ﾂづ・環ｴﾂつｶﾂづ・つｨﾂづｨﾂづ慊つｷﾂ。
ﾂつｻﾂつ､ﾂつ｢ﾂつ､ﾂ点ﾂづｰﾂ考ﾂ猟ｶﾂつｵﾂつｽﾂつ､ﾂつｦﾂづ・づ按つｨﾂ、Delphiﾂづｰﾂ使ﾂつ､ﾂつｱﾂづ・つｪﾂ催・適ﾂづ按湘ｪﾂ姪環づ按づ・つｪ
ﾂつﾂづｪﾂづ篠、ﾂ皆ﾂつｳﾂづｱﾂづ個つｲﾂ暗督個ｩﾂづｰﾂつｨﾂ閉ｷﾂつｩﾂつｹﾂつｭﾂつｾﾂつｳﾂづｪﾂづ篠づ・思ﾂつ｢ﾂづ慊つｷﾂ。

mk 2017-08-16 09:00:00 No: 48735

ﾂつｷﾂづ敖づ慊つｹﾂづｱﾂ。ﾂ渉ｭﾂつｵﾂ荒ﾂづｪﾂつｻﾂつ､ﾂづ按話ﾂ妥ｨﾂづ可づ按づｨﾂつｻﾂつ､ﾂづ按づ個づ・、ﾂつｱﾂづｪﾂづ・づ｢ﾂづ淞づ慊つｷﾂ。
ﾂ個ｻﾂ湘ｳﾂ、ﾂ篠ｩﾂ閉ｪﾂづ・づ垢#ﾂづ可湘ｦﾂづｨﾂ環ｷﾂつｦﾂ催渉づ・つｷﾂ。ﾂ篠ｩﾂ閉ｪﾂづ・づ債つﾂづ慊づｨDelphiﾂづｰﾂ使ﾂつ､ﾂつｱﾂづ・つｪ
ﾂづ按つｭﾂづ按づｨﾂづ慊つｵﾂつｽﾂつｪﾂ、ﾂつ｢ﾂつ｢ﾂツﾂーﾂδ仰づ・つﾂづｩﾂつｱﾂづ・づ可づ債陛渉づｭﾂづｨﾂつﾂづｨﾂづ慊つｹﾂづｱﾂづ個づ・、ﾂ鳴｢
ﾂ療ｻﾂつｪﾂづ慊つｵﾂつｭﾂ渉堕つ｢ﾂづ・づ敖つｽﾂつｾﾂつｯﾂづ・つｷﾂ。
ﾂ債｡ﾂ更ﾂづ堋づ｢ﾂつ｢ﾂづ・づﾂ可ｽﾂづﾂ陛渉づｭﾂづｧﾂづ按つ｢ﾂづ・思ﾂつ｢ﾂづ慊つｷﾂつｵﾂ、ﾂ青ｶﾂ産ﾂ的ﾂづ・づ債つﾂづｨﾂづ慊つｹﾂづｱﾂづ個づ・、
ﾂつｱﾂづｪﾂづ・終ﾂづｭﾂづｨﾂづ可つｵﾂづ慊つｷﾂ。ﾂつﾂづｨﾂつｪﾂづ・つ､ﾂつｲﾂつｴﾂつ｢ﾂづ慊つｵﾂつｽﾂ。

ﾂ・ｦC#ﾂづ債前ﾂ評ﾂ板ｻﾂ津環づｨﾂ、ﾂづｦﾂつ｢ﾂツﾂーﾂδ仰づ・つｷﾂ。

Harry 2017-08-16 19:33:36 No: 48732

とりあえず翻訳しておきますね (^^;
※文字化けの原因は分かりませんが、ブラウザ種別のみで問題が発生するわけではないと思います。

=================================================================
最近、Delphiが無償化されましたが、相変わらず自分のまわりでは、
Delphiを使う人が増えておりません。近年はVisual C#など、優れた環境
が無償で提供されるようになっていることが、その大きな要因だと感じて
います。

検索すると、個人が作成しているコンポーネントやドキュメントなど
は、Unicode版Delphiでは使えないものも多くなっており、メンテナンス
がなされないまま放置されているケースが目立つように感じます。
そのため、今、Delphiを無理に使い続けることに強い不安を覚えています。

もともとDelphiは、DBのクライアントを作成するためのツールだったか
と思いますが、Webシステムが主流となった今、その意義もすでに失われ
つつあるのではないかと思います。皆さんはどのようなとき、どのような
目的でDelphiを使っていますか？そのとき、C#などでなく、Delphiでなく
てはならない理由はなんですか？

Delphiは非常によい言語だと思っており、手放すのは惜しいと思います。
ですが、非常にマイナーな言語であることに変わりはありません。メンテ
を円滑に行うためには、メジャーな言語、情報が豊富な言語、多くのユー
ザーと情報を交換できる言語の方がよいと感じております。
そういう点を考慮したうえでなお、Delphiを使うことが最適な場面などが
あれば、皆さんのご意見をお聞かせくださればと思います。
=================================================================

igy 2017-08-16 22:26:07 No: 48733

Delphiの価格
https://www.petitmonte.com/bbs/answers?question_id=8614

での書き込みでは、

> Pascal言語（Delphi）に見切りをつけ、フリーの環境で開発が行えるC#に
> 乗り換えようと思っています。実際のところ、すでにC#で用が足りる部分が
> 増えてきましたので。

と書かれていましたが、

> 今、Delphiを無理に使い続けることに強い不安を覚えています。

とありますが、まだ、Delphiに見切りをつけていなかったのですか？

通りすがり 2017-08-17 04:01:27 No: 48734

何を作るのかによるんじゃないですか？あとはどれだけ自分で作ってどれだけネット上のものをパクるか、ですかね。
何も考えずにパクるんならC#のほうが情報源が多くていいんじゃないでしょうか。あんまりRADじゃないしXAMLとか
苦行でしかないですけど。逆にWindowsでも組み込み的なプアーな環境であれば.NET FrameworkのJITが負担に
なるのでネイティブ(Delphi/C++Builder)のほうがいい、とか。

Harry 2017-08-17 20:55:48 No: 48736

また翻訳しておきますね (^^;

=================================================================
mk 2017/08/16(水) 21:11:44 書込メID：[ #$!'##"JEGC;462ヰ^真ｿヰ^真ｾヰ^真ｿ ]
[[解決]]
すみません。少し荒れそうな話題になりそうなので、これでやめます。
現状、ゥ分ではC#に乗り換え済です。ゥ分ではあまりDelphiを使うことが
なくなりましたが、いいツールであることには変わりありませんので、未
練がましく書いてみただけです。
今更ぼやいても何も変わらないと思いますし、生産的ではありませんので、
これで終わりにします。ありがとうございました。

※C#は前評判通り、よいツールです。
=================================================================

遅ればせながら私も意見を。

Delphiを取り巻く環境が年々厳しくなっているのは承知しています。
世界的に著名なユーザーやサイトがDelphiに別れを告げているのをたくさん見ました。
離れて行く理由は.Netだったり、メーカーの姿勢に反発していたり。
とても残念ですが、いち趣味ユーザーとしては傍観するしかありません。

＞皆さんはどのようなとき、どのような目的でDelphiを使っていますか？
この文字化けのように、困った時、必要な時にツールを作ってます。

＞C#などでなく、Delphiでなくてはならない理由はなんですか？
私にとって、Delphi（のソース構成）が圧倒的に分かりやすいからです。

Harry 2017-08-17 21:08:46 No: 48737

おやおやっ！？
mkさんの書き込みの翻訳文、一部が別パターンの文字化けをしてしまいましたね…これは不思議です。

× 書込メID
○ 書込者ID

× ゥ分
○ 自分

となります。失礼しました。

Harry 2017-08-17 21:16:20 No: 48738

これに乗じて…文字化け対応ブラウザ（ミニマム版）を投稿しておきますね (^^;
※Button2Clickで、本掲示板特有の文字化けを修復します。

implementation

{$R *.dfm}

uses
UrlMon, // URLOpenBlockingStream
ActiveX; // IStream、他

// 生のHTMLソースをダウンロードする
// 理由：ブラウザから取得すると、化けているデータのうちShift_JISに存在しない
// 文字コードに化けた部分（た行、だ行など）は「・」に置換されているためデータが
// 失われた状態となり、文字化けを復元する際に正しく元の文字に戻すことが出来ない。
// 参考： http://stackoverflow.com/questions/11074772/urlopenblockingstream-gives-same-page
function DownloadFromURL(URL : String): AnsiString;
var
  ppStream: IStream;
  statstg: TStatStg;
  dwRead: Integer;
begin
  Result:='';
  if Failed(URLOpenBlockingStream(nil, PChar(URL), ppStream, 0, nil)) then Exit;

  try
    if Succeeded(ppStream.Stat(statstg, STATFLAG_NONAME)) and
       (statstg.cbSize>0) then begin
      SetLength(Result, statstg.cbSize);
      ppStream.Read(Pointer(Result), statstg.cbSize, @dwRead);
    end;
  finally
    ppStream:=nil;
  end;
end;

// データが誤って1byte毎にUTF-8エンコードされてしまった文字化けを修復する
// 副作用：化けてない正しいデータだと$C2や$C3を含む文字（つ・板など）は化ける。
function UTF8MojibakeFix(const Str: AnsiString): AnsiString;
var
  Flag: Boolean;
  I: Integer;
begin
  Result:='';
  Flag:=False;
  for I:=1 to Length(Str) do begin
    if Flag then begin
      Result:=Result+AnsiChar(Byte(Str[I])+$40);
      Flag:=False;
    end else begin
      case Str[I] of
        AnsiChar($C2): Flag:=False;
        AnsiChar($C3): Flag:=True;
      else
        Result:=Result+Str[I];
      end;
    end;
  end;
end;

// #$00 を #$20 に置換する
// 理由： AnsiString内にNull文字が混入していると、そこまでしか出力されないため。
function DeleteNull(const Str: AnsiString): AnsiString;
var
  I: Integer;
begin
  Result:=Str;
  for I:=1 to Length(Result) do begin
    if Result[I]=AnsiChar($00) then Result[I]:=AnsiChar($20);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='http://madia.world.coocan.jp/cgi-bin/DelphiBBS/wwwlng.cgi';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
const
  ScriptStr =
    'function ReplaceBody(Html){'+
    '  document.body.innerHTML=Html.replace('+
    '    /^[\s\S]*<\s*body(\s+[^>]*)?>|<\s*\/\s*body\s*>[\s\S]*$/ig, ""'+
    '  );'+
    '}';
var
  ExactHTML: AnsiString;
begin
  if VarIsClear(WebBrowser1.Document) then Exit;

  ExactHTML:=DownloadFromURL(WebBrowser1.LocationURL);
  ExactHTML:=UTF8MojibakeFix(ExactHTML);
  ExactHTML:=DeleteNull(ExactHTML);

WebBrowser1.OleObject.document.parentWindow.execScript(ScriptStr);
WebBrowser1.OleObject.document.parentWindow.ReplaceBody(ExactHTML);
end;

initialization
OleInitialize(nil);

finalization
OleUninitialize;

end.

Mr.XRAY 2017-08-18 01:21:05 No: 48739

おおっ !!
Harry さんありがとうございます．
遠慮なくいただきます．

mk 2017-08-18 09:00:00 No: 48740

ﾂつ｢ﾂづｫﾂつ｢ﾂづｫﾂづ・つｷﾂづ敖づ慊つｹﾂづｱﾂ。ﾂカﾂバﾂーﾂつﾂづｨﾂつｪﾂづ・つ､ﾂつｲﾂつｴﾂつ｢ﾂづ慊つｷﾂ。
ﾂ篠ｩﾂ閉ｪﾂづﾂづ｢ﾂづ債づｨDelphiﾂつｪﾂ暗ｪﾂ氾板偲ｨﾂづ可づ按つｶﾂづ敖づ慊つｷﾂ。C#ﾂづ可湘ｦﾂづｨﾂ環ｷﾂつｦﾂつｽﾂづ・ﾂ個ｾﾂづ・づ・づﾂ、ﾂづ｢ﾂづ債づｨﾂ偲個づ・つｪﾂつｽﾂつ｢ﾂづﾂづ個づ債つﾂづｨﾂづ慊つｷﾂ。
ﾂつｱﾂつｱﾂづ個陛ｻﾂ々ﾂづ個板ｽﾂ可楪づｰﾂ個ｩﾂづ・、ﾂ渉ｭﾂつｵﾂ心ﾂ仰ｭﾂつｭﾂ環ｴﾂつｶﾂづｩﾂづﾂづ個つｪﾂつﾂづｨﾂづ慊つｵﾂつｽﾂ。
ﾂつﾂづｨﾂつｪﾂづ・つ､ﾂつｲﾂつｴﾂつ｢ﾂづ慊つｵﾂつｽﾂ。

Harry 2017-08-19 20:28:16 No: 48741

またまた翻訳しておきますね (^^;

※書込者IDは適当に編集しました。

=================================================================
mk 2017/08/18(金) 19:42:35 書込者ID：[ #$!'## ]
いろいろとすみません。カバーありがとうございます。
自分もやはりDelphiが一番手になじみます。C#に乗り換えたと
言っても、やはり捨てがたいものはあります。
ここの方々の反応を見て、少し心強く感じるものがありました。
ありがとうございました。
=================================================================