くだすれDelphi(超初心者用)その54

1 ：11/12/28 〜 最終レス ：12/01/24

Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だか分からない質問を
勇気を持って書き込むスレッドです。
Delphi使いが優しくコメントを返しますが
お礼はDelphiの布教と初心者の救済をお願いします。
<前スレ>
くだすれDelphi(超初心者用)その53
http://toro.2ch.net/test/read.cgi/tech/1309101455/
<過去スレ>
DelWiki避難所（Delphi 関連の過去スレッド）
http://delwiki.info/?%E3%83%AA%E3%83%B3%E3%82%AF%2F%E3%82%B3%E3%83%9F%E3%83%A5%E3%83%8B%E3%83%86%E3%82%A3%2FDelphi%20%E9%96%A2%E9%80%A3%E3%81%AE%E9%81%8E%E5%8E%BB%E3%82%B9%E3%83%AC%E3%83%83%E3%83%89

2 ：

<関連スレ>
delphiで作った有名ソフトって何があるの？
http://hibari.2ch.net/test/read.cgi/tech/1135654787/
【Delphi互換!?】FreePascal/Lazarus その2【GPL】
http://hibari.2ch.net/test/read.cgi/tech/1261676778/
ネットワークゲーム作成のお勉強（Delphi専用スレ）
http://hibari.2ch.net/test/read.cgi/gamedev/1028278884/
Delphiでアクションゲームが作りたい！！ Part2
http://hibari.2ch.net/test/read.cgi/gamedev/1027482533/
delphiでMMO
http://hibari.2ch.net/test/read.cgi/gamedev/1072515100/
では質問どうぞ。

3 ：

完走？落ちた？

4 ：

984で落ちたような

5 ：

もう人いなんだからスレ立てる必要ねぇよ

6 ：

時代はLazarus

7 ：

delphi7なんだけど、CombBoxって文字の右寄せって出来ない？
ググったらEditコントロールは出来るみたいだけど。

8 ：

Delphiじゃなくて　WindowsのCOMBOBOXには右寄せというのは無いからね
オーナードローで描画すれば右寄せ表示も出来るけど、文字入力もしたいんだよね？
Editコントロールで入力して ListBoxを動的に表示させるとか

9 ：

CreateWndした後だとprotectedなメンバのEditHandleにエディット部分のhwndが入っているようなので、
こいつを使ってStyleを書き換えればできそう。

10 ：

とりあえずコンポーネントを作らないやりかた。まずフォームのinterface部の先頭に
type
　TComboBox = class(StdCtrls.TComboBox)
　private
　　FAlignment: TAlignment;
　　procedure SetAlignment(const Value: TAlignment);
　public
　　constructor Create(AOwner: TComponent); override;
　　procedure CreateWnd; override;
　　property　Alignment: TAlignment read FAlignment write SetAlignment;
　end;
とする。

11 ：

んでもって実装はこんな感じ。
constructor TComboBox.Create(AOwner: TComponent);
begin
　inherited;
　FAlignment := taLeftJustify;
end;
procedure TComboBox.CreateWnd;
const
　Alignments: array[TAlignment] of DWord = (ES_LEFT, ES_RIGHT, ES_CENTER);
begin
　inherited;
　SetWindowLong(EditHandle,GWL_STYLE,
　　　　　　　　(GetWindowLong(EditHandle,GWL_STYLE) and $FFFFFFFC) or Alignments[FAlignment]);
end;
procedure TComboBox.SetAlignment(const Value: TAlignment);
begin
　if FAlignment <> Value then
　begin
　　FAlignment := Value;
　　RecreateWnd;
　end;
end;

12 ：

でフォームに3つTComboBoxを置いて
procedure TForm1.FormShow(Sender: TObject);
begin
　ComboBox1.Alignment := taLeftJustify;
　ComboBox2.Alignment := taRightJustify;
　ComboBox3.Alignment := taCenter;
end;
でもこれだと設計時にAlignmentを指定できないので、それがいやならTComboBoxから派生したコンポーネントを
作ってインストールする。注意事項としてはWindows NT4では複数行ではないEDITにES_RIGHT/ES_CENTERを
指定できないためこれだけではうまくいかないということと、ひょっとしたらStyleにES_AUTOHSCROLLも入れたほうが
いいかも、ということくらいかな。

13 ：

うおおおおおおお
皆さん、ありがとうございます。
10さん、まだ試してないですが使わせていただきます。
本当にありがとうございました。

14 ：

DELPHIの既存システムに無線ハンディ売上システムを
アドオンしようとしてるんだけど、
ハンディサーバーは既存でVB.NETでいい感じのシステムがあるんだよね
俺はどの戦略をとるべきかな
ちなみにDELPHI7だけど、俺の職歴はDEL3.1CSで止まってる
１．DELPHIでハンディサーバーシステムを新規構築
　　(マルチスレッドなTCPサーバーを作るの面倒)
２．VB.NETサーバー側にDELPHI後方処理を移植
　　(既存システムの後方処理を使い回しできない)
３．VB.NETサーバーを利用し、DELPHI後方処理をDLLパックしてコール
(変数の受け渡し等でシリアライズとか問題発生しないかな)
燃料だとでも思ってなんか意見ください

15 ：

手間が少ないのは3だろ

16 ：

>>15
最近の異言語間のマーシャリングとか得意じゃないんだけど
VB.NETとDEL7ってあんまり気を使わないで済むのかな

17 ：

COMで呼べばいいじゃん

18 ：

俺だったら全部Delphiでやるけどね。　既存設計の良い所真似してより便利にしてやれば喜んでくれるだろう。
下手に既存との両立とかしたらアレは向こうの問題だとか　問題の切り分けで面倒な事になる。
でも、久しぶりのDelphiだと慣れてないって事もあるだろうからお勧めは出来ないな。
自作のコンポ大量にある場合向けだな。
で、VB.NETとの共存なら、コールバックとかややこしい事しなくても、DelphiからVB.NETのサーバーにアクセスすりゃいいんじゃないの？
プロトコルが判ってるんならだけどさ。
何かデータ加工してもらわないといけないのなら、VB.NET側で加工してファイル渡しで作ればいいじゃない。

19 ：

Delphi1〜4まで持ってたんだけど
今再開するとしたら有利なアップグレードパスはありますか？
フリー版ってもうないんですよね

20 ：

>>15,17,18
ご意見ありがとうございます
TThreadやSocketの経験はあるのですが、
今日実際に通信サーバーを作ろうとしたらApplication.ExeName
すらぐぐらないと思い出せない始末
この分では２週間ぐらいかかってしまうので
VB通信サーバー　−＞　FireBirdトランかきこ
−＞　Delphi監視サーバー　−＞　伝票自動発行
の流れで行こうと思います。（監視サーバーは定期監視か可能ならSocket通知）

21 ：

>>19
とりあえずStarter SKU(Delphi XE2 Starter)でいいのでは？これで足りないようなら今年の9月頃にXE3が出ると思うんで、
そのときにジャンプアップキャンペーンがあればこれでPro以上のSKUにするのがオヌヌメ。

22 ：

mainmenuを使って
メニューを作っています。
コンパイルすると
メニューの文字の左側に（アルファベット1文字）が追加されています。
例）ファイル（Ｘ）
開く（Ｙ）
閉じる（Ｚ）
カッコとアルファベットを消す方法を教えて下さい。

23 ：

つAutoHotkeys

24 ：

maManualにしたらできました。
ありがとうございます。

25 ：

delphi3の頃から見かける質問だがいまだにこれが出るって事は新規がまだいるんだなぁ

26 ：

ホットキーがついてないのって出来損ないのクロスプラットフォームアプリでしか見かけないな

27 ：

ツールボタンしか用意してないものとかもあるもんな

28 ：

Delphi6使ってるんですが、Indy9はHTTP1.1に対応していますか？
ヘルプには
IdHTTP1->ProtocolVersion のデフォルトは pv1_1　と書いてありますけど。
Transfer-Encoding: chunked　だと途中でファイルが途切れることがあるみたいなのですが・・・

29 ：

それはDelphiじゃなくてIndy側の問題。どうせオープンソースだから自分で直せ

30 ：

>>28
chunkedなデータって元々サイズ指定がなかったりするから
途切れてるんじゃなくてそれで正常って可能性もあるんじゃね？

31 ：

RFC嫁

32 ：

ネットモニタで見てみたら、ちゃんとデータは鯖から送信されていました。
なので、Indyがchunkedに対応していない、あるいはバグのようです。
>>30 ちなみに、chunkedはブロックごとにサイズ指定して送信してくる方式ですよ。
いろいろ試行錯誤してみた結果、
ProtocolVersion:=pv1_0 にするとchunked形式ではなく普通の形式で送信される
ので、とりあえずはそれで回避しましたが、なんか鯖の反応が遅くなるみたいです。
Indyのソースは見てみましたが、膨大で挫折しました。
どこを見ればいいんでしょうか。

33 ：

Delphi初心者です

34 ：

Delphi初心者です
マルチクライアントなTCPサーバーを作ろうと思うのですが、
TTcpServerというのを使えばいいんでしょうか？
バグとか機能的に使えんとかいうご意見があれば教えてくさい
あと、それよりこっちがいいよっていうコンポーネントなんか
あったら教えてくさい

35 ：

Ararat Synapse にマルチクライアントなTCPサーバーのサンプルがついてるよ

36 ：

>>35
34です。ありがとうございます。調べてみます。
TTcpServerは使い物にならないってことですかね？

37 ：

特に理由がなければC#とかの方がいいよ

38 ：

ほんとだったら.Net Frameworkでやりたいんですが、今回はDelphi言語指定です

39 ：

まぁ、TTcpServerぐらいなら元のWinSockラップしてるだけだし。
バグとか大丈夫なんじゃ。ソースも簡単に追える程度でしょ。

40 ：

>>39
34です。とにかく情報が少なすぎて不安ですが、チャレンジしてみます
ありがとうございました

41 ：

つ ttp://docwiki.embarcadero.com/CodeExamples/XE2/en/TTcpServer_%28Delphi%29

42 ：

はい、そこは見てます。これぐらいしかないんですｗ

43 ：

>>32
サイズって全体のサイズな
細切れ毎のサイズだけでは全体がいくつか分かんないでしょ

44 ：

>>42
古いものだけど、TServerSocketの方が情報はあるかもしれない
簡単に言えばTTcpServerの旧世代版みたいなもの
標準ではインストールされてなかったと思うけど、一応最新のDelphiにも入ってたはず
導入方法はググれ

45 ：

>>32
Content-LengthとTransfer-Encoding: chunked が同時に指定されている場合に
鯖によって問題出る事があって昔Janeでバグ修正してるけど関係あるかな？
TIdCustomHTTP.ReadResultの判定順序変えてるけど

46 ：

>>37
C#でサーバーとな。気は確かか？

47 ：

.NETはWinForm,WPFなどのクライアントよりASP.NETなどのサーバー分野の方が強いんだけど

48 ：

いや、別に止めないけど

49 ：

Delphi+Indyに比べれば何でもましだろ

50 ：

だな

51 ：

というかArarat Synapse のサンプルはマルチスレッドだから実用に耐えるよ。
Indyは確かに糞だよ。

52 ：

パッケージ・インストールの質問です。
TMS SoftwareのTAdvListViewをインストールしようとしていますが、
次のようなエラーが出ます。
パッケージ C:\Users\Public\Documents\RAD Studio\9.0\Bpl\alvPkgDXE2.bplは
異なる Delphi または CBuilder で作成されたためインストールできません。
コンパイルはエラー無く終了します。上記のalvPkgDXE2.bplは、
正常にコンパイルした結果でファイルの更新日付は新しくなっています。
TMS Softwareのサポートにもメールで問い合わせましたが、解決の
糸口がつかめません。bplのファイルを生成するときに、バージョンを
指定するオプションがあるのかと探していますが、
手詰まりになってきました。
'異なるDelphiまたはCBuilderで作成'というキーワードから、点検のポイント
がわかればご教授ください。

53 ：

私教授じゃないから教示はできても教授はできないわ

54 ：

この際Lazarusに移行しちゃえば？

55 ：

_alvPkgDXE2.bpl
にでもリネームしてみる

56 ：12/01/24

52です。
この件クローズです。
直接の原因はTAdvStringGridがインストールされているためでした。
そもそも、TAdvListViewと共存できるのかTMS Softwareに確認しています。
お騒がせしました。