くだすれDelphi(超初心者用)その57 [無断転載禁止]©2ch.net

**デフォルトの名無しさん** · 2017/07/08(土) 15:11:41.17

これがアスペか・・

**デフォルトの名無しさん** · 2017/07/30(日) 22:35:33.76

昔MCIをいじっていた者です。覚えている人いるかな？
4年くらいメソッドを書いてなくて、送るでwavを聞きたいなって思って久しぶりにコンパイラを触りました。
何をするソフトなのかというとフォームに対してD&DしてＴＬｉｓｔにD&D元のファイルのフォルダの
ファイル名を取得するソフトなんですが、なぜうまくいかないかわからなくて…。
指摘していただければ幸いです。

**デフォルトの名無しさん** · 2017/07/30(日) 22:37:14.18

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs,ShellAPI, Vcl.StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
ListBox1: TListBox;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
function SearchFile(SearchDir: string):integer; //SearchDir 検索対象のフォルダ
{ Private 宣言 }
protected
procedure FilesDropped(var Msg1:TWMDropFiles); message WM_DROPFILES;
public
{ Public 宣言 }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

**デフォルトの名無しさん** · 2017/07/30(日) 22:38:16.16

procedure TForm1.Button1Click(Sender: TObject);
var
FileCount :integer;
begin
ListBox1.Clear;
//実行ファイルのあるディレクトリのファイルを列挙
FileCount :=SearchFile(ExtractFilePath(Application.ExeName));
ShowMessageFmt('%d個のファイルが見つかりました。',[FileCount]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, TRUE);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Handle, FALSE);
end;

**デフォルトの名無しさん** · 2017/07/30(日) 22:38:43.85

procedure TForm1.FilesDropped(var Msg1:TWMDropFiles);
var
FNameSize: UINT;
Count : UINT;
FileName : array[0..255] of Char;
FileName1: string;
begin
FileName1 := '';
try
Count := DragQueryFile(Msg1.Drop, $FFFFFFFF, nil, 0 );// A
if Count > 1 then Abort; // B
FNameSize := DragQueryFile(Msg1.Drop, 0, nil, 0) + 1; // C
DragQueryFile(Msg1.Drop, 0, FileName, FNameSize); // D
Filename1 := StrPas(FileName); // E
finally
DragFinish(Msg1.Drop); // F
end;
if FileName1 = '' then Exit;
label1.Caption := Filename1;
end;

end.

**デフォルトの名無しさん** · 2017/07/31(月) 00:52:16.24

とこでfmxアプリをタスクトレイに収める方法はないですか？

探すとロシアのサイトにコンポーネントがあったけど
他に方法はないでしょうか？

**デフォルトの名無しさん** · 2017/07/31(月) 05:54:29.90

>>365
Windows専用だけどいい？

**デフォルトの名無しさん** · 2017/07/31(月) 08:21:01.65

>>366
ええもちろん

例えばバックグラウンドでネットにアクセスして
通知したりポップアップしたりする感じ

Androidだとserviceを使うんでしょうが
Windowsデスクトップだとタスクトレイに
常駐させるくらいしか思いつかない

こういうWindowsアプリをfmxで作る場合
どうするんでしょうか？

**デフォルトの名無しさん** · 2017/07/31(月) 12:56:22.59

>>367
WinAPI.WindowsをUSESしてタスクバーから消したいアプリケーションのHWND取得してShowWindow(HWND,SW_HIDE);をぶちかます

タスクトレイにアイコン表示させたりする場合はコード記述でもできるけど面倒だからMonkeyMixerか何か使ってVCLを混在させてTTrayIcon使う

**デフォルトの名無しさん** · 2017/07/31(月) 18:38:00.55

>>368
ありがとう

MonkeyMixerを調べて見ます

**デフォルトの名無しさん** · 2017/08/01(火) 10:29:01.65

TTrayIconはVCL依存がほとんどないから、切り出して使った方が余計なユニットがリンクされなくていいと思う
自分はそうしてる

**デフォルトの名無しさん** · 2017/08/13(日) 13:54:41.72

教えてください。

fmxで矩形以外の多角形領域を
Bitmap(.Canvas)間でコピーするには
どうしたらいいでしょう？

Helpを探したんですが見つけられませんでした

苦肉の策で矩形領域を別のBitmapにコピーし
対象の多角形領域外を完全透過に塗りつぶして
それを最終的に目的のBitmapにコピーしてます

よろしくお願いします

**デフォルトの名無しさん** · 2017/08/26(土) 22:45:11.62

fmxねぇ...

実行ファイルのサイズが
vclの倍以上になるのはビックリ

でもvirustotalなんかでの誤検知は
確実に減るな

**デフォルトの名無しさん** · 2017/08/29(火) 17:10:04.07

DBCtrlのKeyPressメソッドで出てくる
^H　 ^V　 ^X
とかって何を指してるんですか？それぞれ16進で、8,16,18の値なんですが。
ポインタの逆参照以外で ”^” の使い方はヘルプにも無いのですが。

**デフォルトの名無しさん** · 2017/08/29(火) 17:11:49.45

H 48h
V 56h
X 58h
ctrl+H で 08h
ctrl+V で 16h
ctrl+X で 18h

**373** · 2017/08/29(火) 17:15:51.90

>>374
コントロールキーを押しながら…の記述に ”^” を使うということですか。
ありがとうございます。

**デフォルトの名無しさん** · 2017/09/20(水) 09:56:54.97

ちょっと教えてください

ジェネリクスなTListにレコード型を格納しておいて
後でレコード内の一部のフィールドを修正したい場合
どうすればいいんでしょうか

やっぱレコード全体を取り出して、修正後に全体を書き戻す？

**デフォルトの名無しさん** · 2017/09/21(木) 21:39:40.01

うまくいくかはわからないが、
lst: TList<THoge>なリストがあるとして、

for i :=0 to lst.Count-1 do begin
lst.List[i].SomeField := v;
end;

のように、レコードのコピーが発生しないようにすればもしや。

**デフォルトの名無しさん** · 2017/09/22(金) 00:31:23.41

デフォルトプロパティ List[i] に相当する List.Items[i] の
read関数 function TList<T>.GetItem(Index: Integer): T; は、戻り値が
左辺値ではないので、どうしても一時変数が必要です。

**デフォルトの名無しさん** · 2017/09/22(金) 07:31:05.69

>>378
Itemsプロパティではなく、内部で管理している配列を直接返すListプロパティを介してもテンポラリーのコピー発生するんだっけ？
ちょっとうろ覚え。

**デフォルトの名無しさん** · 2017/09/23(土) 14:45:31.84

Delphi 10.2 Update 1で実行しています。

log.d('error だめぽ');

上記コードをiPhone実機で実行して
Xcode -> Window -> Devicesに表示されている実機のログを確認すると
以下のように全角文字が文字化けします。

2017/09/23 14:35:21 Project1[7478]: error \M-c\M^A\240\M-c\M^B\M^A\M-c\M^A\M-=

解決策をご存知の方がいらっしゃいましたらお助けくださいませm(_ _)m

**デフォルトの名無しさん** · 2017/09/23(土) 23:58:16.42

エスケープ文字をデコードすると e3 81 a0 e3 82 81 e3 81 bd なので、UTF-8 ですかね。
エスケープ文字への変換がログの前後かは切り分けてみましょう。od -x で16進表示すると、
\M-c のところが、e3 なのか 5c 5d 2d 63 なのかでわかるでしょう。
前者なら、ログを出力するツールの性格（ASCII以外は変換とか）、
後者ならコンソールへ出力するツールの変換ですかね。
前者なら、デコードツールでも作ってみれば。
\Mは、0x80を or するメタキーを併用したキー入力の名残りで、Emacs/GNU系の方言です。
\M-c は 0x80 + 'c' = 0xe3 、\M^A は 0x80 + 0x01 (Control-A) = 0x81、\240は8進表記なので 0xa0

**380** · 2017/09/24(日) 08:50:50.85

>>381
詳細に解説いただきありがとうございます！

>\M-c のところが、e3 なのか 5c 5d 2d 63 なのかでわかるでしょう。

od -xのやり方が分からなかったのでログをテキストで保存して
バイナリエディタで確認したところ5c 4d 2d 63でした。
これは表示する側の問題ということですよね？

あの後、XCodeでNSLogでデバッグログを出力する簡単なプログラムを書いて確認したところ
XCode上のデバッグコンソールには日本語が文字化けしないで出力されますが
Xcode -> Window -> Devicesに表示されている実機のログでは日本語が文字化けしたので
表示側の問題なのかなと思います。

日本語が表示できないのは不便なので解決できるとうれしいですが
こういう場合、難しいのでしょうか。

**デフォルトの名無しさん** · 2017/09/24(日) 19:16:16.23

>>382
面倒だから試してないけど
NSstr使うとかAnsiStringに一旦格納して出力するとか

**381** · 2017/09/25(月) 02:46:48.72

しまった。前後逆でした。e3 のままなら無変換。

で、ちょっと古いけどXcode6.3.2+ios8.3では日本語表示できてます。

**380** · 2017/09/25(月) 08:55:47.22

>>383
ご回答ありがとうございます！
NSstrを使ってlog.dで出力しようとするとコンパイラに怒られてしまいましたorz
AnsiStringを試したところ出力文字は変化しましたが文字化けは改善されませんでした。

>>384
ご回答ありがとうございます！
なるほど。
現在の環境がXCode8.3 + iOS8.3なので少し古いXCodeを使って試してみようと思います。

**デフォルトの名無しさん** · 2017/09/27(水) 10:22:25.25

iOSってTBannerAdを使ってAdmob表示できないんですか？
docWiki見たらiOSはiAdを使う前提の説明しかなくて・・・

**デフォルトの名無しさん** · 2017/10/17(火) 09:08:55.23

Delphi10.2ってxcode9.0に対応してる？

**デフォルトの名無しさん** · 2017/10/24(火) 09:26:42.32

すみません。どうしたりいいのか分からずに書き込みさせてください。

**デフォルトの名無しさん** · 2017/10/24(火) 09:43:54.24

？

**デフォルトの名無しさん** · 2017/10/24(火) 20:03:21.48

もちつけ！

**デフォルトの名無しさん** · 2017/10/25(水) 11:38:12.62

したり顔

**デフォルトの名無しさん** · 2017/10/30(月) 20:24:16.10

お伺いします。
https://www.axfc.net/u/3858375?key=delphi
アーカイブpass=123456

ですが、AというフォルダにB.zipC.zipD.zip・・・というファイルが入っています。
これにB.zipというファイルをフォームにD&Dで落とすと
1：q:\A\B.zip
2：q:\a
3：q:\a\
と表示されます。
そして、Button1を押すとバイナリがあるフォルダのファイルの数を報告します。
欲しい機能はB.zipをフォームにD&DをしたときにC.zip,D..zip
のAフォルダ内のファイルのすべてをListBox表示に表示させるにはどうしたらよいでしょうか?

最近いろいろやっているのですが、今ひとつ解決できないため、
教えていただけないでしょうか?

**デフォルトの名無しさん** · 2017/10/30(月) 22:19:56.32

>>392
TDirectory.GetFilesとExtractFilePath

**デフォルトの名無しさん** · 2017/11/02(木) 18:58:25.38

すみません。エロい方教えてください。

s := 'ABC'#13#10;

という文字列を、SJISの16進文字列に変換して、
　 '4142430D0A'
にしたいのですが、やり方がわかりません。
どう書けばよいのでしょうか？

**デフォルトの名無しさん** · 2017/11/03(金) 11:14:14.85

これか？
つ http://docwiki.embarcadero.com/Libraries/Tokyo/ja/System.Classes.BinToHex

**デフォルトの名無しさん** · 2017/11/04(土) 21:02:07.27

D5でよければこんな感じでできるかな

procedure TForm1.FormCreate(Sender: TObject);
var
s, s2: string;
i: Integer;
begin
s := 'ABC'#13#10;
s2 := '';
for i := 1 to Length(s) do
begin
s2 := s2 + IntToHex(Ord(s[i]), 2);
end;
ShowMessage(s2);
end;

**デフォルトの名無しさん** · 2017/11/05(日) 18:50:55.45

>>396
Delphi6でできました。ありがとう。
これ、XE5でも動くのかな？

**デフォルトの名無しさん** · 2017/11/06(月) 21:01:49.83

>>397
自分で試すこともしないのか
試すことができないなら気にしなくてよくないか

**デフォルトの名無しさん** · 2017/11/06(月) 21:26:18.10

すみません。
気にしなきゃいけない状況です。
で、XE5は今環境がないのです。。。
（仕事場が２つあり、いまXE5がない方に常駐しているので）

**デフォルトの名無しさん** · 2017/11/07(火) 07:05:35.29

>>399
じゃあ行ってから試せ

**デフォルトの名無しさん** · 2017/11/07(火) 21:49:52.73

xcode9に対応した？

**デフォルトの名無しさん** · 2017/11/23(木) 12:24:47.52

firemonkeyって一度置いたコンポーネントって削除できないの？

**デフォルトの名無しさん** · 2017/11/23(木) 14:00:39.62

>>402
そんなバナナ

**デフォルトの名無しさん** · 2017/11/23(木) 14:01:03.28

猿だけに…

**デフォルトの名無しさん** · 2017/11/23(木) 23:05:31.51

　　　　　　　　 .┌┐
　　　　　　　　／ /
　　　　　　.／　/ i
　　　　　　|　( ゜Д゜)　
　　　　　　|（ノi　　|）
　　　　　　|　 i　　i
　　　　　　＼_ヽ＿,ゝ
　　　　　　　 U" U

**402** · 2017/11/24(金) 21:05:42.06

imagelistを使うと削除できないみたいです。

選択範囲には継承されたコンポーネント ImageList1 が含まれているため削除できません。.

これって返品で金返してくれないかな

**デフォルトの名無しさん** · 2017/11/24(金) 22:59:59.51

>>406
うちではそんな現象出ないけどバージョンは？

**デフォルトの名無しさん** · 2017/11/25(土) 01:36:58.01

>>406
お前それTFrameの中にあるやつを継承先から削除しようとしてんじゃねーの

**デフォルトの名無しさん** · 2017/11/25(土) 08:22:38.33

すーぐ返金返金言うてからに

**402** · 2017/11/25(土) 09:22:54.97

皆さ、レスありがとうございます。
バージョンは10.2です。
試した感じではボタンだけの貼り付け、削除はできる。
ImageListはListに画像を追加すると削除できなくなります。
その状態になるとボタンの削除もできなくなります。
ImageListの画像リストを削除してもダメです。
Delphiはそんなに触ってないので設定は初期値のままです。

**デフォルトの名無しさん** · 2017/11/25(土) 09:23:27.60

何か最近ヘルプ表示したままdelphi終了しようとすると
ヘルプの終了処理に手間取ってdelphiがなかなか終了しない

心当たりはFCUへのアップデートとMS VisualStudioの再インストールだが...

**デフォルトの名無しさん** · 2017/11/26(日) 16:50:58.14

firemonkeyで正規表現ってできる?

**デフォルトの名無しさん** · 2017/11/26(日) 17:35:26.15

>>412
できる

**デフォルトの名無しさん** · 2017/11/26(日) 18:29:30.48

ググったけどdelphiの正規表現しか出てこないです。
サイトとか教えてください。

**デフォルトの名無しさん** · 2017/11/26(日) 20:24:03.68

>>414
System.RegularExpressions

**デフォルトの名無しさん** · 2017/11/26(日) 21:19:52.87

有難うございます。

**デフォルトの名無しさん** · 2017/11/30(木) 11:55:54.04

TRegistryをもちいて、
レジストリの情報を拾いたいのですが、

レジストリ
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Calendars\Japanesers\Eras

ひろいたい情報
名前、データ
1868 01 01, 明治_明_Meiji_M
1912 07 30,大正_大_Taisho_T

const
AppKey='\SYSTEM\CurrentControlSet\Control\Nls\Calendars\Japanesers\Eras';
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey(AppKey,False) then begin

この後どうすればいいんでしょう？

Reg.GetValueNames(MEMO.Lines);

としてもMEMOには何もかえってこないのです。

**デフォルトの名無しさん** · 2017/11/30(木) 16:38:33.08

キーが違うようです。
AppKey='\SYSTEM\CurrentControlSet\Control\Nls\Calendars\Japanese\Eras';

**デフォルトの名無しさん** · 2017/11/30(木) 17:26:14.42

>>418
その通りでした。
Reg.OpenKey　で戻りを気にしていなかったので、悩み続けてしまいました。
ありがとうございます。感謝です。

**デフォルトの名無しさん** · 2017/12/08(金) 21:17:46.94

誰か行かないの？
https://techplay.jp/event/639177
https://techplay.jp/event/641383

**デフォルトの名無しさん** · 2017/12/11(月) 15:09:59.51

Calender、Japaneseもわかってない人は論外

**デフォルトの名無しさん** · 2017/12/12(火) 16:52:51.98

昔あったdelphiのフリーコンポーネントを集めたサイトって無くなっちゃた？

**デフォルトの名無しさん** · 2017/12/12(火) 18:31:07.66

古くからのDelphiコンポーネントが全て置いてある
アーカイブ的なサイトってないんだろうか

**デフォルトの名無しさん** · 2017/12/12(火) 21:12:25.60

ふと思ったけどTImageListじゃなく
TSoundListコンポーネントってない？
用途はありそうだが

てかTImageListってどういう仕組みで
画像を保持してるんだろう

**デフォルトの名無しさん** · 2017/12/14(木) 09:04:39.76

DSPとかtorrysとか懐かしいな

**デフォルトの名無しさん** · 2017/12/24(日) 16:19:13.24

Tetheringコンポーネントを使ってアプリ間データ共有を試してるんだけど
コンポーネントをフォームに置くだけでusesに追加される
IPPeerClient/Serverファイルがないって怒られるんだけど

Starterだと実はTetheringコンポーネントは使えない？

**デフォルトの名無しさん** · 2017/12/24(日) 16:33:23.07

>>426
テザリングの項目がStarterは空欄になってるから多分使えない

**デフォルトの名無しさん** · 2017/12/24(日) 19:06:27.16

>>427
そうだよね

だったらTetheringコンポーネントなんか
選択できなくすればいいのに

ただSystem.Tether.*.dcuはすべて揃ってるぽいんだよな

**デフォルトの名無しさん** · 2017/12/28(木) 21:34:46.01

質問させてください。
仮想通貨取引所で資産状況を見るプログラムを書こうとしているんですがうまくいきません。
エラーメッセージが、Signature mismatchとでます。

var
s,nonce,key,secret:string;
PostURL : String;
PostStream : TStringList;
ResStream : TStringStream;

begin

PostURL := 'https://api.zaif.jp/tapi';
PostStream := TStringList.Create;
ResStream := TStringStream.Create('');
IdHTTP1.HTTPOptions := IdHTTP1.HTTPOptions - [hoForceEncodeParams];
nonce := DateTimeToUnix(Now,true).ToString();
IdHTTP1.Request.ContentType:='application/json';
IdHTTP1.Request.CharSet:='uft-8';
PostStream.Add('method' + HTTPEncode('get_info2'));
PostStream.Add('nonce' + HTTPEncode(nonce));
idhttp1.Request.CustomHeaders.AddValue('Key','XXXXXXXXXXx');
idhttp1.Request.CustomHeaders.AddValue('Sign','XXXXXXXXXXXX');
IdHTTP1.Post(PostURL, PostStream, ResStream);
showmessage(ResStream.DataString);
end;

C#では以下のように書くらしいのですが、ご教示願えないでしょうか。
https://kokenji.net/zaif-api/

**デフォルトの名無しさん** · 2017/12/28(木) 22:07:28.82

>>429
せめtw署名生成ルーチンくらい書こうぜブラザー
たぶんHmacSHA256やとは思うが

**デフォルトの名無しさん** · 2017/12/29(金) 07:48:05.15

>>430
ありがとうございます。
SHA256でメッセージ暗号化するってことでしょうか？
それとも別の通信するのに必要な処理でしょうか？

**デフォルトの名無しさん** · 2017/12/29(金) 08:47:31.32

仮想通貨って電気代が安い国の人がが圧倒的に有利だよね

**デフォルトの名無しさん** · 2017/12/29(金) 11:43:27.38

>>431
URLから察するにZaifやと思うが、公式のAPIリファレンスまず読もうや
リファレンスで書いてる事がわからないなら都度質問したらええ
今の状況を人は丸投げと言う

**デフォルトの名無しさん** · 2018/01/07(日) 11:23:55.22

買っとけよ
https://www.packtpub.com/all?search=Delphi

**デフォルトの名無しさん** · 2018/01/07(日) 12:30:45.63

漬物石

**デフォルトの名無しさん** · 2018/01/07(日) 13:53:28.81

>>432
自分で太陽光とか風とか地熱とか利用して発電できるならそいつが一番有利

**デフォルトの名無しさん** · 2018/01/08(月) 09:12:47.06

Delphi 10.2 Tokyo で、

　　①クラス定義部分で Ctrl+Shift+C を押してメソッド実装部を自動生成すること
　　②メソッド呼び出し部分でCtrl+クリックで定義部にジャンプすること

ができないのですが、できるようにする方法はありますか？

**デフォルトの名無しさん** · 2018/01/08(月) 10:28:05.36

>>436
ふむ。結局中国が一人勝ちして終わりやな。

**デフォルトの名無しさん** · 2018/01/08(月) 12:45:46.64

>>437
うちはできるからおま環
ショートカットの設定とか見直したらええんちゃう

**デフォルトの名無しさん** · 2018/01/08(月) 18:50:31.06

>>439
俺環とわかり、ありがたし。
サンキュ！

**デフォルトの名無しさん** · 2018/01/09(火) 22:26:41.17

Starterじゃないの？

**デフォルトの名無しさん** · 2018/01/09(火) 23:21:34.37

そうです。
Starterです。
無料のやつです。

**デフォルトの名無しさん** · 2018/01/10(水) 22:49:34.96

Starterは支援機能削られてる
コード補完、ライブコードテンプレート、リファクタリング、コマンドラインツール、コード整形、クラスエクスプローラ、ユニットテスト、翻訳ツールなどの支援機能

コード補完はつけて欲しかったね

**デフォルトの名無しさん** · 2018/01/10(水) 22:58:49.24

そうなんですか・・・
コード補完がないのはキツいなぁ。

**デフォルトの名無しさん** · 2018/01/10(水) 23:22:20.51

Starterまじでコード補完ないんだww
ひでぇww

**デフォルトの名無しさん** · 2018/01/11(木) 07:06:55.59

5年間Starter使ってるけど
もう慣れた

**デフォルトの名無しさん** · 2018/01/19(金) 14:12:23.13

fmxで実行時に複数のpanelを動的に作成し
その背景を別の色にしたいんだけど

設計時にpanelのカスタムスタイルを変更するのは簡単だけど
実行時に変更する方法が分からない

検索すると質問は結構あるけど
答えは古いバージョン対応みたいで
うまく機能しない

誰かヒントをお願いします

**デフォルトの名無しさん** · 2018/01/19(金) 15:02:24.17

>>447
TRectangleマジおすすめ

**デフォルトの名無しさん** · 2018/01/19(金) 22:25:43.24

>>448
バッチリだった
ありがとう

**デフォルトの名無しさん** · 2018/02/02(金) 16:54:03.50

どうしても分からないため、教えてください。
アプリとしては、D&DでFoamに落としたときにTListboxにカレントフォルダのファイルを列挙します。
とんちんかんなメソッドでもとかもか構わないので、是非ともお願いいたします。

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, TRUE);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Handle, FALSE);
end;

procedure TForm1.FilesDropped(var Msg1: TWMDropFiles);
var
FNameSize: UINT;
Count: UINT;
FileName: array [0 .. 255] of Char;
FileName1: string;
LFilesList: TStringDynArray;
LFileName: String;
begin
FileName1 := '';

**デフォルトの名無しさん** · 2018/02/02(金) 16:54:26.34

try
Count := DragQueryFile(Msg1.Drop, $FFFFFFFF, nil, 0); // A
if Count > 1 then
Abort; // B
FNameSize := DragQueryFile(Msg1.Drop, 0, nil, 0) + 1; // C
DragQueryFile(Msg1.Drop, 0, FileName, FNameSize); // D
FileName1 := StrPas(FileName); // E
finally
DragFinish(Msg1.Drop); // F
end;
if FileName1 = '' then
Exit;
Label1.Caption := FileName1;
DirName := ExtractFileDir(FileName1);
Label2.Caption := DirName;
begin
// APath内のディレクトリ内のファイルリスト作成
// [マイコンピュータ]等の特殊フォルダは指定しても無効
LFilesList := TDirectory.GetFiles(LDir);
for LFileName in LFilesList do
begin
ListBox1.Items.Add(TPath.GetFileName(LFileName));
end;
ListBox1.Items.EndUpdate;

end;
end;

**デフォルトの名無しさん** · 2018/02/12(月) 17:53:30.98

>>443
Starterにはコード整形というのはないのですか、一生懸命探してしまった(笑)
CodeFormatterありがたい！

**デフォルトの名無しさん** · 2018/02/12(月) 21:54:05.03

LDirはどこで定義されてんだ？

**デフォルトの名無しさん** · 2018/02/13(火) 11:15:08.11

メモリー共有が簡単に出来るクラスってある？

**デフォルトの名無しさん** · 2018/02/13(火) 20:34:12.21

>>454
ググったら、名前付きパイプによるプロセス間通信見つけた。

http://francois-piette.blogspot.jp/2013/04/inter-process-communication-using-pipes.html?m=1

使ったことないので、使い心地までは分かりかねます。

**デフォルトの名無しさん** · 2018/02/16(金) 01:22:45.51

☆ 日本の、改憲を行いましょう。現在、衆議員と参議院の
両院で、改憲議員が３分の２を超えております。
『憲法改正国民投票法』、でググってみてください。国会の発議は
すでに可能です。平和は勝ち取るものです。お願い致します。☆☆

**デフォルトの名無しさん** · 2018/03/14(水) 17:54:41.12

10.2.3出たな

でー、インストール時にもインストール後の「プラットフォームの管理」にもAndroidとかiOSのが出ないんだけどどうなってるんや？（Pro Ed.

**デフォルトの名無しさん** · 2018/03/27(火) 23:04:26.37

D6に入れて使ってるIndy10 https対応してたのね。
dllをexeと一緒に置いておくだけ、あちこちで書かれてるIOHandlerを差換えって
必要ないのね。

**デフォルトの名無しさん** · 2018/04/07(土) 17:54:05.06

すみません教えてください。
長いこと格闘していたのですが、どうしても攻略できません。

ソフトとしてはwavファイルをD&Dでフォームに落とすと、このフォルダー内のファイルをTListBox内に列挙して
フォーム落としたファイルをMCIを使って再生させるというものです。

只、落としたファイルをファイルPATHで渡しても何も起こらず苦慮しております。
長いこと何やってたんだと叱責を受けるかもしれませんが、よろしくお願いいたします。
意味のとりにくい文章で申し訳ありません。

ttps://www.axfc.net/u/3901529?key=delphi

**デフォルトの名無しさん** · 2018/04/08(日) 14:23:14.02

>>459
ダウンロードはメンド

問題の部分だけでも書いて

**デフォルトの名無しさん** · 2018/04/08(日) 16:43:34.30

>>459
ダウンロード全然始まんないぞ
てかアップローダ選ぼうぜ

**デフォルトの名無しさん** · 2018/04/08(日) 19:31:28.65

ちょっと長いのですが…

procedure TForm1.FilesDropped(var Msg1: TWMDropFiles);
var
FNameSize: UINT;
Count: UINT;
FileName: array [0 .. 255] of Char;
FileName1: string;
LFilesList: TStringDynArray;
LFileName: String;
str : string;

**デフォルトの名無しさん** · 2018/04/08(日) 19:32:04.72

begin
FileName1 := '';
try
Count := DragQueryFile(Msg1.Drop, $FFFFFFFF, nil, 0); // A
if Count > 1 then
Abort; // B
FNameSize := DragQueryFile(Msg1.Drop, 0, nil, 0) + 1; // C
DragQueryFile(Msg1.Drop, 0, FileName, FNameSize); // D
FileName1 := StrPas(FileName); // E
finally
DragFinish(Msg1.Drop); // F
end;
if FileName1 = '' then
Exit;
DirName := ExtractFileDir(FileName1);
Label2.Caption := FileName1; // ファイル名
Label3.Caption := DirName; // フォルダーパス\なし

**デフォルトの名無しさん** · 2018/04/08(日) 19:32:09.74

begin
//選択されているときに処理を行う
if ListBox1.ItemIndex > -1 then
begin
//選択している文字列を取得
str := ListBox1.Items[ListBox1.ItemIndex];
//取得した文字列を追加
ListBox1.Items.Add(str);
end;

Label4.Caption := str;
begin
// APath内のディレクトリ内のファイルリスト作成
// [マイコンピュータ]等の特殊フォルダは指定しても無効
LFilesList := TDirectory.GetFiles(DirName);
for LFileName in LFilesList do
begin
ListBox1.Items.Add(TPath.GetFileName(LFileName));
end;
ListBox1.Items.EndUpdate;

end;
end;

**デフォルトの名無しさん** · 2018/04/08(日) 19:40:43.33

procedure TForm1.PlayBtnClick(Sender: TObject);
var
FileName1: string;
begin
mciSendString(PChar('open"' + FileName1 + '"type MEPGVideo' + 'alias MusicFile'), nil, 0, 0);
// ~~~~~~~~~~~
mciSendString(PChar('play Musicfile from 0'), nil, 0, 0);
end;

上記のチルダの部分あたりだと思うのですが…
どうしてもわかりません。

**デフォルトの名無しさん** · 2018/04/08(日) 21:52:36.23

>>465
自分もよく知らんので間違ってたらごめん

＞mciSendString(PChar('open"' + FileName1 + '"type MEPGVideo' + 'alias MusicFile'), nil, 0, 0);

'open"'　じゃなくて　'open "'　ではないだろうか
コマンドの後に空白スペースが無いって事ね
typeやaliasの前にもスペース無いけど

**デフォルトの名無しさん** · 2018/04/09(月) 02:34:30.98

>>465
これってかなり前にも指摘したような気がするが...

まずはTEditをForm上に置いて実行時に
TEdit.TextにPChar(...)の...部分をそのまま代入してみな

それで問題なかったらMCIに送って

**デフォルトの名無しさん** · 2018/04/09(月) 07:55:25.96

>>466-467
レスどうもです。

>>465
以前FileListBoxで作ったときのものをそのままD&D時のパスを含むファイル名を渡しています。
>>467
TEditに代入しても動きません。途方に暮れています。
何年か選択したListBox ItemからMCIに渡す方法を探してますが、どうしてもわからないままでいます。

上に上げたロダはリロードするとファイルが落ちてくるようです。

お忙しいとこrとすみませんがよろしくお願いいたします。

**デフォルトの名無しさん** · 2018/04/09(月) 08:07:09.81

aliasの前に半角スペースがない
これじゃあMpegVideoAliasとか意味不明なtypeになる上にaliasが認識されないからMusicFileというaliasが未定義のまま渡される

**デフォルトの名無しさん** · 2018/04/09(月) 08:11:51.43

>>467さんが指摘してるのはTEditに入れて表示された文字列が正しいコマンドかどうかチェックしろって事であって、代入したら動くんじゃないって言ってるわけじゃない

**デフォルトの名無しさん** · 2018/04/09(月) 12:39:00.80

FileName1のスコープが問題何じゃねーの？

**デフォルトの名無しさん** · 2018/04/09(月) 15:46:39.00

>>462-465
こんなやっつけ仕事みたいなコードだと、何やってもダメだと思う

**デフォルトの名無しさん** · 2018/04/09(月) 15:48:10.00

>>469
>>467さんの指摘を受けLabelに命令を代入しましたが、確かにおかしい命令を吐き出していました。
open ""type MEPGVideo alias MusicFile
こんな表示をしています。

>>471
FileName1自体はあっちこっちで参照するので、Private 宣言部で定義させています。
私個人の予想では、ListBoxからうまくファイルのPATHを含むファイル名がうまく取得できていないためではないかと考えているのですが…

**デフォルトの名無しさん** · 2018/04/09(月) 15:52:07.60

何が正しいのか正しくないのか、正しくないのは変数の中身なのかコードなのか渡し方かなのか、それとも別になにかなのかを探したら解決できる
正しいと思い込む前に確認する癖をつけましょう

**デフォルトの名無しさん** · 2018/04/09(月) 18:30:51.81

>>473
＞FileName1自体はあっちこっちで参照するので、Private 宣言部で定義させています。
あちこちで参照するってことは
procedure TForm1.FilesDropped(var Msg1: TWMDropFiles);　で使われている FileName1:と
procedure TForm1.PlayBtnClick(Sender: TObject);　で使われている FileName1: は同一のものということにしたいんだろ？
それぞれのプロシージャでFileName1: string;って宣言してたら「あちこちで参照する」ことは出来ないぞ

＞Private 宣言部で定義させています。
とりあえずそれはそのまま、TForm1.FilesDropped()とTForm1.PlayBtnClick()の中で宣言しているFileName1: string;を消す

**デフォルトの名無しさん** · 2018/04/09(月) 18:57:48.34

>>473
やっとソースDLできたｗ
ざっと見た限り

原因：
TForm1.FilesDropped()でFileName1 にファイル名を代入しているが、
この FileName1 はTForm1.FilesDropped（）の中で宣言されているため
TForm1クラスのprivate部で宣言されたFileName1とは別物

対策：
TForm1.FilesDropped()の中で書かれている FileName1: string; という宣言を消す
そうすればTForm1クラスのprivate部で宣言されたFileName1に代入されることになり
TForm1.PlayBtnClick()で使われているFileName1と同じになる

原因：
＞mciSendString(PChar('open"' + FileName1 + '"type MEPGVideo' + 'alias MusicFile'), nil, 0, 0);
いろいろ半角スペースが足りない、余分な文字列の連結

対策：
適宜スペースの追加、たぶん、こう？↓
mciSendString(PChar('open "' + FileName1 + '" type MEPGVideo alias MusicFile'), nil, 0, 0);

それと str : string; と LFileName: String; も重複して宣言されているので注意
strに関しては使用目的が分からんのでなんとも言えないけどLFileNameのような使い方をするのであれば
クラスでの宣言は消したほうが良いと思う（不必要にスコープ（参照できる範囲）を広げない）
FileName1にしてもクラス変数として使うのなら変数名を変えて分かりやすくしたほうがよいかと
xxxxx1とかxxxxx2なんてのは関数内の一時的な変数として宣言しがちだと思うので

**デフォルトの名無しさん** · 2018/04/09(月) 19:52:13.89

>>472
やっつけ仕事に見えますか…
これでも知恵絞って作ったものですので…。
いろいろのサイトで見つけたD&Dの使い方とかボリューム変更など90％位は流用しているため、
メソッドを記述している人がバラバラなので書き方に違和感を抱くこともあると思います。

アドバイスいただいた皆様ありがとうございました。
MCI諦めてSndPlaySound()を使うことで一応当初の目的は達成されました。

FileName1を掃除してSndPlaySoundのファイル名はFileName1を直接渡しました。
SndSoundPlayer（）はmp3とかだめそうな気もするので、
MCIを直打ちしなければならないかもしれません。

**デフォルトの名無しさん** · 2018/04/09(月) 20:33:17.20

メディアプレーヤーコンポ使えばmp3ほかいろいろ再生できますぜ

**デフォルトの名無しさん** · 2018/04/09(月) 22:09:32.86

>>477
>いろいろのサイトで見つけたD&Dの使い方とかボリューム変更など90％位は流用しているため、
>メソッドを記述している人がバラバラなので書き方に違和感を抱くこともあると思います。

わからないなら参照して勉強するのもいいけど「流用」するだけじゃ何年経っても自分の物にはならないよ
ちゃんと使い方を理解して自分のコードに治さないと

そうすれば変数かぶったりするのも避けられる
あと変数は少々長くなってもあとで自分が見てわかるもっと意味のある名前にした方が読みやすくなるよ

**デフォルトの名無しさん** · 2018/04/09(月) 22:24:15.00

>>477
触発されて自分も作ってみた．．．ただFireMonkey版だけど
基本的な部分はMacOSでも動くと思う

https://1drv.ms/u/s!ALhSqBFVHu2ZzRg

前からTDropTargetを使ってみたかっただけなんだけど

**デフォルトの名無しさん** · 2018/04/09(月) 22:25:36.16

この話題長いねぇ
ずーっと解決してない気がするw

**デフォルトの名無しさん** · 2018/04/10(火) 07:46:44.60

野球選手やサッカー選手に向いてるやつと向いてないやつがいるように
プログラマーにも向いてるやつと向いてないやつがいる

**デフォルトの名無しさん** · 2018/04/10(火) 09:28:59.45

>>480
なかなか良い
センスあるな

**447** · 2018/04/10(火) 17:57:58.95

>>480
シンプルで必要十分な情報がまとまっていました。

このスレにいる皆様は、今回のMCI問題を含むVCLの操作ではなく、
細かい文法事項などはどこで習得されたのでしょうか？

>>481
ずっとコンパイラーを使っていたのではなく、新しい攻略できたかもと散発的にいじってました。
本当に作りたいアプリがあるので、ご迷惑とは思っていますが、未だに食いついています。

リモコンで制御したいのと、巻き戻しがサポートされていれば、多分ここまでしつこくはなかったかもしれません。

**デフォルトの名無しさん** · 2018/04/10(火) 20:26:01.63

>>484
>このスレにいる皆様は、今回のMCI問題を含むVCLの操作ではなく、
>細かい文法事項などはどこで習得されたのでしょうか？

勘とノリと勢いとGoogle先生

**デフォルトの名無しさん** · 2018/04/10(火) 21:56:04.81

>>484
巻き戻しってもしかして逆再生？
そりゃハードルが高すぎないか

**デフォルトの名無しさん** · 2018/04/10(火) 22:06:00.62

>>484
VCLソース

**デフォルトの名無しさん** · 2018/04/11(水) 07:06:25.31

リモコンって以前はMediaCenterが対応してたね

Delphiで今やるんだったら
TTethering使ってスマホから操作かな

**デフォルトの名無しさん** · 2018/04/13(金) 00:04:40.08

@pikさんて何者なの？

本当にすごい人なの？実力あるの？
なんか言ってることが胡散臭いんだけど

**デフォルトの名無しさん** · 2018/04/17(火) 14:33:30.73

>>489
直接本人に言えよ。陰湿な奴だな。

**447** · 2018/04/18(水) 21:20:13.42

すいません。教えてください
この前の続きです。

D&D（例えば9.wav）をしてListBoxにフォルダのファイル一覧が抽出・表示されますが、
D&Dしたときに9.wavをハイライトさせるにはどうしたらいいでしょうか？
ハイライトをさせないとMCIエラーが出てしまいます。

ファイルですが、
https://mega.nz/fm/KbRmkKiL
よろしくお願いいたします。

**447** · 2018/04/19(木) 21:05:53.19

現状でやりたいことは、送るで起動して音声ファイル（以下.wav）を再生させることです。

1．とりあえずアプリを起動させる
2．.wavをD&Dでフォームに落とす
3．すかさずListBoxにカレントフォルダのファイルを列挙させる
4．D&Dで落とした.wavにハイライトさせる
5．自動的に.wavの再生開始

現在4でつまずいています。
.wavを送っても起動するだけで、ListBoxに反映されません。

ここがくクリアできれば拡張子連動も可能だと思いますが・

**デフォルトの名無しさん** · 2018/04/21(土) 23:15:17.71

>>491-492
ログインしなくちゃいけないみたいなので落としてないけど
「ハイライトさせる」ってファイルを選択状態にするってことね？
（プログラムする人間として質問するなら入門書なりを一冊通読してもう少し的確な言葉を憶えましょう）

ListBox.Selected[Index]:=True;（選択状態）
「9.wav」が例えば3番目ならIndexに「2」を入れます（ゼロスタートなので）
一番目のファイルなら「0」です

とりあえず試しておこうとDelphi5でやると範囲外エラーでますね
ListBox1.Selected[1]:=True;
これだけで

Delphi2009だと問題ないのに?(**)?

**デフォルトの名無しさん** · 2018/04/22(日) 09:43:57.64

ListBox1.ItemIndex := ListBox1.Items.IndexOf('9.wav');

**デフォルトの名無しさん** · 2018/04/22(日) 20:19:04.99

なるほどなー
ListBoxとかもうずいぶん使ってなかったから忘れてたわー

**447** · 2018/04/25(水) 06:26:09.01

>>493
ハイライトではなく選択した（された）アイテムと表現すべきでした。

無事選択状態にすることができました。
別の問題で送るとD&Dが併用できない問題に苦慮しています。
（送るだとListBoxに反映されますがD&Dだと反映されない。）
おそらく列挙の問題だと思いますが、今困っています。

以前作ったソースがすべてHDDのクラッシュで消えてしまったため
どうしたらいいのかもわかっていません。

自分自身で調査をしますが、よいアドバイスいただければ幸いです。
不評でしたが、ロダを
ttps://www.axfc.net/u/3905770?key=delphi

皆さんはDelphiの知識はどうやって得られましたか？
コンパイラを使ったのが数年ぶりだとか、いいわけにはならないのですが
やりたいことができずに悶々としています。

例えば、プログラミングバイブルを読破するとスキルが得られたりするものなのでしょうか？
こちらもアドバイススをいただけますと幸いです。

**デフォルトの名無しさん** · 2018/04/25(水) 08:14:31.72

>>496
もう仕様書作って金出してコード納品してもらった方が速い

**デフォルトの名無しさん** · 2018/04/25(水) 10:12:58.53

アドバイスも何も....

D&Dで取得したファイル名を
そのメソッド内でのみ有効なローカル変数に代入して終わりなの？

変数のスコープを理解してないのかな

てか、いろんなサンプルを参照して利用してるが
意味も分からずやってるでしょ

他人のコードを利用するなら
まずそのコードを理解しようと努めないと
永久に進歩はないね

**デフォルトの名無しさん** · 2018/04/25(水) 10:43:12.40

>>496
＞（送るだとListBoxに反映されますがD&Dだと反映されない。）

D&Dを受け取る WMDropFiles 内にListBoxに反映させるコードが無いんだから反映されるわけが無い

**デフォルトの名無しさん** · 2018/04/26(木) 18:55:25.51

動くまでいじくり倒すしかない。なんで動かなかったのかわかるまで調べる

**447** · 2018/05/05(土) 11:10:08.17

ListBoxへの反映の仕方が分かったので対処ができました。
ですが、曲名を集中管理している変数にLtstBoxのアイテムを代入しようとする
StringtoTstringに互換性がありませんと表示され、他の曲への反映ができません。
聞くところによれば、ポインタの知識とオブジェクトへの深い理解が必要だと聞きました。
コメントをいただければと思いいます。
https://www.axfc.net/u/3908351?key=delphi

本当にポインターの知識が必要ならアプリを作るのには時期尚早なのかもしれません。
よろしくお願いいたします。

**デフォルトの名無しさん** · 2018/05/05(土) 13:26:16.48

こんな文字列処理メインのコードにポインタの出番はないでしょう

ListBoxの選択項目を取り出すのは、あなたが>>464に書いている通り

問題はListBoxに追加した項目が保持してる内容
ファイル名？パス付き？

あと老爺心で言うんだけど、メインの部分がまったく機能してないのに
サブの部分を追加してるのはどうかと

全体の見通しが悪くなるだけだよ

ドラッグ&ドロップと音量関係のルーチンのない状態で
ListBoxの内容を完璧に再生できるように
新規プロジェクトから始めたほうがいいよ

**デフォルトの名無しさん** · 2018/05/07(月) 08:05:08.09

ありがとう。C＃で作り直すことにします。

**デフォルトの名無しさん** · 2018/05/07(月) 18:43:31.79

そうきたか　ｗｗｗ

**447** · 2018/05/23(水) 05:43:33.84

TString型からString型へのキャストはどうしたら良いのでしょうか?

ずっとここで詰まっています。
コンパイラにはString型とTString型には互換性がないと怒られ
Listbox.item.text
みたいな感じにするとString型へ文字列が渡せません。
色々ネットで調べてみましたが、何か今ひとつ分からないままでいます。

**447** · 2018/05/23(水) 07:25:01.52

上の質問はスルーしてください

**デフォルトの名無しさん** · 2018/05/23(水) 20:23:05.77

本当か？本当にTStringとStringの違いがわかったのか？

**デフォルトの名無しさん** · 2018/05/23(水) 20:31:59.75

僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

401Z3

**デフォルトの名無しさん** · 2018/05/24(木) 00:26:07.03

>>505
何年間も同じとこクルクル回って進歩してないな

**447** · 2018/05/24(木) 07:41:50.56

>>507
本当は分かっていません。
ただ、もう少し試行錯誤が必要だと判断しました。
TstringからStringに渡すのはそんなに難しいとは思えないのですが……。

>>509
コンパイラをいじっている時間があまりなくて
今回も数年ぶりに(昔このスレで正月に作ったメディアプレイヤー)触ってますので
進歩してなくて、さっぱり分からないことが相変わらず多いです。

**デフォルトの名無しさん** · 2018/05/24(木) 07:51:45.33

>>510
値、配列、値のリストという概念があるとして stringはどれで Tstringはどれにあたるか分かる？

**デフォルトの名無しさん** · 2018/05/24(木) 09:38:32.78

"Tstring"という言葉が気持ち悪いので、そろそろ訂正してくだいませんか？

**デフォルトの名無しさん** · 2018/05/24(木) 09:47:02.42

>>510
あのな、良いこと教えてやる

一番薄い「言語ガイド」というマニュアルがあるからそれ読め
最初の１ページ目から最後のページまで全部読め
判らなくても良い、難しくても良い、とにかく１冊全部読め

読み終えた次の日から、きっと新しい世界が見えるはず
読まなきゃお前さん、一生そのままだぞ

**デフォルトの名無しさん** · 2018/05/24(木) 12:22:44.13

TStrings String型 TStringList AnsiString UTF8String・・・等々いっぱいあるね

**デフォルトの名無しさん** · 2018/05/24(木) 17:31:30.64

>>510
名前が似ていても型が違うなら別物として考える
別物でも異なる型への変換方法が明示的に設定されていれば容易に渡すことが出来る
TStrings と String は別物
じゃあTStrings から String に明示的な変換方法が設定されているのか？を調べれば解決する
ヘルプを起動しTStringsと入力しろ
そして戻り値がStringになっているメソッドを探せ

どうでもいいことなんだが名前欄に自分のレス番号を入れるのは現在進行している質問の最初のレス番号を入れるべきだと思うんだ
今回のケースなら447ではなく505だな
そうすることで主題となる質問を見ることが出来て、また辿ることが出来る

**デフォルトの名無しさん** · 2018/05/24(木) 18:32:52.16

普通に教えてやりゃいいじゃんか
sがついてるからstringが複数扱えるクラスなんだろ？
男のくせにチマチマ、ネチネチ、そりゃお前らは一生結婚できねぇわw

**デフォルトの名無しさん** · 2018/05/24(木) 18:38:26.23

>>516
で、お前は何で教えてやらないの？

**デフォルトの名無しさん** · 2018/05/24(木) 18:43:41.36

本人だからさ

**デフォルトの名無しさん** · 2018/05/24(木) 20:03:35.81

はいはい
まあ聞きまくるやつにも問題はありそうだが、
狭い世界のちんこい知識でどんだけ上から目線なんだろね

**デフォルトの名無しさん** · 2018/05/24(木) 20:16:15.75

あー
そんなことを書くぐらいなら510に教えてあげればいいんじゃないの？
しょせん目くそ鼻くそなのに、ずいぶんと上から目線だねｗ

**510** · 2018/05/26(土) 04:35:23.77

>>513
昔言語ガイド印刷してたのを忘れていました。
今読むと昔は分からなかったことが分かるようになってきました。
プロジェクトを作る前に最後まで読んでみます。

>>516
そう複数なんですよね!だからListBoxでindexで数字でターゲットを選べると言うことに気がつきました。
読みにくい文で済みません。

>>515
TStringで検索かけたところ膨大な数のメソッドが出てきて
悩んでいます。
まずは大事なことがたくさん書いてある言語ガイドをよく読んでから理解してから
再チャレンジします。

レスしてくれた皆様ありがとうございました。

**デフォルトの名無しさん** · 2018/05/26(土) 16:36:32.52

だから　TStringじゃない　TStrings

**510** · 2018/05/27(日) 06:51:35.56

>522
TStrings ですね。
複数のStringを束ねられるのでindexの数字で必要なオブジェクト(!?)を選択できるのですね。
今はプロジェクトを中断して言語ガイドを熟読しています。
今までで分からなかったことがしっかり書いてあるので
安易に入門書を読む前にこっちを読むべきでした。

**デフォルトの名無しさん** · 2018/05/27(日) 18:56:00.45

初心者にはDelphi6あたりのHelpがいいんだけどな
最近のHelpは不親切で、基本がわかっていない初心者には使いづらいだろうなと思う

**デフォルトの名無しさん** · 2018/05/29(火) 12:30:34.30

頑張れ‼??誰でも最初はなんも知らんからね
ちゃんと覚えていろんなもん作れるようになってね

**デフォルトの名無しさん** · 2018/05/29(火) 16:35:28.22

何年「最初」を繰り返してるのだろうかー

**510** · 2018/05/30(水) 07:03:11.11

>>524
Delphi6買っとけば良かったなと思っていたら、初心者の入門書に収録されていました。
早速インストールしてみます。
ですが、皆様はシステムライブラリのヘルプを見て手続きや関数などを覚えたのでしょうか?

>>526
職業はコンピューター関係でなく、時間が空かないとコンパイラを使うのも
厳しいために今回は５年ぶりくらいにコンパイラーいじっていますので
最初になってしまいます。

普通こんだけ叩かれたらプログラミングを諦めてしまうと思いますが、
双六ゲームがどうしても作りたいのでかじりついて離れずにいます。

**デフォルトの名無しさん** · 2018/05/30(水) 10:34:14.77

>>527
叩かれるのはどれだけ親切丁寧に説明しても同じ場所を延々ぐるぐる回り続けてるからだよ

**デフォルトの名無しさん** · 2018/05/30(水) 14:51:11.60

ほんそれ
話聴かない奴は叩かれる

**デフォルトの名無しさん** · 2018/05/30(水) 17:57:51.44

>>527

＞Delphi6買っとけば良かったなと思っていたら、初心者の入門書に収録されていました。

本の名前教えて。
俺もDelphiのHELP欲しい。

**デフォルトの名無しさん** · 2018/05/30(水) 20:16:26.04

>>510、>>527
MCIさんでしょ？
オーディオプレーヤは諦めて双六ゲームにしたの？

**デフォルトの名無しさん** · 2018/05/30(水) 20:52:42.12

>>530
下のURLの「Borland Delphi 6 ドキュメントアップデート #1」って
ダウンロードしたら使えるんじゃ？
もっとも .hlp はWindows10とかだと、そのままじゃ読めないと思けど

http://support.embarcadero.com/jp/article/35932

**デフォルトの名無しさん** · 2018/05/31(木) 00:53:55.84

このアップデートファイルは、Delphi 6 のライセンスユーザー向けに提供されるものです。
このファイルの使用に関しては、製品に同梱されたソフトウェアご使用条件に準じます。

**デフォルトの名無しさん** · 2018/05/31(木) 00:56:10.16

ナンセンスなラ（略）

**デフォルトの名無しさん** · 2018/05/31(木) 02:41:36.75

>>533
アップデートファイルを単独で使用するなってこと？

そもそもdelphi 6 personalってフリーなんだから
その程度はいいんじゃない？

**デフォルトの名無しさん** · 2018/05/31(木) 12:29:07.06

>>361 この人まだいるんだね(笑)

**デフォルトの名無しさん** · 2018/05/31(木) 15:12:07.71

オマエモナ

**デフォルトの名無しさん** · 2018/05/31(木) 17:49:48.89

Unicode 正式対応したのは
どのバージョンから？

**デフォルトの名無しさん** · 2018/05/31(木) 19:52:10.32

>>532

ありがとう！

**510** · 2018/06/01(金) 04:16:23.59

>>531
MCIいじってますよ。
ただ今は、TStringsと戦ってます。

>>528
そうですね。
理解が追いついていかない。ふがいないなぁ。

**デフォルトの名無しさん** · 2018/06/01(金) 07:07:59.62

>>538
2009じゃね？

**デフォルトの名無しさん** · 2018/06/01(金) 08:17:03.08

>>538
string型のutf8化は2009から。
ucs2程度やwidestringであれば、少なくともdelphi7でも使えてる。

**デフォルトの名無しさん** · 2018/06/01(金) 12:06:09.39

結局
>今回は５年ぶりくらいにコンパイラーいじっていますので
５年ぶりとかやる気ないだけだから教えるだけ無駄。

**デフォルトの名無しさん** · 2018/06/01(金) 12:13:27.24

てか5年ぶりじゃないだろ
去年の夏も散々質問してたし
その1、2年前も来てたし

思うに、やるときは集中的にやって初心者脱出しないと
永遠に初心者のままだろ

**デフォルトの名無しさん** · 2018/06/05(火) 19:54:37.86

直そう直そうと思っている毎日使っている自作ソフト、最後にビルドしてからまもなく10年になるわぁ

**デフォルトの名無しさん** · 2018/06/05(火) 19:55:52.87

違った、2005年なので13年経過。。。

**デフォルトの名無しさん** · 2018/06/06(水) 10:45:41.05

痴呆が始まってるな

**デフォルトの名無しさん** · 2018/06/07(木) 09:31:17.03

Delphiに直結する話題じゃないけど
ちょっとお知恵を貸してください

公開してるDelphiで作ったツールがあるんですが
ツール内にサポート用の掲示板みたいなのを実装したい

方法としてどんなのが考えられる？

やっぱ最低でもcgi使えるサーバとか必要？

**デフォルトの名無しさん** · 2018/06/07(木) 10:03:50.30

>>548
1.適当に掲示板スクリプトを設置してTWebBrowserで表示

2.BaaS使ってRESTでやり取り

3.SQLにFireDACで直接接続

4.WindowsVPS（Linuxに吐けるならLinuxでも可）でDataSnap

好きなのをどうぞ

**デフォルトの名無しさん** · 2018/06/07(木) 17:01:17.95

>>548
まあ書き込みを送信する場所と書き込まれたものをダウンロードできる場所は必要だろう
サーバ借りなくても個人が固定IP契約しているならそのIP宛にすることも出来るし
固定じゃなくてもダイナミックDNS使えるルータとか使っているならそれを利用するのも手
適当なレンタルサーバでも月2000円も掛からないからそういうの使うのがベストだけど

というかしたらばあたりにスレ立ててそこを表示するようにするのはどう？
5chと違ってAPIいらんし

**デフォルトの名無しさん** · 2018/06/08(金) 07:49:33.51

>>549
cef4delphiがよいよ

**548** · 2018/06/08(金) 20:17:07.49

レスが遅くなりました

やっぱそんな感じですよね
配布サイトはcgi使えないのでレンタルサーバか自宅サーバですよね
したらばはスクレイピングが可能だったらいいかも

あとは、データは配布サイトに置いて投稿はメール経由かな

**デフォルトの名無しさん** · 2018/06/08(金) 22:02:43.94

P2P

**548** · 2018/06/08(金) 22:45:08.12

よく考えたら、したらばはスクレイピング不要で
旧2ちゃんと同じでdatファイルを直接ダウンロードできるんでしたよね

したらばにしようと思います

p2pは理想だけど、開発側も利用者側も障害が大きすぎるような

**デフォルトの名無しさん** · 2018/06/09(土) 16:37:47.65

delphi10.2を使っています。
ActiveXのコンポーネントを追加するのにdclusr.dpkをあらかじめインストールしようとしても
dclusr.dpkが正しくないとかのエラーが出てしまいます。
dclusr.dpkって他のPCに入っている同バージョンのものをコピーしてもいいものでしょうか？

**デフォルトの名無しさん** · 2018/06/09(土) 18:48:08.83

全然的外れとは思うけど
delphiを管理者権限で起動してる？

**555** · 2018/06/10(日) 06:13:38.25

確認してみます。
コピーしようとしたpcはすんなり出来たので管理者とか気にしてませんでした。
ありがとうございます。

**デフォルトの名無しさん** · 2018/06/14(木) 03:02:30.74

めっちゃ便利になった

sc7b & i:: ; Ctrl+無変換＋iでbeginを上方検索
ImeOff()
if GetKeyState("Ctrl", "P")
{
send,^k8
send,^qfbegin{enter}
send,^q8
send,^+l
send,{home}
}
else
send,{up}
return

sc7b & k:: ; Ctrl+無変換＋kでendを下方検索
ImeOff()
if GetKeyState("Ctrl", "P")
{
send,^qfend{enter}
send,{left}{right}
}
else
send,{down}
return

**デフォルトの名無しさん** · 2018/06/18(月) 18:42:12.53

Indyのヘルプについて教えてください

delphi 10.2.3を使っていて、IndyのIdCookieを使うのにヘルプを見たんですが
どうも自動補完される項目とヘルプの内容が一致していないみたいです

事実、古いネット上のサンプルでもpropertyなどが認識できないと
エラーが出るんですが、ヘルプにはちゃんと記載されています

もしかして、ヘルプの内容がかなり古い？