質問: OpenCVをどのようにUnicodeバージョンのDelphiで使用できますか? 私は [DelphiのOpenCv という名前のオープンソースプロジェクトを編集しています。 a>は、Delphi 6、Delphi 2009、Delphi xe2でうまくコンパイルできます。](https://delphimagic.blogspot.com/2011/08/reconocimiento-de-caras-con-delphi.html) [Delphi 6のコンパイルで互換性のないもの(例: `Application.MainFormOnTaskbar:= True;` )を削除しました。](https://delphimagic.blogspot.com/2011/08/reconocimiento-de-caras-con-delphi.html) [実行時にd6アプリはエラーなく正常に動作しますが、残りはうまくコンパイルされますが、 `cvopencv.dll` を呼び出すときに実行時エラーが発生します。 元のプロジェクトは、うまく動作するDelphi 2007でコンパイルされたスペイン語のプロジェクトです。 d6 exeでは、私は??????エラーが発生したときに `cvopencv.dll` を呼び出すときにUNICODEの問題を意味するスペイン語で表示されるものがあります。 このプロジェクトをDelphi 2009以上で動作させるには何ができますか(まだd2009はうまくコンパイルされています) =======================================================================================================================================デビッド ``` procedure TForm1.Button2Click(Sender: TObject); var file1 : PAnsiChar;//"haarcascade_frontalface_alt.xml"; file2 : PAnsiChar; //"haarcascade_eye.xml"; file3 : PAnsiChar; //"haarcascade_upperbody.xml"; SourceFileName : AnsiString; StorageType : Integer; ImSize : CvSize; begin memo1.Lines.Clear; GetMem(Storage, SizeOf(CvMemStorage)); SourceFileName:=Edit1.Text; StorageType:=0; storage:=nil; storage :=cvCreateMemStorage(storageType); file1 := PAnsiChar(ExtractFilePath(Application.ExeName)+'haarcascade_frontalface_alt.xml'); file2 := PAnsiChar(ExtractFilePath(Application.ExeName)+'haarcascade_eye.xml'); file3 := PAnsiChar(ExtractFilePath(Application.ExeName)+'haarcascade_upperbody.xml'); cascade_f := cvLoad(file1, nil, nil, nil); cascade_e := cvLoad(file2, nil, nil, nil); cascade_ub := cvLoad(file3, nil, nil, nil); if cascade_f=nil then ShowMessage('Íå ìîãó çàãðóçèòü êàñêàä Face'); if cascade_e=nil then ShowMessage('Íå ìîãó çàãðóçèòü êàñêàä Eye'); if cascade_ub=nil then ShowMessage('Íå ìîãó çàãðóçèòü êàñêàä UpperBody'); img := cvLoadImage(PAnsiChar(AnsiString(SourceFileName)), 1); cvNamedWindow((PAnsiChar(AnsiString(Edit1.Text))), 1); detectEyes(img); cvShowImage(PAnsiChar(AnsiString(SourceFileName)), img); end; end. ```](https://delphimagic.blogspot.com/2011/08/reconocimiento-de-caras-con-delphi.html)
回答: See the project - Delphi-OpenCV on github (OpenCV version - 2.4.6, environment - Delphi XE2-XE4). Translation of OpenCV library header files in Delphi: