もしくは質問者自身何が何だか分からない質問を
勇気を持って書き込むスレッドです。
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
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/
では質問どうぞ。
ググったらEditコントロールは出来るみたいだけど。
オーナードローで描画すれば右寄せ表示も出来るけど、文字入力もしたいんだよね？
Editコントロールで入力して ListBoxを動的に表示させるとか
こいつを使ってStyleを書き換えればできそう。
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;
とする。
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;
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も入れたほうが
いいかも、ということくらいかな。
皆さん、ありがとうございます。
10さん、まだ試してないですが使わせていただきます。
本当にありがとうございました。
アドオンしようとしてるんだけど、
ハンディサーバーは既存でVB.NETでいい感じのシステムがあるんだよね
俺はどの戦略をとるべきかな
ちなみにDELPHI7だけど、俺の職歴はDEL3.1CSで止まってる
１．DELPHIでハンディサーバーシステムを新規構築
(マルチスレッドなTCPサーバーを作るの面倒)
２．VB.NETサーバー側にDELPHI後方処理を移植
(既存システムの後方処理を使い回しできない)
３．VB.NETサーバーを利用し、DELPHI後方処理をDLLパックしてコール
(変数の受け渡し等でシリアライズとか問題発生しないかな)
燃料だとでも思ってなんか意見ください
最近の異言語間のマーシャリングとか得意じゃないんだけど
VB.NETとDEL7ってあんまり気を使わないで済むのかな
下手に既存との両立とかしたらアレは向こうの問題だとか 問題の切り分けで面倒な事になる。
でも、久しぶりのDelphiだと慣れてないって事もあるだろうからお勧めは出来ないな。
自作のコンポ大量にある場合向けだな。
で、VB.NETとの共存なら、コールバックとかややこしい事しなくても、DelphiからVB.NETのサーバーにアクセスすりゃいいんじゃないの？
プロトコルが判ってるんならだけどさ。
何かデータ加工してもらわないといけないのなら、VB.NET側で加工してファイル渡しで作ればいいじゃない。
今再開するとしたら有利なアップグレードパスはありますか？
フリー版ってもうないんですよね
ご意見ありがとうございます
TThreadやSocketの経験はあるのですが、
今日実際に通信サーバーを作ろうとしたらApplication.ExeName
すらぐぐらないと思い出せない始末
この分では２週間ぐらいかかってしまうので
VB通信サーバー −＞ FireBirdトランかきこ
−＞ Delphi監視サーバー −＞ 伝票自動発行
の流れで行こうと思います。（監視サーバーは定期監視か可能ならSocket通知）
とりあえずStarter SKU(Delphi XE2 Starter)でいいのでは？これで足りないようなら今年の9月頃にXE3が出ると思うんで、
そのときにジャンプアップキャンペーンがあればこれでPro以上のSKUにするのがオヌヌメ。
メニューを作っています。
コンパイルすると
メニューの文字の左側に（アルファベット1文字）が追加されています。
例）ファイル（Ｘ）
開く（Ｙ）
閉じる（Ｚ）
カッコとアルファベットを消す方法を教えて下さい。
ありがとうございます。
ヘルプには
IdHTTP1->ProtocolVersion のデフォルトは pv1_1 と書いてありますけど。
Transfer-Encoding: chunked だと途中でファイルが途切れることがあるみたいなのですが・・・
chunkedなデータって元々サイズ指定がなかったりするから
途切れてるんじゃなくてそれで正常って可能性もあるんじゃね？
なので、Indyがchunkedに対応していない、あるいはバグのようです。
>>30 ちなみに、chunkedはブロックごとにサイズ指定して送信してくる方式ですよ。
いろいろ試行錯誤してみた結果、
ProtocolVersion:=pv1_0 にするとchunked形式ではなく普通の形式で送信される
ので、とりあえずはそれで回避しましたが、なんか鯖の反応が遅くなるみたいです。
Indyのソースは見てみましたが、膨大で挫折しました。
どこを見ればいいんでしょうか。
マルチクライアントなTCPサーバーを作ろうと思うのですが、
TTcpServerというのを使えばいいんでしょうか？
バグとか機能的に使えんとかいうご意見があれば教えてくさい
あと、それよりこっちがいいよっていうコンポーネントなんか
あったら教えてくさい
34です。ありがとうございます。調べてみます。
TTcpServerは使い物にならないってことですかね？
バグとか大丈夫なんじゃ。ソースも簡単に追える程度でしょ。
34です。とにかく情報が少なすぎて不安ですが、チャレンジしてみます
ありがとうございました
サイズって全体のサイズな
細切れ毎のサイズだけでは全体がいくつか分かんないでしょ
古いものだけど、TServerSocketの方が情報はあるかもしれない
簡単に言えばTTcpServerの旧世代版みたいなもの
標準ではインストールされてなかったと思うけど、一応最新のDelphiにも入ってたはず
導入方法はググれ
Content-LengthとTransfer-Encoding: chunked が同時に指定されている場合に
鯖によって問題出る事があって昔Janeでバグ修正してるけど関係あるかな？
TIdCustomHTTP.ReadResultの判定順序変えてるけど
C#でサーバーとな。気は確かか？
Indyは確かに糞だよ。
TMS SoftwareのTAdvListViewをインストールしようとしていますが、
次のようなエラーが出ます。
パッケージ C:\Users\Public\Documents\RAD Studio\9.0\Bpl\alvPkgDXE2.bplは
異なる Delphi または CBuilder で作成されたためインストールできません。
コンパイルはエラー無く終了します。上記のalvPkgDXE2.bplは、
正常にコンパイルした結果でファイルの更新日付は新しくなっています。
TMS Softwareのサポートにもメールで問い合わせましたが、解決の
糸口がつかめません。bplのファイルを生成するときに、バージョンを
指定するオプションがあるのかと探していますが、
手詰まりになってきました。
'異なるDelphiまたはCBuilderで作成'というキーワードから、点検のポイント
がわかればご教授ください。
にでもリネームしてみる
この件クローズです。
直接の原因はTAdvStringGridがインストールされているためでした。
そもそも、TAdvListViewと共存できるのかTMS Softwareに確認しています。
お騒がせしました。
普段はテキスト選択のあとにキャレットを移動させると
テキスト選択が解除されますが
使っているうちに何か変なキー操作をしてしまったのか
テキスト選択モードが変わってしまったようで
キャレットを移動してもテキスト選択が解除されません。
これはどうやったら元に戻る（切り替えられる）のでしょうか。
ヘルプを見たのですが分かりませんでした。
答えられないならレスすんな、カス
をつくるには
どうすればいいでしょうか。
「フォームをつくる」の意味が曖昧だけど
usesにShellAPI
WM_DROPFILES
DragQueryPoint
を検索してみたらよろしいかと
var
a : UInt64;
begin
a := $f000f000;
a := a shl 32;
showmessage(inttohex(a,16));
こういうコードの場合、shlの行でaの上位4バイトに対して負の数だったら、@BoundErrとなるように範囲チェック処理が働きます。
UInt64の場合これはおかしいように思いますが、なぜなんでしょう。実は暗黙的にUInt64もInt64として扱われるんでしょうか。
この際だから Lazarus に移行しちゃえば？
IntToHexの引数の型を見たことはある？
Delphi7でmdbをTADOQueryで読み込んでDBGridに表示しています。
そのADOQueryにはCalcFieldがあり、OnCalcFieldsイベントで
データをセットしています。
で、このクエリをDBGridに表示し終わった時に、そのCalcFieldの
値の全レコードの合計をTEditか何かに表示させたいと思って、
OnCalcFieldsイベントプロシジャの中で、
Ruikei := Ruikei + CalcFieldの値;
みたいに累計を求める式を書いてるのですが、
OnCalcFieldsイベントはDBGridに表示されているレコードしか
呼び出されないようで、全レコードの合計になってくれません。
CalcFieldの値の全レコード合計を出すにはどうすればよいでしょうか？
逆に mdb にクエリー投げたくない理由教えて。
なんでわざわざDBGrid 解して計算したいの？
DBGridには表示してるだけです。
TADOQueryでmdbにSQLを投げてます。
mdb - TADOConnection - TADOQuery - TDataSource - TDBGrid
はい、あります。Integerですよね。IntToHex自体はaの中身を表示する処理ですが、
それはあくまで、その時点でaにセットされている内容を表示する処理ですよね。
したがってaの中身が$8000000000000000であればそれが表示されるでしょう。
私が思うのは、その前のshlの段階。
shlは符号に無関係な"論理左シフト"である以上、1 shl 63は$8000000000000000と
セットされるべきで、ここに符号ありチェックが入るのは、おかしいのではないか？
という趣旨です。
参考までに、下記のようなコードでもやはり同様の現象が起きます。
var
a : UInt64;
begin
a := 1; a := a shl 63;
pcardinal( pbyte( @a ) + 4 )^ := $f; // とりあえずaを使用するためのダミー処理
逆アセして貼ってくれ
DXEで逆アセのコードを見てみたけど、まずshl 32はシフト命令を使用していない。64bitデータの
左32bitシフトは下位32bitを上位に移動して、下位32bitを0にする、という形に最適化されている。
その上でaがInt64なら範囲チェックなし、UInt64なら範囲チェックあり、というコードが生成されている。
逆じゃね？という指摘はまぁそのとおりのような気もする。
>>74
よくわからんがどうしてもDBGridを仲介させたいなら
DBGridを全スクロールさせるとかしかないわな。
俺なら別のクエリで計算させるけど。
データの簡易エディタ表示部分を作ろうとしているのですが、
Index | txt | −1− | −2− | −3− |
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
☑ฺ 1 | data1txt | −1-1txt− | −1-2txt− | −1-3txt− |▲|
☑ฺ 2 | data2txt | −2-1txt− | −2-2txt− | −2-3txt− | |
☑ฺ 3 | data3txt | −3-1txt− | −3-2txt− | −3-3txt− | |
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
[←]＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿[→]
表示は別ボタンなどで計算結果などを表示するだけ。
項目内で直接書き換えはしません。
行数はデータによって1000行ぐらいまで変動します。
チェックボックス付きの項目(有効/無効)用を入れるには ListView でいけますか？ 他にあります？
ScrollBox → ListView (ViewStyle vsReport) ？
Checkboxes
すぐできるからやってみろ
Checkboxes というコンポーネントかと思って探しまくってました orz
ListView の プロパティCheckboxes を True にするのですね。
これを探してました、ありがとう！
TProgressBarで、カウントする数字が未確定の場合などに
左右にバーが揺れながら移動するのを見かけたのですが
どのように実現するのでしょうか。
調べたら、TProgressBarには、pbstMarqueeという形式がありますが
pbstMarqueeだと、左から右にブロックが移動しますが
実現したいのは、左右に移動する形式です。
ProgressBar1.Position := 0; 〜
を ProgressBar1.Max までの範囲で直接増減させたらダメなの？
ジャンプアップで1万引きでproが買えるって話なら、結局払ってる金同じじゃん
それなら、VS2010のProを5万そこそこで買ってる方が得だと思うけど。
もっと安かったら飛びつくのだけどなdelphi。残念。
tmyclass=class
published
procedure foo;
procedure bar;
procedure baz;
end;
でpublishedなメソッドfoo,bar,bazの一覧を得る方法あったら教えて下さい。
なるべくならRTTIを使った安全な方法でおねがいします。
GetTypes(tmyclass)
GetMethods
ToString
こんな流れ
publishedかどうかの判定はTRttiMethodのメソッド、プロパティに見当たらなかったので
TMyClass.MethodAddress(Method.Name) <> nil
で判定しました。
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
Visual Studio 2005 Part 27 (113)
【あなごる】anarchy golf! (280)
Ruby最高や！ (185)
Perlについての質問箱 51箱目 (412)
雑談スレ 4 (315)
言語ってObjective-Cだけでよくね (630)
--log9.info------------------
全世界から嫌われてるパクリ大国、韓国 (167)
底辺すぎてできる仕事がない (478)
何やるにしろネットの評判が気になり何もできない (131)
【エロ厳禁】青春コンプレックスに悩む人Part3 (149)
【異常】人生、なんか変なんだ。俺自身も【不運】 (897)
自するしかありません。 (125)
■ イジメ いやがらせ イジワル の社会 ■ (803)
自したいと考えているあなたへ (391)
人生って何なんだろね？誰か助けてください。 (170)
高校時代いじめをくらった奴ちょっと来い2スレ目 (412)
仕事に行きたくないよ。。。★２ (216)
糞兄死んでほしい (239)
嫁の姑嫌い (126)
【生まれてきて】消えたい【すみません】 (361)
近いうちに自する予定のひと (492)
ブラック企業が多すぎて就職するのが怖いPart2 (304)
--log55.com------------------
【発生】雑音・ノイズ【対策】
端末盤と戦闘機製図と制御盤の唯様コーナー
大学でOPアンプ作ることになったｗｗｗｗｗｗｗｗ
電球型蛍光灯のｷﾊﾞﾝを再利用するｽﾚ 3個目
為替実業家 アステリスクの技術洗脳文
部品買っても部屋の片隅に放置だよな
もう組込みなんてやめた
工学部行こうと思ってる高二だが