delphi タグが付けられた最新の質問 - スタック・オーバーフロー

Delphi11におけるAndroid開発環境構築でのエラー

2024-03-30T10:49:32Z

delphiを使ってAndroidアプリの作成を試したく
コードを描くのはdelphi、エミュレータのみAndroid studioを使って環境を作っています。

しかし、ハローワールドにたどり着けないです。

ハローワールドのコードをdelphiで作成後、実行しても下記エラーが出ます。

プロセスを生成できません。(~~~apkファイルの場所~~~)をインストールできません。
Androidデバイスは選択されたターゲット プラットフォーム アーキテクチャをサポートしていません

検索をかけましたが、状況に合う記事を見つけれなかったため助力いただけますと幸いです。

環境:
delphi 11
SDK 25.2.5 64bit

AndroidStudio(多分最新)

試したこと:
エミュレータ側のAPIレベルを下げる。
PC再起動。
SDK再インストール。

Windows Server 2019環境でのDelphi5 アプリの文字入力不具合について

2023-06-09T08:30:20Z

Delphi5にて作成しているアプリ(以下、アプリといいます。)を、下記Windows Server 2019のリモートデスクトップ環境にて使用しています。

Windows Server2019 バージョン1809（OSビルド17763.4377）

事象としては、アプリのグリッドビューへローマ字入力を行うと、1文字目で確定される事象が発生しております。IMEの設定変更で回避できるか調整しておりますが、改善に至っていません。
ご質問したい内容につきましては、下記となります。

Delphi5アプリにて、Windows Server 2019環境で文字入力に適したコーディングはありますか？

併せてアプリの開発環境を下記のとおりお伝えいたします。

Borland Delphi Professional Version 5.0(Build 5.62)

端的な内容にて恐縮では御座いますが、
ご教示の程宜しくお願い申し上げます。

動画のループ再生を、切れ目なく滑らかにしたい

2022-06-22T12:18:05Z

動画のループ再生で、ループの瞬間に間が空いて黒くチラついて困ってます。
Twitterなどで見られるような、滑らかなループ再生を実装したいです。

■私が試したこと
　Delphi10.4 にて、ActiveX から Windows Media Player を利用し
　mp4（H.264-AAC）を、そのままループ再生しました。

type
    wmp1: TWindowsMediaPlayer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
    wmp1.URL := OpenDialog1.FileName;
    wmp1.controls.play;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  wmp1.Align := alClient;
  wmp1.settings.setMode('loop',true);
end;

　１ループ目は、滑らかに再生されるのですが
　２ループ以降、一瞬真っ暗になってチラつくように再生されます。
　ビルドしてみても変わりませんでした。

■他の動画再生ソフトでは
　同じ動画ファイルを「MPC-BE」というフリーソフトで再生すると、ずっと滑らかにループ再生されます。
　このことから動画ファイル自体には問題はないようです。
　プリインストールソフトウェアの方のWindowsMediaPlayerでループ再生してみると３周に１回くらいの割合でチラつきます。
　なぜチラついたり、滑らかだったり、安定しないのかも疑問です

Windows10でexeファイルを実行したら、エラー：Access violation at address

2021-12-18T05:26:59Z

Windows10で'xxxxxx.exe'を実行したら、下記エラーが表示され処理ができません。

Access violation at address 0066472F in module 'xxxxxx.exe'.Read of addres 0000007C.

上記エラーが発生した場合の確認方法や確認手段、疑うべき部分、手順などを教えて下さい。

使用言語：Delphi+C#
IDE:Rad Studio10.2で構築されたプロジェクトを10.4に移行して開発

＜エラーの発生個所と思われる部分＞
メインモジュールの表示処理で、「メインモジュールのuses句で結合している『インストール済設計時パッケージ』」の一部がnilになり、nilになった結果、nil部品の内部プロパティをセットしようとし、「Access violation」が出力されているところまで分かったが、
・問題のある設計時パッケージはRad Studio10.4で正常インストールされており、「設計時パッケージ一覧に表示されている」
・問題のあるパッケージを直接プロジェクトファイルをRad Studio10.4で開いてクリーンアップ＆ビルド正常終了
・Rad Studio10.4でデバッグ実行時に、「Access violation」エラー発生
・Rad Studio10.4でビルドしたモジュールexeを起動させた場合も、「読み取り違反」エラーが発生

<今まで確認したこと・試行したこと>
・今回の問題の発生直前で変更したポイントは「Rad Studioを10.2⇒10.4に変更」(ビルド端末には.NET3.5.2と4系では.NET4.6までが導入されいてる)
・「Access violation」エラーが発生した際、デバッガでコンポーネントの追加をモジュール画面から行ったが「読み込めなかった」
・当該モジュールのコンパイル指定はRad Studio2007のコンパイルバージョンが最高値(VCL4)だった。Rad Studio10.4で再ビルドしたがエラー解消せず。
・今回の問題の発生直前で変更したポイントは「Rad Studioを10.2⇒10.4に変更」(ビルド端末には.NET3.5.2と4系では.NET4.6までが導入されいてる)
・「Access violation」エラーが発生した際、デバッガでコンポーネントの追加をモジュール画面から行ったが「読み込めなかった」
・当該モジュールのコンパイル指定はRad Studio2007のコンパイルバージョンが最高値(VCL4)だった。Rad Studio10.4で再ビルドしたがエラー解消せず。
・OracleクライアントのDLLなど他のモジュールは読み込めている。
・データベースアクセスを行うpasモジュールをデザイナで開こうとすると『TQueryがない』旨の、Rad Studioのエラーポップアップ表示
・問題が起きているモジュールはRad Studio10.2、.NET3.5では「ビルド後のモジュールで起動、動作できていた」
・Rad Studio10.4にバージョンアップ、設計時パッケージ一覧をエンバカデロ提供「移行ツール」で移行した。
・問題発生後、「設計時パッケージ一覧」から項目削除、当該モジュールをクリーンアップ＆ビルド後にパッケージのインストールで正常登録を確認。
・クリーンアップ＆ビルド後に再度デバッガで起動確認を行ったところ、当該モジュールのインスタンスをセットしているタイミングで、セットの元の中身がnilだった。

Delphi 10.3 でのコンパイル時、”E2604 ジェネリック型を再帰的に使用しています”の対処

2021-07-13T10:30:27Z

Delphi10.3 Community Edition で以下のサンプルをコンパイルするとエラーが表示されます。どう修正すればよいのかお知恵をお貸しください。

https://github.com/LUXOPHIA/OpenCL

エラーメッセージ:

[dcc64 エラー] LUX.Data.List.pas(79): E2604 ジェネリック型を再帰的に使用しています

ソースコード:

TListChildr<TOwnere_,TParent_:class> = class( TListChildr<TParent_> )
     private
       type TListChildr_ = TListChildr<TOwnere_,TParent_    >;
            TListParent_ = TListParent<TOwnere_,TListChildr_>;　//＜---ここ
     protected
       ///// アクセス
       function GetOwnere :TOwnere_;
     public
       ///// プロパティ
       property Ownere :TOwnere_ read GetOwnere;
     end;

RAD Studio Sydney で、Android実機にプログラムがインストールできなくなった

2021-05-30T02:26:01Z

RAD Studio SydneyのFMXでビルドすると、これまではAndroid実機にプログラムがインストールされて、動作していました。sydneyのパッチをあててからは、AABファイルが作成されるだけで、Android実機で動作しなくなりました。原因がよくわかりません。対処方法をご存じでしたら、教えてください。

Excelファイルを操作すると時々破損します。

2020-03-10T07:35:21Z

現在、仕事の関係にてExcelファイルの内容を自動で書き換えるプログラムを作成していますが、
その前段階にて該当のExcelファイルにマクロが含まれているか判定する様にしています。

そのマクロの判定段階で該当のExcelファイルが破損する事があります。(2019年8月辺りから月に1000ユーザー中5件程度発生し始めている)
原因の検討が付かず困っている状態です。

また、破損したファイルをExcelで開こうとすると、「原紙名:ファイル形式が正しくありません。」とのメッセージが表示され開く事や修復も出来ない状態です。

下記にOLEを操作して、Excelファイルのマクロ有無を判定するコードをお伝えいたします。
Excelファイルのマクロ判定には、Delphi言語にて行っております。

Excelファイルのマクロ判定コード

function MacroCheck(gensi: string): boolean;
var
   PrnFileName:array[0..255] of Char;
   i: Integer;
begin
   strpcopy(PrnFileName, gensi);
   try
      if XlsOpenBook(PrnFileName, nil, i) then begin
         XlsAddSheet(1);
         if not XlsDelSheet(0,XlsGetSheetCount-1) then begin
            //マクロ有り
            Result := True;
         end
         else begin
            //マクロ無し
            Result := False;
         end;
      end
      else begin
         Result := False;
      end;
   finally
      XlsCloseBook(False);
   end;
end;

Indy9のTIdTCPConnection.ReadBufferと同等の機能はありますか？

2019-11-30T12:57:18Z

Indy9で書かれたコードの

void __fastcall TfrmMain::ServerConnect(TIdPeerThread *AThread)
{
     BKUK_PACKET Pkt;
----------(中略)---------------------------------------

AThread->Connection->ReadBuffer((BYTE *)&Pkt,sizeof(BKUK_PACKET));

----------(中略)---------------------------------------
}

ReadBufferという名前の機能はIndy10では見当たらないのですが、同等の機能はありますでしょうか？

コードではPktのポインターのメモリ位置に受信したBKUK_PACKETのデータ内容を移動させていると思われます。

BKUK_PACKET(仮名)というのはこのような感じの1200バイト程度のデータ内容です。

typedef struct _BKUK_PACKET_
{
    BYTE head[4];
    WORD PayLoad;
    WORD Length;
    BYTE Data[1200];
    WORD Ver;
    BYTE tail[2];
}BKUK_PACKET;

以前Indyを使った時に、データ受信などで

AnsiString rcvdStr;


    rcvdStr = AContext->Connection->IOHandler->ReadLn(IndyTextEncoding(932));

このような感じの”ReadLn()”データを受信したことはあるのですが、今回の場合でもReadLn()は使用できますでしょうか？

（途中経過）

Context->Connection->IOHandler->ReadBytes((BYTE *)&Pkt,sizeof(BKUK_PACKET))

ReadBytesという機能を見つけて、上記のようにプログラムしてみたのですが、次のようなエラーが出ます。

[bcc32c エラー] Main.cpp(530): non-const lvalue reference to type 'Idglobal::TIdBytes' (aka 'DynamicArray') cannot bind to a temporary of type 'BYTE *' (aka 'unsigned char *')
IdIOHandler.hpp(235): passing argument to parameter 'VBuffer' here

このようなエラーが出てくるのですが、対策方法などありますでしょうか？

TIdTCPConnection.ReadFromStackと同等の機能はIndy10にはありますか？

2019-11-30T08:09:33Z

Indy9で書かれたプログラム

void __fastcall TfrmMain::ServerConnect(TIdPeerThread *AThread)
{
----------(中略)---------------------------------------
    TIdTCPServerConnection * con = AThread->Connection;
----------(中略)---------------------------------------
       int iExpectedLen = 0, iStackBufSize=0;
----------(中略)---------------------------------------
       iStackBufSize = con->ReadFromStack(true,5000,true);
----------(中略)---------------------------------------
}

このプログラムをIndy10のプログラムに移行したいのですが、ReadFromStackというのをIndy10の取説でキーワード検索しても出てこないのですが、同等の機能というものはありますでしょうか？

inet_addr()という関数でエラーがでる

2019-11-30T03:17:59Z

現在、RAD Studio 10.3でプログラミングを行っています。
Indy9のコンポーネントで作成されたものをIndy10に置き換えています。
ServerConnectメソッドで次のところでエラーが出てきました。

このエラーの回避方法を教えて下さい。

void __fastcall TfrmMain::ServerConnect(TIdContext *AContext)

//-----(中略)--------------------------

pDev = AddDev(pPkt,inet_addr(AContext->Connection->Socket->Binding->PeerIP.c_str()));

//-----(中略)--------------------------

}

エラー内容

[bcc32c エラー] Main.cpp(566): no matching function for call to 'inet_addr'
  winsock2.h(1831): candidate function not viable: no known conversion from 'wchar_t *' to 'const char *' for 1st argument

Delphi + iOSでSafari起動方法？

2016-12-02T08:22:25Z

Delphi で記述されたプログラム上を、 iOSの上で実行する際に、Safariを起動したいです。どうしたらこれを実現できますでしょうか。

WMQueryEndSessionが発生しない？

2015-05-05T08:10:08Z

WMQueryEndSession で、widowsが終了する前の処理をしようと思いますが、WMQueryEndSessionが発生しないようで、WMQueryEndSession内の処理が実行されません。考えられる、原因をご教示ください。
開発環境
Parallels Desktop( 10.2.0 ) + Windows7 sp1 ( バージョン6.1、ビルド7601、64ビット版 ) + RAD Studio XW7( Delphi バージョン 21.0.17707.5020 )

DelphiXE5で作成中のアプリに、コンソールアプリのようにアイコンリソースを持たせたくない

2015-05-01T13:28:56Z

現在delphiXE5を使って、VCLフォームアプリにて細かなツール（モジュール）群を大量に作っているのですが、特に業務で使うアプリであり、いちいちアイコンを設定するのが面倒です。

コンソールアプリのように、アプリそのものがアイコンリソースを持たないようなEXEをを作りたいのですがどうすればよろしいでしょうか？

Delphi4にてInvalid Pointer Operation

2015-03-22T12:33:46Z

http://delphidabbler.com/tips/172
こちらのソースである、SuperSortを使って、文字列をソートしようとしました。
すると、Delphi7,Lazarusでは正常にソートされるのに、Delphi4ではなぜかInvalid Pointer Operationの実行時エラーが帰って来て、デバッグもできない状態です。

実際のコードはこれです。

uses
  SuperSort;

procedure TForm1.Button1Click;
var 
  Srt: TSuperSort;
begin
  Srt := TSuperSort.Create;
  Srt.SortStrings(Memo1.Lines,[],[srtIgnoreBlank]);
  Srt.Free;
end;

こちらのユニットのどこを直せばdelphi4でも動くようになりますか?
よろしくお願い申し上げます。

The unit.

unit SuperSort;

interface

uses 
  Classes,SysUtils;

// ==========================================================================
// Class TSuperSort
// Mike Heydon Nov 2002
//
// Sort class that implements Unix style sorts including ..
//
// SWITCHES
// --------
// -k [StartPos,EndPos]  - Keyfield to sort on. Start and End pos in string
// -d [Field Delimiter]  - Delimter to use with -f switch. default = SPACE
// -f [FieldNumber]      - Zero based field number delimeted by -d
//
// OPTIONS SET
// ============
// srtDescending         - Sort descending
// srtIgnoreCase         - Ignore case when sorting
// srtIgnoreBlank        - Ignore leading blanks
// srtEvalNumeric        - Treat sort items as NUMERIC
//
// ==========================================================================

type
  // Sort Options
  TSuperSortOptions = (
    srtDescending,srtIgnoreCase, srtIgnoreBlank,srtEvalNumeric
  );
  TSuperSortOptionSet = set of TSuperSortOptions;

  // ============
  // TSuperSort
  // ============
  TSuperSort = class(TObject)
  protected
    function GetKeyString(const Line : string) : string;
    procedure QuickSortStrA(SL : TStrings);
    procedure QuickSortStrD(SL : TStrings);
    procedure ResolveSwitches(Switches : array of string);
  private
    FSortTime : TDateTime;
    FIsSwitches,
    FIsPositional,
    FIsDelimited,
    FDescending,
    FIgnoreCase,
    FIgnoreBlank,
    FEvalDateTime,
    FEvalNumeric : boolean;
    FFieldNum,
    FStartPos,FEndPos : integer;
    FDelimiter : char;
  public
    procedure SortStrings(StringList : TStrings; Switches : array of string;
      Options : TSuperSortOptionSet = []);
    property SortTime : TDateTime read FSortTime;
  end;

// --------------------------------------------------------------------------
implementation

const
  BLANK    = -1;
  EMPTYSTR = '';

// ================================================
// INTERNAL CALL
// Resolve switches and set internal variables
// ================================================

procedure TSuperSort.ResolveSwitches(Switches : array of string);
var
  i : integer;
  Sw,Data : string;
begin
  FStartPos := BLANK;
  FEndPos := BLANK;
  FFieldNum := BLANK;
  FDelimiter := ' ';
  FIsPositional := false;
  FIsDelimited := false;

  for i := Low(Switches) to High(Switches) do
  begin
    Sw := trim(Switches[i]);
    Data := trim(copy(Sw,3,1024));
    Sw := UpperCase(copy(Sw,1,2));

    // Delimiter
    if Sw = '-D' then
    begin
      if length(Data) > 0 then FDelimiter := Data[1];
    end;

    // Field Number
    if Sw = '-F' then
    begin
      FIsSwitches := true;
      FIsDelimited := true;
      FFieldNum := StrToIntDef(Data,BLANK);
      Assert(FFieldNum <> BLANK,'Invalid -f Switch');
    end;

    // Positional Key
    if Sw = '-K' then
    begin
      FIsSwitches := true;
      FIsPositional := true;
      FStartPos := StrToIntDef(trim(copy(Data,1,pos(',',Data) - 1)),BLANK);
      FEndPos := StrToIntDef(trim(copy(Data,pos(',',Data) + 1,1024)),BLANK);
      Assert((FStartPos <> BLANK) and (FEndPos <> Blank),'Invalid -k Switch');
    end;
  end;
end;

// ====================================================
// INTERNAL CALL
// Resolve the Sort Key part of the string based on
// the Switches parameters
// ====================================================

function TSuperSort.GetKeyString(const Line : string) : string;
var
  Key : string;
  Numvar : double;
  DCount, i, DPos : integer;
  Tmp : string;
begin
  // Default
  Key := Line;
  // Extract Key from switches -k takes precedence
  if FIsPositional then
    Key := copy(Key,FStartPos,FEndPos)
  else
    if FIsDelimited then
    begin
      DPos := 0;
      DCount := 0;
      for i := 1 to length(Key) do
      begin
        if Key[i] = FDelimiter then
         inc(DCount);
        if DCount = FFieldNum then
        begin
           if FFieldNum = 0 then
             DPos := 1
           else
             DPos := i + 1;
          break;
        end;
      end;

      if DCount < FFieldNum then
        // No such Field Number
        Key := EMPTYSTR
      else
      begin
        Tmp := copy(Key,DPos,4096);
        DPos := pos(FDelimiter,Tmp);
        if DPos = 0 then
          Key := Tmp
        else
          Key := copy(Tmp,1,DPos - 1);
       end;
    end;

  // Resolve Options
  if FEvalNumeric then
  begin
    Key := trim(Key);
    // Strip any commas
    for i := length(Key) downto 1 do
      if Key[i] = ',' then delete(Key,i,1);
    try
      Numvar := StrToFloat(Key);
    except
      Numvar := 0.0;
    end;
    Key := FormatFloat('############0.000000',Numvar);
    // Leftpad num string
    Key := StringOfChar('0',20 - length(Key)) + Key;
  end;

  // Ignores N/A for Numeric and DateTime
  if not FEvalNumeric and not FEvalDateTime then
  begin
    if FIgnoreBlank then Key := trim(Key);
    if FIgnoreCase then Key := UpperCase(Key);
  end;

  Result := Key;
end;

// ==============================================
// INTERNAL CALL
// Recursive STRING quick sort routine ASCENDING.
// ==============================================

procedure TSuperSort.QuickSortStrA(SL : TStrings);

  procedure Sort(l,r : integer);
  var
    i, j : integer;
    x, Tmp : string;
  begin
    i := l;
    j := r;
    x := GetKeyString(SL[(l + r) div 2]);

    repeat
      while GetKeyString(SL[i]) < x do
        inc(i);
      while x  < GetKeyString(SL[j]) do 
        dec(j);
      if i <= j then 
      begin
        Tmp := SL[j];
        SL[j] := SL[i];
        SL[i] := Tmp;
        inc(i);
        dec(j);
      end;
    until i > j;

    if l < j then
      Sort(l,j);
    if i < r then
      Sort(i,r);
  end;

begin
  if SL.Count > 0 then 
  begin
    SL.BeginUpdate;
    Sort(0,SL.Count - 1);
    SL.EndUpdate;
  end;
end;

// ==============================================
// INTERNAL CALL
// Recursive STRING quick sort routine DECENDING
// ==============================================

procedure TSuperSort.QuickSortStrD(SL : TStrings);

  procedure Sort(l,r : integer);
  var 
    i, j : integer;
    x, Tmp : string;
  begin
    i := l;
    j := r;
    x := GetKeyString(SL[(l + r) div 2]);

    repeat
      while GetKeyString(SL[i]) > x do
        inc(i);
      while x  > GetKeyString(SL[j]) do
        dec(j);
      if i <= j then  
      begin
        Tmp := SL[j];
        SL[j] := SL[i];
        SL[i] := Tmp;
        inc(i);
        dec(j);
      end;
    until i > j;

    if l < j then
      Sort(l,j);
    if i < r then 
      Sort(i,r);
  end;

begin
  if SL.Count > 0 then
  begin
    SL.BeginUpdate;
    Sort(0,SL.Count - 1);
    SL.EndUpdate;
  end;
end;

// ====================
// Sort a stringlist
// ====================

procedure TSuperSort.SortStrings(StringList : TStrings;
  Switches : array of string; Options : TSuperSortOptionSet = []);
var
  StartTime : TDateTime;
begin
  StartTime := Now;
  FDescending := (srtDescending in Options);
  FIgnoreCase := (srtIgnoreCase in Options);
  FIgnoreBlank := (srtIgnoreBlank in Options);
  FEvalNumeric := (srtEvalNumeric in Options);
  ResolveSwitches(Switches);

  if FDescending then
    QuickSortStrD(StringList)
  else
    QuickSortStrA(StringList);

  FSortTime := Now - StartTime;
end;

end.