くだすれDelphi（超初心者用）その１5
レス数が1000を超えています。これ以上書き込みはできません。
0001デフォルトの名無しさん
NGNGもしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Delphi使いが優しくコメントを返しますが、
お礼はDelphiの布教と初心者の救済をお願いします。
＜前スレ＞
くだすれDelphi（超初心者用）その１4
http://pc5.2ch.net/test/read.cgi/tech/1085239007/
＜関連スレ＞
Delphi相談室（中級者以上）その１２
http://pc5.2ch.net/test/read.cgi/tech/1064420818/
【ドキュメント】Delphi8 for .NET 2【どこ？】
http://pc5.2ch.net/test/read.cgi/tech/1078695271/
＜その他＞
ボーランド
http://www.borland.co.jp/
DelWiki
http://onigiri.s3.xrea.com:8080/delphi/
0951デフォルトの名無しさん
NGNG0952デフォルトの名無しさん
NGNGDBGridでやるならば、各DataSetのイベント(又は金額のOnSetFieldだっけ？等)で
１開始にTBookMark等をつかって現在地を保持
２レコードを全て回して小計をだす
３終わったら覚えていたTBookMarkで元の位置に戻る
Paradoxならこのような処理は早いはず
クラサバならTClientDataSet等を使ってローカルにデータを保持して
回せばいいと思いますよ
0953952
NGNG単純な金額の小計のみならば集合体を使ったほうがいいです
0954デフォルトの名無しさん
NGNG画像をスクロールさせて表示したいんですが・・
なんかいい方法ありますか？
0955デフォルトの名無しさん
NGNGそれはアホくさい要求だな。
TStringList.LoadFromStream(Stream);
とすると自動的に改行で区切られるから簡単。
0956デフォルトの名無しさん
NGNG'c:\pic\'+Format('%.2d',Random(11))+'.bmp';
FormCreate で Randomize; を実行しておくこと
0957デフォルトの名無しさん
NGNG'c:\pic\'+Format('%.2d',[Random(11)])+'.bmp';
0958デフォルトの名無しさん
NGNGShowMessage('終了しました');
とすると、表示されてからもアクセスが続いています。
完全に終わってから表示したいのですが、
書き込みが終わった事を知る方法をご教示願います。
Delphi6 personal で、ＯＳはＭＥです。
0959デフォルトの名無しさん
NGNG0960デフォルトの名無しさん
NGNG何万行もあるのに一括読み込みはやです。もっと頭のいい人プリーズ。
0961デフォルトの名無しさん
NGNG0962デフォルトの名無しさん
NGNGなんでやなの？
0963デフォルトの名無しさん
NGNG0964デフォルトの名無しさん
NGNG入出力元を自由指定できそうな仕組みになっているじゃありませんか。
そんで多分賢い人が既につくってるだろうと思ったからです。
Delphiって奥が深いですね。
0965デフォルトの名無しさん
NGNGアプリケーションが非アクティブ時も反応してしまいます。
で、コードの頭に if Application.Active then を付け加えると反応しませんが、
例えばメモ帳使用時に改行が出来なくなってしまいます。
正常に作動させるにはどうしたらよいでしょうか。
0967942
NGNG下記のサンプルを見つけたのですが
コンパイル出来ません。
Win APIの使い方がよくわかっていないので
もう少し情報をもらえないでしょうか?
ttp://www.delphicorner.f9.co.uk/articles/wapi9.htm
function GetUNCName(PathStr : String) : String;
var
bufSize : DWord;
buf : TUniversalNameInfo;
msg : String;
begin
bufSize := SizeOf(TUniversalNameInfo);
if (WNetGetUniversalName(PChar(PathStr), UNIVERSAL_NAME_INFO_LEVEL,
buf, bufSize) > 0) then
case GetLastError of
// ・・ 略 ・・・
end
else
msg := buf.lpUniversalName;
Result := msg;
end;
windows2000
Delphi 7
0968デフォルトの名無しさん
NGNG0969942
NGNG失礼しました。
エラー場所の場所
if (WNetGetUniversalName(PChar(PathStr), UNIVERSAL_NAME_INFO_LEVEL,
buf, bufSize) > 0) then
エラー内容
[エラー] Unit1.pas(33): '_UNIVERSAL_NAME_INFOA' と 'Pointer' には互換性がありません
0970デフォルトの名無しさん
NGNGhttp://pc5.2ch.net/test/read.cgi/tech/1087823906/l50
0971デフォルトの名無しさん
NGNGhttp://pc5.2ch.net/test/read.cgi/tech/1089719714/l50
0972デフォルトの名無しさん
NGNGbuf → @buf
0973デフォルトの名無しさん
NGNG>>706
0974デフォルトの名無しさん
NGNG> 正常に作動させるにはどうしたらよいでしょうか。
その動作が正常です。君が正常でないことを期待しているだけ。
0975デフォルトの名無しさん
NGNG>そんで多分賢い人が既につくってるだろうと思ったからです。
賢い人は数万行くらいなら悩むことなく >>955 の方法でやる。
0976デフォルトの名無しさん
NGNGそのスレにあの学生が降臨してるようだなｗ
0978デフォルトの名無しさん
NGNGぜか暗い気持ちになるな
0979デフォルトの名無しさん
NGNGちゃんとしたレスが貰えなくなるので意味が理解できないなら黙っててください。
0980デフォルトの名無しさん
NGNGStreamを避ける理由があるならReadlnでささっと書くよな。
0981デフォルトの名無しさん
NGNG0982デフォルトの名無しさん
NGNG標準のコンポであるServerSocketとClientSocketを使って
クライアントがサーバーに接続し、サーバーのデータをとりだすことはできました。
ここで、もっと基本的なことになるんですが、サーバーに接続するさいに
パスワードを必要とし、もしパスワードが一致していなければ
サーバーが接続を拒否する。
というプログラムで悩んでいます。
悩んでいるというよりも、いろいろグーグルで調べてみたんですが
きっちりと解説しているHPを見つけることができませんでした。
このへんの通信に詳しいHPがあれば、教えていただきたいですm(_ _)m
0983デフォルトの名無しさん
NGNG接続しないとパスワードも送れませんが。
0984デフォルトの名無しさん
NGNG単純なものなら
クライアントからサーバに接続。
サーバかパスワード要求送信(例えば「Password:」とか)。
クライアントからパスワード送信。
サーバが正しいパスワードが確認。
間違ってればサーバから切断。正しければ続行。
という手順になると思うけど、どこがわからない？
あ、どなたか次スレよろ。
0985デフォルトの名無しさん
NGNG>>983さん
すいません
それでは、接続したあと、クライアントがパスワードをサーバーに送信し
サーバーに設定しているパスワードでなかった場合に
サーバーが、そのクライアントの接続を切断する。
といった具合で、どうでしょうか？
0986デフォルトの名無しさん
NGNGあ、すいません、わからない部分を書いていませんでしたね・・・
サーバーがクライアントの接続を切断する
という命令がわからないんです
言葉たらずですいませんm(_ _)m
0987デフォルトの名無しさん
NGNGって怒られるんだけど、これって何処にあるの？
reademe見たんだけど書いてないみたい。
MLの過去ログ見たらD7でもあるみたいなんだけど、
漏れのにはない。
0988デフォルトの名無しさん
NGNGありがとうございました。
それでやってみます。
0989デフォルトの名無しさん
NGNGClose
0990デフォルトの名無しさん
NGNGでtextstreamなるものを見つけましたが
使い方が分かる方は教えてください。
0991デフォルトの名無しさん
NGNG三原色をどうにかする変数らしいのですが
使い方がいまいちわかりません。
ぐぐっても解説してるとこないし･･･
0992デフォルトの名無しさん
NGNG単にbmpかなんかの画像ファイル中の色並びってだけだった気がする
0993デフォルトの名無しさん
NGNG0995デフォルトの名無しさん
NGNGをぉ、タイマーで実装したけど、TIdAntiFreezeで作り直しかぁ。
タイムアウト値がプロパティじゃないなんて、ちょっと面倒なつくりだね。
0996デフォルトの名無しさん
NGNG素人の意見だけど、設定はできないような気がする。
なんかHTTPプロトコルを使用するときは内部で2000ミリsecondsに設定してるように見える
あくまで素人の意見なので間違ってるかもしれないけど
0997デフォルトの名無しさん
NGNG2000ミリsecondsに注意してIndyソースの中の人見てみます。
0998デフォルトの名無しさん
NGNG1000デフォルトの名無しさん
NGNGhttp://pc5.2ch.net/test/read.cgi/tech/1089779142/l50
1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。