2

Delphi でコードを記述して、デバイスに接続されている com ポートを開始すると、エラーが発生access violation at address 0x0000します。コードは次のとおりです。

unit Test_Cam;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TByteArr = array of byte;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;



    procedure Button1Click(Sender: TObject);
    procedure Doconnect;
    procedure CamOpen;
    Function StrToByte(const Value: String): TByteArr;
  private
    { Private declarations }


  public
  published
    property ObjectMenuItem;
    { Public declarations }
  end;
  TconfigPort = record
    BaudRate:Integer; // baud rate
    ByteSize:Integer; // number of bits/byte, 4-8
    Parity:Integer; // 0-4=no,odd,even,mark,space
    StopBits:Integer; // 0,1,2 = 1, 1.5, 2
    fOutxCtsFlow:Integer; // CTS Flow Control
  end;

  TPROGRESS_FUNC = procedure (blocks_total,blocks_done:Integer) of Object;

var
  Form1: TForm1;

  Function MetrocomEnterImageUpl(nport:Integer):Boolean; external 'metrocom.dll';
  procedure MetrocomAcquireFullFrame(nport:Integer); external 'metrocom.dll';


  Function MetrocomUploadJpeg(nPort:Integer; PROGRESS_FUNC:Tprogress_func; szFileName:string; nSubsampling:integer):Boolean; external 'metrocom.dll';
  Function MetrocomExitImageUpl(nPort:Integer):Boolean; external 'metrocom.dll';
  Function MetrocomInitCommunication(nPort:Integer; COMMPORTCONFIG:TconfigPort):Boolean; external 'metrocom.dll';
  Function MetrocomEndCommunication(nPort:Integer):Boolean; external 'metrocom.dll';
  Function camSetImageCompression(cam_handle:Integer; quality:Integer; method:Integer):Integer; external 'Camlib.dll';
  Function camSetCenteredWOI(cam_handle:Integer;img_width:Integer;img_height:Integer):Integer; external 'Camlib.dll';
  Function camInit(dev_interface:Integer):Integer; external 'Camlib.dll';
  Function camOpenEx2(device_name:TByteArr;ctl_bus_name:Byte;Var p_dev_type:Integer; ctl_bus_type:integer; camera_type:integer;dev_bus_type:Integer):Integer; external 'Camlib.dll';
  Function camClose(cam_handle:Integer):Integer; external 'Camlib.dll';
  Function camFree:Integer; external 'Camlib.dll';
  Function camGetOperatingMode(cam_handle:Integer; var mode:Integer):Integer; external 'Camlib.dll';

var
  Config_port: TconfigPort;
  m_bConnect:Boolean = false;
  m_nPort,m_nInit,nPort,i,j,m_camHandle:integer;
  nDeviceType:Integer = 0;
  device_name:string;
  szDeviceName:TByteArr;

implementation

{$R *.dfm}

function TForm1.StrToByte(const Value: String): TByteArr;
var
    I: integer;
begin
    SetLength(Result, Length(Value));
    for I := 0 to Length(Value) - 1 do
        Result[I] := ord(Value[I + 1]) ;
end;

procedure Tform1.DoConnect;
begin
 m_nPort := StrToInt(ComboBox1.Text) - 1;
 Config_port.BaudRate := 9600;
 Config_port.ByteSize := 8;
 Config_port.Parity := 0;
 Config_port.StopBits := 0;
 m_bConnect := MetrocomInitCommunication(m_nPort , Config_port);
end;

procedure TForm1.CamOpen;
begin
 m_nInit := camInit(0);
 if m_nInit < 0  then
    ShowMessage('Fail to camInit.');
 nPort := m_nPort + 1;
 device_name := 'COM' + IntToStr(nPort) + ' baud=' + IntToStr(Config_port.BaudRate) + ' parity=' + IntToStr(Config_port.Parity) + ' data=' + IntToStr(Config_port.ByteSize) + ' stop=' + IntToStr(Config_port.StopBits);
 szDeviceName := strtobyte(device_name);
 for i := 0 to 4 do
  begin
   for j := 0 to 4 do
    begin
     m_camHandle := camOpenEx2(szDeviceName, 0 ,  nDeviceType, 0, 1, 0);
     if m_camHandle < 0 then break;
    end;
   if m_camHandle < 0 then break;
  end;

end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 DoConnect;
 CamOpen;
 camSetImageCompression(m_camHandle, 30, 0);
 camSetCenteredWOI(m_camHandle, 500, 220);

end;

end.

DLL ファイルのドキュメントは次のとおりです。

MetrocomInitCommunication
Purpose:
Open the port for communication and set up the ports parameters. The communication parameters only
matter when a real COM port is used  for either USB or Bluetooth virtual COM ports these settings are
ignored.
C/C++:
BOOL MetrocomInitCommunication(int i_port, COMMPORTCONFIG * p_config);
Visual Basic:
Declare Function MetrocomInitCommunication Lib "metrocom.dll" _ 
    (ByVal i_port As Long, ByRef config As COMMPORTCONFIG) As Long 
Parameters:
i_port - [in] Communication port number (0 for COM1, 1 for COM2, etc.)
p_config - [in] Port configuration structure  this parameter sets baud rate and other port settings to be
used during normal communication (not during image upload)
Return value:
1 if the parameters were set successfully and the port was opened, 0 otherwise.
4

1 に答える 1

3

インポートされた関数の呼び出し規約が正しくありません。呼び出し規約を指定しなかったため、デフォルトの登録規約が使用されます。ドキュメントを参照して、どの呼び出し規約が使用されているかを確認してください。指定した VB6 宣言は stdcall を使用しているため、そこに私のお金があります。すべての VB6 インポートは stdcall です。ヘッダーを変換するときは、常に呼び出し規約が正しく指定されていることを確認してください

相互運用性にさらに多くの問題があることを修正した後。オブジェクトの使用は明らかに間違っています。C++ ライブラリはそれを実装しません。また、Delphi 文字列の使用も間違っています。文字列は、ヌル終了文字配列へのポインターである C 文字列として渡される可能性があります。そして、構造体はおそらく値ではなく参照によって渡されます。

問題の関数については、C++ 宣言により、構造体が参照によって渡されることが明確になります。

関数は次のように宣言する必要があります。

function MetrocomInitCommunication(
    nPort: Integer; 
    const config: TConfigPort
): BOOL; stdcall; external 'metrocom.dll';
于 2013-09-23T20:25:18.980 に答える