くだすれDelphi(超初心者用)その59【Embarcadero】

■ このスレッドは過去ログ倉庫に格納されています
2021/09/24(金) 11:16:27.40ID:gP9hkwVT
Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、もしくは
質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。

Delphi使いが優しくコメントを返しますが、お礼はDelphiの布教と初心者の救済をお願いします。

■ Delphi 11
http://www.embarcadero.com/jp/products/delphi

■ Delphi Community Edition (無料)
iOS、Android、Windows、macOS 向けアプリも開発可能。年間売上5000 US＄以内の商用開発可。
https://www.embarcadero.com/jp/products/delphi/starter

＜前スレ＞
くだすれDelphi(超初心者用)その58【Embarcadero】
https://mevius.5ch.net/test/read.cgi/tech/1583919039/

■ 便所の落書きレベルの個人的な悪口やきつい言葉（氏ねとか）は禁止だからな。
■ Embarcaderoヲッチャ的な内容も歓迎だ。

■ 誰も立てないから立てた。さあ語れ。
159デフォルトの名無しさん
垢版 |
2021/12/10(金) 19:01:56.59ID:uwE9EWvi
動くように作ってあれば動くしそうでないなら動かない
テストしろ
2021/12/11(土) 17:15:44.03ID:1o+z0Z9X
>>155
へー面白いな。 Delphi 11 でもコンパイル通らなかった。
l.PList^[0].a := 200; は通った。

誰か https://quality.embarcadero.com/ へ報告してみてくれ。
2021/12/12(日) 10:56:57.49ID:MhG24nu3
Delphi6までが花だったな、、
あの当時はVB4,5,6よりDelphiだったな
162デフォルトの名無しさん
垢版 |
2021/12/15(水) 20:05:10.52ID:EWO6TGuR
>>161
お前が無能なだけ。
2021/12/16(木) 23:03:59.34ID:35F0Nn5K
6でほとんど完成してるしね
その後で大きく変わったのは2009のUnicodeくらいか
あと64bit対応
2021/12/16(木) 23:45:44.03ID:5UffiMJU
泥
2021/12/17(金) 08:17:21.94ID:iooHyODa
UbuntuにもLazarusを入れちゃった。
VCLと同じ様にフォームやGUI要素のCanvasにDrawやLineなんかで描画出来るのな。
2021/12/18(土) 06:16:33.42ID:rvEoURnS
>>163
6はPersonalで触れた人が多いからそんな印象があるかもしれないけど、
基本の完成は3か5じゃないかな。
むしろ、凋落を決定的にした8とは比べものにならないけど
6のCLXは今も続く迷走と混乱の始まりでもある気が。

まあそれでも5,6,7の頃が良かったかと言われると
ジェネリックスと無名メソッドとRTTI以前には戻りたくない。
2021/12/18(土) 10:51:58.67ID:JiFsxsTJ
CLXなんて誰も使ってないし知らねーよww
VCLは6で完成してる
Actionは5からで、6で洗練された
C++使いだからDelphiの言語機能は知らんが、俺もC++03のBCC32には絶対戻れない
BoostからもBANされたし
2021/12/18(土) 12:57:11.86ID:kFtfQF0V
Sydneyの高DPI対応だけどマウス位置がヘンだね
PopupMenuをコントロールに登録して右クリックしても
違った位置に表示されるし
コントロール上でマウスホイールを操作しても
スクロールされない
（コントロール外の「ある位置」でスクロールできるが）

LocalToAbsoluteで手動でポップアップ可能だけど
こんどはMacだと標準DPIでおかしくなる・・・

Alexandriaで改善されてる？
2021/12/18(土) 12:58:03.42ID:kFtfQF0V
言い忘れたけど>>168はFMXの話ね
170デフォルトの名無しさん
垢版 |
2021/12/18(土) 20:34:48.33ID:EMP1US3g
6とか言ってるやつらは結局ヴァージョンアップについていけない頭が硬いやつ。
2021/12/20(月) 00:46:30.45ID:VIlbe36R
至高は7.1
2021/12/21(火) 22:11:27.76ID:MSRfJCLl
JEDI入れればDelphi5で十分だわ
173デフォルトの名無しさん
垢版 |
2021/12/22(水) 20:51:01.26ID:f0YYpD33
FMXを使え無い奴らが傷を舐め合ってるのは醜いですね。
2021/12/22(水) 23:09:00.84ID:U/rSrPT6
文字関係ないなら Delphi5
UniCode 使うなら Delphi2009
泥も対応するなら Community Edition
2021/12/23(木) 12:25:45.66ID:lKVaM3ne
>>173
「FMXなんて使い物にならない」が正解だろ
漢字変換時の色表示がまともに出来ないからメモ帳アプリ一つ作れない
欧米文字圏向けの機能であって実質日本語対応できてない
2021/12/23(木) 14:08:41.97ID:J40EvNKQ
>>175
確かに日本語でガシガシ入力するようなアプリには向かないね
FMXについて分からないときに検索すると
日本語サイトがほとんどヒットしないから
日本じゃ使ってる人が少ないかな？

自分はVCLで公開してたツールをFMXに書き換えた
macOS版も公開できたんで良かったと思ってるよ
177デフォルトの名無しさん
垢版 |
2021/12/23(木) 19:45:10.64ID:3vFsU6TW
映像系はFMXがいい。
178デフォルトの名無しさん
垢版 |
2021/12/23(木) 19:59:52.65ID:3vFsU6TW
画像系もだけど簡単に作れる。
2022/01/01(土) 19:08:08.92ID:B671uOIk
以前URLMemo開発中って聞いてたけど
その後どうなったんだろう？

ちょっと期待してたんだけど
180デフォルトの名無しさん
垢版 |
2022/01/03(月) 11:20:02.88ID:u5vp/Xv0
WindowsMediaPlayerで、動画のサムネイルの作り方知りませんか？
やり方を教えてください。
2022/01/04(火) 10:43:20.36ID:PexIqwD4
>>180
Delphiで？WindowsMediaPlayerで？
2022/01/04(火) 11:22:54.08ID:xoa25m9y
>>181

Delphi６と10.4に、WindowsMediaPlayerをココ見て入れてます。

https://chapmanworld.com/windows-media-player-in-delphi/

いろいろ調べて、ヒントのHPもありましたが、よくわかりませんでした。
2022/01/04(火) 15:17:07.61ID:gSVIkeEa
>>158
DelphiってWin32の上に作られてるんだから動くんじゃね
184デフォルトの名無しさん
垢版 |
2022/01/09(日) 20:28:54.76ID:cz498f6K
ここさ、低レベルの質問にも答えられる奴いないんだ。
閉めたら。
2022/01/09(日) 21:41:35.55ID:pIDPvBya
何年も前からいるMediaPlayerオジサンだと思う
186デフォルトの名無しさん
垢版 |
2022/01/09(日) 22:21:31.76ID:EKl8p2sJ
>>184
答える義務があると思ってんの？
馬鹿なの？
187デフォルトの名無しさん
垢版 |
2022/01/10(月) 12:56:15.48ID:IgilbmVI
>>186
お前はいらない
2022/01/10(月) 14:17:41.84ID:GAnHefdY
てか今更ActiveXなんか使いたいととは思わない

まあ最悪、APIでウィンドウ・キャプチャして
コントール位置から画像を取得し
縮小すればサムネールになるのでは？
DRMの制約がばければ簡単にやれる
189デフォルトの名無しさん
垢版 |
2022/01/10(月) 20:05:52.12ID:qKhq5mEa
>>187
教えてもらえなくて悔しいか？ボケ
190デフォルトの名無しさん
垢版 |
2022/01/10(月) 20:21:02.01ID:IgilbmVI
>>188
そう言う話が欲しかったんだよ。
ありがとう。
2022/01/11(火) 10:44:04.39ID:/iko8Zx0
ID:IgilbmVIとID:xoa25m9yは同じ人？それとも別人？
192デフォルトの名無しさん
垢版 |
2022/01/11(火) 20:34:28.70ID:9hbtO47M
いずれにしろdelphiユーザーのレベルが落ちた現実は間違いない。
2022/01/12(水) 08:51:04.44ID:OoHNqlci
そもそも誰も使ってない
2022/01/12(水) 22:19:52.58ID:pkJ/C3Bf
できるやつは他に移っただけだろ
2022/01/14(金) 15:57:00.11ID:5l13ptG1
>>192
みんな.NET移行したからな
スピード遅くてもマイクロソフト純正を皆選んだ
196デフォルトの名無しさん
垢版 |
2022/01/16(日) 12:43:16.96ID:DZ6bA4Pf
例年なら11月頃出ていた翌年のRoad mapすら出てないもんな。
2022/01/16(日) 14:09:00.96ID:1X6KIaVp
　　　　?,へ､　　　　　　　　／＾i
　　　　?|?\〉｀ヽ-―ー--<　〈\?|
　　　　?7?　?,?--?、,?---　、　?ヽ
　　　?/　?/?　＼､i,?,ノ　?　?ヽ　?ヽ
　　　?|　?（-=・=-?　-=・=-?　）　　|?　　あらいぐま Pascal
　　　/　彡　　/?▼　ヽ　　ミミ　　　、?
　　く彡彡　　?_／＼_　　　　ミミミ　ヽ
　　　｀＜　　　?　　　　　　　?　ミミ彳ﾍ
　　　　?　＞　?　　　　　__＿／　　　＼
　　　　　/　　　　　　　　　7　　　　　　＼
　　　　　|　　　　　　　　／
2022/01/16(日) 15:58:43.27ID:OrzMWzTe
魔導師ラルバにいたね。
199デフォルトの名無しさん
垢版 |
2022/01/18(火) 19:31:17.19ID:BVRzyJWf
.NETに移行するにはどうしたらいいですか？
お金かかりますか？
2022/01/18(火) 19:37:55.78ID:dLKryYZg
VisualStudioにもCommunity版があるから無料で始められるんじゃね
2022/01/21(金) 14:55:13.08ID:RFcu/rPf
どんな回答を期待しているかわからんけど>>200の通り開発ツールは無料がある
Delphiのソースの移行をいってるならそりゃかかるだろうとしかいえない
2022/01/21(金) 15:30:27.30ID:Vov7tP1H
Delphi→VB.NET移行やってるソフトウェアハウスは存在する
2022/01/21(金) 18:44:51.33ID:9k4QndMM
>>202
わざわざ糞から大糞に移行してんのか？ｗ
2022/01/22(土) 19:52:30.36ID:hllS3Np3
質問です、お願いします。
Delphi6
普通のWindows メインフォーム表示のプログラムです。
コマンドラインでパラメータ付き起動自動処理させると
処理が終わるまでメインフォームが表示されません。

(Q1) メインフォームが表示されきってから処理に自動移行させるにはどういうソースにすればいいんでしょうか？

ググっても「メインフォーム非表示で処理をしたい」系統は拾えるのですが
処理中の経過インジケータ(ProgressBar)などを表示させたいのに
TForm1.FormCreate 最終に引数があれば→コマンドライン自動処理→プログラム自動終了
処理終わるまで非表示状態でプログラム終了時にチラっとフォームが表示されて終わってしまう。

(Q2) パラメータ -? /? など使用方法文字をWindowsのコマンドプロンプト画面に表示させるには？
uses
〜, SysUtils, 〜;
(略)
procedure TForm1.FormCreate(Sender: TObject);
if 0 < ParamCount then CmdLines;
end;

procedure TForm1.CmdLines;
begin
Application.ShowMainForm := True; // 有効指定にしても表示されなかった
// メインフォーム表示まで待機させたい
// 各種処理
Writeln('-? Question'); // 表示テスト　結果: I/O エラー (105)
end;
2022/01/22(土) 20:28:19.97ID:4ALmERPc
>>204
確か起動時の最後のイベントはOnShowかOnActivateだったはず
起動時のイベントにコードを書いたときは、それが終了しないと
フォームの表示までたどり着かないんじゃないかな

さらに処理中にフォーム／コントロールを更新するには適宜
Application.ProcessMessages;
を挿入するとか．．．
2022/01/22(土) 21:03:11.09ID:Ufnc9BTd
俺はCMShowingChangedを使ってる
2022/01/22(土) 22:17:43.96ID:icQmMHjl
イベント内でやるよりスレッド立ち上げた方がよい気がす
2022/01/22(土) 23:47:01.23ID:QLvDYOxQ
>>204
(Q1)
まだ出てない方法としては、Application.OnIdleで処理を行う。
このイベントは、何かの処理が全て終わって入力を受け付け始める寸前に発生する。
何かの処理には起動も含まれるので、起動処理が完全に終わった時点で初回の呼び出しが発生する。
初回のイベント時に、次から呼び出されないようにフラグを立てたりApplication.OnIdle=nilとしておく必要あり。
このような再発生防止が必要なのは他のTForm.OnShowやOnActivateでも同じ。

(Q2)
Writelnの出力先になる標準出力があるのはコンソールアプリだけなので、
VCLフォームアプリケーションでWritelnを使いたければdprファイルの２行目に{$APPTYPE CONSOLE}を追加する。
ただしこの方法ではGUIから起動してもコマンドプロンプトが開くので、
それが嫌な場合はWin32APIのCreateToolhelp32SnapshotやAttachConsoleを調べて、
自身の親プロセスがコマンドプロンプトなら標準入力を開いて書き込みをするコードを自力で書く。
209デフォルトの名無しさん
垢版 |
2022/01/23(日) 00:03:58.69ID:MiYFwUbv
>>184 これを書いた馬鹿か
2022/01/23(日) 15:15:22.96ID:rgu8tDed
>>204
タイマーを1回だけ発生させるか、
コンストラクタ辺りでユーザー定義イベントをPostMessageする
2022/01/23(日) 15:17:52.24ID:L9V4k4Y/
>>210
タイマーとかｗｗｗ
2022/01/23(日) 16:03:51.63ID:F+4VB1MM
うん
それはない
213204
垢版 |
2022/01/23(日) 21:07:24.29ID:rly1QhuB
みなさんレスありがとうございます
(Q1)のメインフォーム表示後に処理を行うは
>>206 さんの CMShowingChanged の方法でうまくいけたようです。
コード名でググってズバリがあった！「くろねこ研究所 [Delphi] フォームの表示完了時」
h　ttps://www.blackcat　.xyz/article.php/ProgramingFAQ_del0049
>204 の TForm1.FormCreate 部分から↑ソースの「// 実際の処理を記入」部分に移動させると成功しました。

// 実際の処理を記入　に移動↓
if 0 < ParamCount then CmdLines;

(Q2) 使用方文をWindowsのコマンドプロンプト画面に表示させるのは
>>208
・・・・アキラメました！
上のフォームの表示完了時処理がうまくいった際に　ふと
フォーム表示させるんだから
-? 指定の場合、TMemo 出してそこに表示させて、自動終了させなければ良いじゃないか！？　と
214デフォルトの名無しさん
垢版 |
2022/01/23(日) 23:37:14.81ID:MiYFwUbv
やっぱり馬鹿でしたとさ
2022/01/25(火) 10:54:31.44ID:mymJByV6
馬鹿って言う方が馬鹿！
2022/01/25(火) 15:19:25.91ID:AuI/wRkH
幼稚園児かよ
217デフォルトの名無しさん
垢版 |
2022/01/25(火) 19:36:11.37ID:FRv3cvRT
>>209
無能のくせに黙ってろよ。
2022/01/26(水) 14:42:01.08ID:PbTYM2UJ
>>213
起動オプションの説明だけなら
Dialogs.ShowMessage でもいいんでね
2022/01/30(日) 17:33:29.46ID:dxC+679l
TEdgeBrowserを使ってみたけど
edgeにインストールした拡張機能は無効になってるんだね
（WebView2の仕様か）

久しぶりにブラウザでテンコ盛りの広告を見た
2022/01/31(月) 10:47:26.70ID:3t2Jc/Ib
3.3が期限切れになったのでCommunity Edition 10.4をDLしようとしたのですができません。

無料版のページからメアドとパスワードを入れて先に進もうとすると
https://www.embarcadero.com/jp/
に飛ばされて
--------
エラー
SOAP-ERROR: Parsing WSDL: Couldn't load from 'https://members.embarcadero.com/ws/members.asmx?WSDL' : failed to load external entity "https://members.embarcadero.com/ws/members.asmx?WSDL";
--------
って表示されて、メールも来ません。
何を間違ってしまったのかしら。
2022/02/06(日) 10:13:04.07ID:1UiG5azH
>>220
まあ大変！一体どうしたのかしら？
2022/02/07(月) 02:55:34.53ID:7JZsZvvB
https://www.embarcadero.com/jp/ はトライアル版用じゃね？
2022/02/07(月) 09:27:04.90ID:4gPFSaoN
久しぶりに使おうとしたら有効期限切れてた
めんどくさくなったからアンインストールしましたとさ
この辺はVSの方が全然いいな
2022/02/09(水) 22:04:22.52ID:yziGOL4A
PC替えたけど今度こそDelphi7インスコやめようか思案中
どうせVCL山ほど入れないと動かないのだらけだし面倒になってきた年だわ
225デフォルトの名無しさん
垢版 |
2022/02/10(木) 00:28:20.61ID:OYRhfZHJ
インスコと書いてる時点で頭の悪さがわかる
2022/02/10(木) 00:51:52.47ID:ujUsmTLw
シコシコしてから寝るかな
2022/02/10(木) 22:15:58.15ID:wEM/scpf
>>225
自分だって書いてるじゃんけインスコｗ
2022/02/10(木) 23:22:33.13ID:nbe/+nAa
小麦粉、砂糖、ラードを主原料とした焼き菓子
229デフォルトの名無しさん
垢版 |
2022/02/11(金) 17:32:25.30ID:XvRxKZCL
インスタage
2022/02/11(金) 23:28:10.47ID:YcCRiQEg
もしかして：ユニフォームの下に身に着ける下着
2022/02/14(月) 15:39:28.05ID:BrAHaw/0
27周年って全然区切りよくないやん
2022/02/14(月) 18:52:04.25ID:KqLSwxWJ
Delphi 11のCEはいつになるんだろう？

FMX（CE版Sydney）アプリでOneDriveに履歴を保存していて
（Windowsアカウント）認証にTWebBrowserを使ってるんだけど
Macとかモバイルとかは大丈夫だけど
IEを使うWindowsでは拒否されるようになった
2022/02/15(火) 08:28:47.47ID:vdBn9L/9
>>232
よくわからないけど、その不具合がDelphi 11で解決しそうなの？
それはTEdgeBrowserを使うべき案件じゃない？
2022/02/15(火) 08:48:21.99ID:/DBd/DKY
>>233
11のFMXのTWebBrowserにはWindowsEngineていうプロパティがあって
EdgeIfAvailableかEdgeOnlyにするとEdgeが使われるらしい
2022/02/15(火) 10:02:30.60ID:XQA06Tde
>>232
次のメジャーアップデートの後のはず。

例えば、今のバージョンが11.0.0だと仮にすると
次のアップデートが11.0.1、11.0.2、11.0.3と出て
次のメジャーアップデートが11.1.0としてリリースされたら
11.0.3がCEになるってYouTubeLiveで言っていたね。
長くて2年ぐらい後？
2022/02/15(火) 14:15:46.85ID:1dzQ2/x/
今やってる修正版ベータ、11.1 だぞ
2022/02/15(火) 15:44:58.32ID:Tsp7V9hi
>>234
11は触ったことがないが、10.4のTWebBrowserでも
SelectedEngineプロパティでEdgeIfAvailable・EdgeOnlyは設定できるが？

それにChromiumベースのブラウザを使いたいのなら
>>233が言うようにTEdgeBrowserを使う方がいい。
2022/02/16(水) 01:03:04.48ID:EF7aI/Wq
>>237
ええと>>232で言ってるようにFMXアプリで使うTWebBrowserの話なんだが
FMXのTWebBrowserはVCLより1世代遅れてる
239デフォルトの名無しさん
垢版 |
2022/02/16(水) 07:33:24.36ID:S0GBYsPj
>>232
いまんところDelphi11はバグだらけだからな
CEだしても悪評が立つだろう
2022/02/16(水) 09:24:38.62ID:9vHtEcWa
>>239
バグだらけとは具体的にどこの何がバグですか？と
太ったmvpがキレて聞いてきそうｗ
2022/02/16(水) 15:22:54.72ID:Wl61IFNm
Delphi 10.4.2 Community Edition で

TIdHTTP と TIdSSLIOHandlerSocketOpenSSL を使って
HTTPSサーバーからファイルをダウンロードしようとしています

テストした窓の杜からはダウンロードは出来るのですが
https://dforest.watch.impress.co.jp/library/e/...

目的のマイクロソフト関連サーバーからダウンロードすると
Socket Error #10054　で切断されてしまいます
https://msedgedriver.azureedge.net/97.0.1072.69/edgedriver_win32.zip

両方ともIrvineでダウンロードができたので
UserAgentは、Irvine/1.3.0
SSLOptions.Methodは、sslvTLSv1_2
SSLOptions.SSLVersionsは、[sslvTLSv1_2]
にしています
あとはCreateした状態のままです

Irvineのログを比較したら途中から違うのはわかるのですが
どこを設定したらいいのかわからないのでお願いします
2022/02/16(水) 19:30:04.90ID:EF7aI/Wq
普通にダウンロードできるようです
function GetStreamFrom(URL: string): TMemoryStream;
var IdHTTP: TIdHTTP; SSL: TIdSSLIOHandlerSocketOpenSSL; Cookie: TIdCookieManager;
begin
result := TMemoryStream.Create;
IdHTTP := TIdHTTP.Create(nil);
IdHTTP.ReadTimeout := 20000;
IdHTTP.ConnectTimeout := 20000;
IdHTTP.RedirectMaximum := 16;
IdHTTP.HandleRedirects := True;
IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/98.0.4758.80 Safari/537.36 Edg/98.0.1108.50';
SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSL.SSLOptions.SSLVersions := [sslvTLSv1_2];
IdHTTP.IOHandler := SSL;
Cookie := TIdCookieManager.Create(nil);
IdHTTP.CookieManager := Cookie;
IdHTTP.AllowCookies := true;
try try
IdHttp.Get(URL, result); result.Seek(0, TSeekOrigin.soBeginning);
except on e: exception do begin ShowMessage(URL + ':', e.Message); freeAndNil(result); end; end;
finally FreeAndNil(SSL); FreeAndNil(Cookie); IdHTTP.Free; end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Stream: TMemoryStream;
begin
Stream := GetStreamFrom('https://msedgedriver.azureedge.net/97.0.1072.69/edgedriver_win32.zip');
if Stream <> nil then begin Stream.SaveToFile(AppDir + PathDelim + 'edgedriver_win32.zip'); Stream.free; end;
end;
2022/02/16(水) 19:34:07.39ID:EF7aI/Wq
ちなみに TIdHTTP の error 10054 は注意が必要です
一度これが発生するとTIdHTTPを再作成しないと、それ以降の通信ができなくなります
（もしかしたら改善されてるかも）
244デフォルトの名無しさん
垢版 |
2022/02/16(水) 21:18:01.22ID:S0GBYsPj
>>240
QC見ればIDE関連の不具合が多い
俺が最初に遭遇したのは高DPIじゃない環境で動かすとIDEのウインドウが画面の縁に貼り付いて動かせなくなるやつ。

今は起動時に /highdpi:unaware のオプションを付けて回避している
245235
垢版 |
2022/02/17(木) 08:55:08.32ID:+pSVf+Og
>>236
そうなんだ。

メジャーアップデートしたら次は、12になるのかな？
2022/02/17(木) 13:02:13.73ID:Gtdh3ZCr
>>242
教えてもらったコードでダウンロードできるようになりました
あとOpenSSLのDLLが少し古かったのも原因でした
ありがとうございました
2022/02/17(木) 19:28:14.46ID:LHuk2Jso
SSLのことを考えるとTNetHTTPClientを使った方が楽
あとファイルをダウンロードするんだったらgzip圧縮とかが必須になるけどIndyよりTNetHTTPClientの方が分かりやすい

NetHTTPClient := TNetHTTPClient.Create(nil);
NetHTTPClient.ConnectionTimeout := 20000;
NetHTTPClient.ResponseTimeout := 20000;
NetHTTPClient.SendTimeout := 20000;
NetHTTPClient.AllowCookies := true;
NetHTTPClient.MaxRedirects := 8;
NetHTTPClient.HandleRedirects := true;
NetHTTPClient.Accept := 'text/html, ...略';
NetHTTPClient.AcceptLanguage := 'ja,en-US;q=0.9,en;q=0.8';
NetHTTPClient.UserAgent := 'Mozilla/5.0 ...略';

var AcceptEncoding: string := 'gzip, deflate, br'; // 圧縮を指定
NetHTTPClient.AcceptEncoding := AcceptEncoding;
if AcceptEncoding.Contains('gzip') then NetHTTPClient.AutomaticDecompression := [THTTPCompressionMethod.GZip];
if AcceptEncoding.Contains('deflate') then NetHTTPClient.AutomaticDecompression := NetHTTPClient.AutomaticDecompression + [THTTPCompressionMethod.Deflate];
if AcceptEncoding.Contains('br') then NetHTTPClient.AutomaticDecompression := NetHTTPClient.AutomaticDecompression + [THTTPCompressionMethod.Brotli];

var Response: IHTTPResponse := NetHTTPClient.Get(Url, Stream);
if Response.StatusCode <> 200 then FreeAndNil(Stream);
2022/02/18(金) 16:49:44.77ID:5ngW6sfm
修正も終わりDLLも必要なくなりシンプルになりました
Delphi6から移行したてだったのでいい方法も教えていただき感謝です
2022/02/18(金) 17:04:34.18ID:DsjL+FkV
docwiki.embarcadero.com が死んでて、調べ事が進まん
2022/02/19(土) 04:39:16.68ID:CUQ6ML0/
https://thenewstack.io/microsofts-programming-language-czar-anders-hejlsberg-the-interview/
2022/02/20(日) 02:23:09.23ID:9O/T+xZ7
>docwiki.embarcadero.com が死んでて
ウクライナ紛争が落ち着くまでは無理かなぁ
2022/02/21(月) 20:31:49.53ID:wZ7k2n/p
われらが MVP 様が LGPL に関してデマを流しているのだけど、どうしようか。
会社レベルでやらかしていそうで、大事にしたほうが良いかしら。
2022/02/24(木) 18:41:10.97ID:p//ediiJ
ttps://twitter.com/TodaProduction/status/1496697218346414080
>この人、いつも色々と教えてくれるんだけど、正直言ってこの人のお陰で「何かが解決した」ことは一度も無い

吐駄に言われとる。けど、これが現実の評価なのよん > MVP
https://twitter.com/5chan_nel (5ch newer account)
254デフォルトの名無しさん
垢版 |
2022/02/24(木) 20:38:03.44ID:LIVeRIhG
>>253
めんどくさい奴だなお前
2022/02/25(金) 07:49:28.25ID:VwpZdwFa
>>253
https://twitter.com/TodaProduction/status/1496656335790047232
BeginThread関数にローカル変数へのポインタ渡しているバグがあるね。
todaはMVPに感謝しろよな
https://twitter.com/5chan_nel (5ch newer account)
2022/02/25(金) 23:29:17.57ID:aqF/7FEW
うーん、なんでMVPごときに粘着するのかなぁ
Delphiの世界が小さくなり過ぎた弊害か
257デフォルトの名無しさん
垢版 |
2022/02/27(日) 02:53:06.55ID:YPx9Fy3D
「タケノコ生活」
ttps://www.weblio.jp/content/%E3%82%BF%E3%82%B1%E3%83%8E%E3%82%B3%E7%94%9F%E6%B4%BB
四半世紀前の遺物に喜んでるようじゃなぁ
2022/03/02(水) 05:34:44.87ID:e4CYjqBe
>>256
5chなんてどこも粘着嵐ばっかりだし
嫌なら離れるか板ローカル、スレッドローカルあぼーん付きブラウザ使えばいい
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況