Delphi XE5からの呼び出し時に、ユニコード前コンパイルされたDLLがアクセス違反を与える

Question

サードパーティの企業から提供されたDLLがあり、Delphi 2007から呼び出されたときに正常に動作しました。次のコードは、DLLはDelphi（デルファイ）2007年に使用されたかのサンプルです：ここで

Procedure XC_eXpressLink(hHandle: Hwnd; Parameters: pChar; Result: pChar); stdcall; external 'XCClient.dll'; 

は、プロシージャが呼び出された方法です。

procedure TForm1.Button1Click(Sender: TObject); 
    var Result: array[0..2000] of char; 
    sParams: String; 
begin 
    sParams := RemoveCRLF(memoParameters.Text); //Remove TMemo CR/LF 
    XC_eXpressLink(Handle, pChar(sParams), Result); 
    memoResults.Text := String(Result); 
end; 

私は、DLLがでコンパイルされたかわからないんだけど、私はそれがansiとunicodeを期待していると仮定しています。次のようにデルファイXE5にANSIにコードを変換した後、コードは次のようになる：

Procedure XC_eXpressLink(hHandle: Hwnd; Parameters: pAnsiChar; Result: pAnsiChar); stdcall; external 'XCClient.dll'; 

と

procedure TForm1.Button1Click(Sender: TObject); 
    var Result: array[0..2000] of Ansichar; 
    sParams: AnsiString; 
begin 
    sParams := RemoveCRLF(memoParameters.Text); //Remove TMemo CR/LF 
    XC_eXpressLink(Handle, pAnsiChar(sParams), Result); 
    memoResults.Text := AnsiString(Result); 
end; 

memoParameters DLLプロシージャのパラメータを提供する形にTMemoオブジェクトです。 RemoveCRLFは、memoParametersからのキャリッジリターンと改行を削除する関数です。 MemoResultsは、dllプロシージャの戻り値を提供するフォーム上の別のTMemoです。

変更されたコードがDelphi XE5で実行されるとアクセス違反が発生します。私はansiを使用するためにすべてのパラメータを変更したので、dllは以前と同じパラメータフォーマットを取得すべきではありませんか？私は何か間違っているのですか？この古いコンパイル済みDLLをDelphi XE5で動作させることはできますか？

Answer 1

X-Charge（クレジットカードの統合用）用のDLLを提供するOpenEdgeに問い合わせました。この問題を解決するには、ハンドルの値がであり、dllに送信されるパラメータリストに/IGNOREHANDLEPARAMETERを追加する必要があります。このパラメータは、完全版XC8.1.1.6.exeのインストール以降でのみ機能します。

procedure TForm1.Button1Click(Sender: TObject); 
    var Result: array[0..2000] of Ansichar; 
    sParams: AnsiString; 
begin 
    sParams := RemoveCRLF(memoParameters.Text); //Remove TMemo CR/LF 
    XC_eXpressLink(0, pAnsiChar(sParams), Result); 
    memoResults.Text := AnsiString(Result); 
end;