トップページ⇒tech
988コメント302KB

モナーの *やさしい* Delphi質問スレ Ver.7

レス数が950を超えています。1000を超えると書き込みができなくなります。
0001Delモナー ◆fPymXWHY NGNG
　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. Delモナーがどんな厨房疑問でもやさしく答えます。
　（　　　　）　.| Delモナーは時に私であり、時には別の人。
　｜ ｜ ｜　 | 他のスレに書き込んで罵倒される前に、まずここで質問しよう。
　（＿_）＿） 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

前スレ モナーの *やさしい* Delphi質問スレ Ver.6
http://pc.2ch.net/test/read.cgi/tech/1019134412/

前スレが埋まるまでは書き込まないで
(あるいはsage進行にして)ください。

>>2-10あたりに関連情報あり
○過去スレ >>2
○関連スレ >>3-5
○Delphi製品情報 >>6
○関連リンク >>7
○質問者へ・回答者へ >>7
○ソース置き場案内 >>8
0938デフォルトの名無しさんNGNG
次スレ

http://pc.2ch.net/test/read.cgi/tech/1021262086/l50
0939909ですNGNG
911,913さん
　　　ごめなさい〜ほんと、endがなかったです。申し訳ありません
　　　ほんとの素人とは私です......
0940デフォルトの名無しさんNGNG
D6proからADOでmdbファイルを使ってプログラムしようとしているのですが、
私の認識としては mdbを使う場合、Access自体かAccessのランタイムが必要になる
であろうと考えておりました、実験してみると、やはりAccessが入っていないＰＣでは
mdbへアクセス出来ませんでした。
ここまでは予想していた通りだったのですが、実はOfficeのDeveloper版を購入してあり、
AccessRTのセットアップでAccessのランタイムをインストールすると見事にD6で作成
したプログラムが実行できましたが、Accessのランタイムをアンインストールした後も
実行出来る事が判りました。D6からmdbを使う場合にはAccessのランタイムをインストール
しなくても何かDLLをコピーするだけで使えるのでしょうか？
mdb(Access)側でVBAを使うでもなく、単にDelphiのISAMファイルとしてmdbを
利用したいだけなのですが・・・。

0941素人NGNG
>>939
今時珍しい心の清らかな人アルネ。あやまらんでもいいアルヨ。
0942940NGNG
MDAC_TYP.EXE と Jet40Sp3_Comp.exe を
http://www.microsoft.com/japan/msdn/data/download.asp
ここから取ってきてインストールするだけでした、

これを再配布して良いのか悪いのかイマイチ不明ですが、とりあえずAccessランタイム無くても解決しました。
この構成でmdbの最適化（サイズを小さくするやつ）ができるのか不明ですが、これから試してみます。
0943デフォルトの名無しさんNGNG
>>940
DBをアプリで使う＆配布を簡単に済ませたい場合は
MyBaseしかないかなーと思いこんでいたからAccess+ADOは
盲点だった＆ちょっと注目してる。
この方法だとAccessさえ持ってればアプリで作成したデータを
Accessで好きなように加工／メンテ／他形式への変換ができるから
作り込むアプリの機能を最低限で済ませられるメリットがあるのが
良いね。
もしよかったら今後も経過報告してくれるとうれしい。
0944デフォルトの名無しさんNGNG
サブルーチンを作って呼び出すにはどうすれば良いんでしょうか？
0945デフォルトの名無しさんNGNG
>>944
procedure sub(var x:Integer);
begin
x:= x*x;
end;

と、どこかに書きます。　コンパイルしてエラーが出るなら書く場所が違うので移動

0946デフォルトの名無しさんNGNG
サブルーチンでなく、"関数"あるいは"手続き"でヘルプをお探しなさい
0947デフォルトの名無しさんNGNG
>>945
それを呼び出すにはどうすれば良いんでしょうか？
sub(nil);だとエラーが出ます。
0948デフォルトの名無しさんNGNG
>>947
Integerにnilを渡しちゃだめ。
変数パラメータに定数を渡しちゃだめ。

procedure sub(x: Integer); とすれば、

sub(0); で呼び出し可能。でも計算結果は戻ってこない。

てか、これはマジな質問なのか？
0949デフォルトの名無しさんNGNG
>>942
ライセンス
http://www.microsoft.com/JAPAN/msdn/data/download/mdac/26/26eula.htm
0950デフォルトの名無しさんNGNG
ねたに一票。
そもそもnilを渡すことなど思いつくことがおかしい・・・。
0951デフォルトの名無しさんNGNG
サブルーチンとか言ってるし、ﾌﾞﾋﾞ厨か？
nilを代入したのも、新しく覚えた言葉を使いたがってるだけとか。
0952929NGNG
>>937
アプリがアクティブかどうかは問いません。
どちらかで動作していて、ユーザがパソコンに触れていない時間が続いたら、
自動的に終了するようにしたいのですが、どうすればできるのか見当も付きません・・・
0953945NGNG
有難う御座いました　出来ました。
nil＝null＝空で使えるかと思ってました。
0954953NGNG
×945　○947
0955948NGNG
>>953
ネタじゃないらしいので一言。

nilは空のポインタだが、数値に空という概念はない(必ず何かの値が入っている)。

Delphiに限定した話ではないが、0とnil(null)を混同しているなら整理が必要。
0956デフォルトの名無しさんNGNG
>>952
「ユーザがパソコンに触れていない時間」を取得できればいいわけか。
昔メーリングリストでそんなのあったな・・・
0957デフォルトの名無しさんNGNG
>>952
アプリの外で何か作業をしているかを確認しないといけないならフックが必要だと思いますよ。
0958デフォルトの名無しさんNGNG
＞「ユーザがパソコンに触れていない」
なら、スクリーンセーバを登録して、スクリーンセーバからメッセージを貰ったら？
0959デフォルトの名無しさんNGNG
>>958
ユーザのスクリーンセーバーの設定を強引に変更するのはスマートじゃないよねぇ
0960間違って誤爆してしまたNGNG
　pCharをファイルに書き込む際、
var
p: pChar;
f: file;
begin
（略）
BlockWrite(f, p, StrLen(p)+1);
（略）
end;
としているのですが、読みとり方が分かりません。
#0が出るまで1Byteずつ調べていかねばならないのですか？
0961デフォルトの名無しさんNGNG
>>960
後方シークが許されるなら、適当な長さずつまとめて読み込んで、メモリ上で
#$00を探す、という手が使えますが、出来ないなら1Byteずつ、ってなりますね。

特に既存のファイルフォーマットに制約されないなら、文字列の直前に
文字列長を書き込んどけば楽でっせ。

var
　s: String;
　len: Byte;

//書き込むとき
　len := Length(s);
　BlockWrite(f,len,1);
　BlockWrite(f,PChar(s)^,len);

//読み込むとき
　BlockRead(f,len,1);
　SetLength(s,len);
　BlockRead(f,PChar(s)^,len);

これだとByte型の制約から255文字までだけど・・・
0962デフォルトの名無しさんNGNG
>>961
　なるほど、やはり直前にサイズを書いておくべきですね。
ファイルのパスを保存するので、ShortIntを用いれば十分ですね。
0963962NGNG
ミスった…。ShortIntじゃなくてSmallIntです。
0964デフォルトの名無しさんNGNG
>>956
それ、やっぱDLL作ってｼｽﾃﾑﾌｯｸでやるの?

ちょっと面倒だなぁ…
いろいろと…
0965962NGNG
　あるプロシージャでpCharのメモリをStrAllocを用いて確保したのを、
別のプロシージャ（Destroy）でStrDisposeを用いて解放しようとすると
無効なポインタ操作と言われます。
　解放するにはどうしたらいいのでしょうか？
0966デフォルトの名無しさんNGNG
>>965
方法は間違ってない。なにか変なことやってるだろ。
ソース晒してみたら？
0967デフォルトの名無しさんNGNG
>>965
…ローカル変数じゃねーの？
0968デフォルトの名無しさんNGNG
>>965-967
ローカル変数だったら「未定義の識別子」だろ。
やっぱソース晒すしか無さそうだね。

あとString使って、SetLengthで代用できるなら、そっちの方が
なにかと安全かな。
0969デフォルトの名無しさんNGNG
>>968 ローカル変数だったら「未定義の識別子」だろ。
違うプロシージャで同じ名前のローカル変数っていう可能性もある
0970965=962NGNG
PDataSという、TDataS構造体へのポインタがありまして…。
Name: pCharといふフィールドを持っています。（他にもありますが）
これをTListを継承したリストに格納（StrAllocとStrPLCopyで。）
して、Destroyするときに
for i := 0 to Count-1 do
begin
StrDispose(PDataS(Items[i])^.Name);
　 Dispose(Items[i]);
end;
としているんですが、どこが違うでしょうか？
0971デフォルトの名無しさんNGNG
>>970
StrDisposeじゃなくてDisposeのほうじゃない？
0972965=962NGNG
>>971
　StrDisposeの方をコメントアウトすると例外が生成されないんですが…。
0973デフォルトの名無しさんNGNG
>>972
StrAllocの方はどうやってる？
0974デフォルトの名無しさんNGNG
こういう場合どうするんでしょうか


str := ''';

0975965=962NGNG
>>973
procedure AddData(bs: String;...);
var
ps: PDatas;
（略）
New(ps);
ps^.Name := StrAlloc(Length(bs)+1);
StrPLCopy(ps^.Name, bs, Length(bs));
（略）
Add(ps);
としています。
>>974
str := #$27;
で良いと思います。
0976デフォルトの名無しさんNGNG
>>972
Disposeの方をコメントアウトしても例外が生成されないだろ、多分。
とりあえず、
> Dispose(Items[i]);
は
Dispose(PDataS(Items[i]));
だと思われ。
0977974NGNG


>975

アリガトウ

0978デフォルトの名無しさんNGNG
>>974
str := '''';
0979965=962NGNG
>>976
　Dispose(PDataS(Items[i]));
に書き換えましたが、やはり例外が発生します。
0980デフォルトの名無しさんNGNG
>>979
ここに上がってるソースには問題ない。
どこかほかの個所でメモリを破壊してるんだろ。

ちなみに↓はうまくいくコードだ。

procedure TForm1.Button1Click(Sender: TObject);
type
　PDatas = ^TDataS;
　TDataS = record
　　Name: PChar;
　end;
var
　ps: PDatas;
　bs: String;
　list: TList;
　i: Integer;
begin
　list := TList.Create;
　bs := '（　´∀｀）';
　for i := 0 to 999 do begin
　　New(ps);
　　ps^.Name := StrAlloc(Length(bs)+1);
　　StrPLCopy(ps^.Name, bs, Length(bs));
　　list.Add(ps);
　end;

　for i := 0 to list.Count - 1 do begin
　　StrDispose(PDataS(list.Items[i])^.Name);
　　Dispose(PDataS(list.Items[i]));
　end;
　list.Free;
end;
0981デフォルトの名無しさんNGNG
DataSの他のメンバは？Nameを上書きしていない？
0982965=962NGNG
>>980-981
　う〜ん、色々と見たんですが何せソースが膨らみすぎてて…。
印刷して色々と調べてみます。
0983デフォルトの名無しさんNGNG

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. 次スレはこちら（重複スレを再利用）。
　（　　　　）　.| モナーの *やさしい* Delphi質問スレ Ver.7
　｜ ｜ ｜　 | http://pc.2ch.net/test/read.cgi/tech/1021262086/l50
　（＿_）＿） 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
0984デフォルトの名無しさんNGNG
>>983　整理しにくくなるじゃねーかよ！　新しいの立てろゴルァ！
0985デフォルトの名無しさんNGNG
>>984
あっちを残しておくとまた厨がageて
ごっちゃになるのであっち使おうぜ。
0986984NGNG
>>985
しゃーねーな、削除依頼出して消してもらえんのかな。
0987デフォルトの名無しさんNGNG
>>984
スレのタイトルが気に食わないんだったら
.idxファイルを直接いじって変えられるけど？

的外れなレスだったらｽﾏｿ
0988デフォルトの名無しさんNGNG
あ、かちゅ〜しゃ使ってるんだったらだけどね
レス数が950を超えています。1000を超えると書き込みができなくなります。