0

私は小さなdllに取り組んでおり、それにTComportコンポーネントを使用しています。このdllには、いくつかのパラメーターを取り、文字を返す関数があります。プロジェクトに Datamodule を追加し、TComport と TComDataPacket を配置します。すべてうまくいきますが、TComport はイベントをキャッチできません。たとえば、TComDataPacket コンポーネントの OnPacket イベントでデバイスから文字列を取得したいとします。私の悪い英語についてお詫び申し上げます。

library VoteService;
uses
  System.SysUtils,
  System.Classes,
  Extra in 'Extra\Extra.pas',
  Un_Dm in 'DataModule\Un_Dm.pas' {DM: TDataModule},
  CPort in 'CPort\CPort.pas';


var ComPort1 : TComPort;
    ComDataPacket1 : TComDataPacket;

{$R *.res}

function getVote(personnelCode:Pchar; docCode: Pchar):Integer; stdcall;
var
  intStatus, intIdentifier: Integer;
  strStatus_message: string;
  Port: TPort;
  StopBits: TStopBits;
  Parity: TParityBits;
  DataBits: TDataBits;
  BaudRate: TBaudRate;
  i, j : Integer;
begin
  Answer := 0;
  SerialPortSetting(Port, StopBits, Parity, DataBits, BaudRate);
  dm := TDM.Create(nil);
  try
  DM.ComPort1.Port := Port;
  DM.ComPort1.StopBits := StopBits;
  DM.ComPort1.Parity.Bits := Parity;
  DM.ComPort1.DataBits := DataBits;
  DM.ComPort1.BaudRate := BaudRate;

  DM.ComPort1.Connected := True;
  DM.ComPort1.WriteStr('*');
  DM.ComPort1.Close;
  DM.ComPort1.Open;
  for i  := 0 to 5 do
  begin
    j := 0;
    while Answer = 0 do
    begin
      //setAnswer;
    end;
    Result := Answer;
  end;
  finally
    dm.Free;
  end;
end;

exports
  getVote;

begin

end.
4

1 に答える 1

0

私の問題は解決しました。実際には問題は DataModule にはありませんでしたが、Dll プロジェクトで ComPort イベントをキャッチできませんでした。最終的に、ループを使用して、期待した値を取得できるまで継続的にチェックする必要があることがわかりました。ここに正しいコードを入れました
。ありがとうございました。

library VoteService;

uses
  System.SysUtils, DateUtils,
  System.Classes,
  Extra in 'Extra\Extra.pas',
  Un_Dm in 'DataModule\Un_Dm.pas' {DM: TDataModule},
  CPort in 'CPort\CPort.pas';

{$R *.res}

function getVote(personnelCode:Pchar; docCode: Pchar; waitSecound : Integer):Integer;   stdcall;
var
  intStatus, intIdentifier: Integer;
  strStatus_message: string;
  Port: TPort;
  StopBits: TStopBits;
  Parity: TParityBits;
  DataBits: TDataBits;
  BaudRate: TBaudRate;
  s : string;
  tmpTime : TTime;
begin
  Answer := 0;
  SerialPortSetting(Port, StopBits, Parity, DataBits, BaudRate);
  dm := TDM.Create(nil);
  try
    DM.ComPort1.Port := Port;
    DM.ComPort1.StopBits := StopBits;
    DM.ComPort1.Parity.Bits := Parity;
    DM.ComPort1.DataBits := DataBits;
    DM.ComPort1.BaudRate := BaudRate;
    DM.ComPort1.Connected := True;
    DM.ComPort1.WriteStr('*');
    DM.ComPort1.Close;
    DM.ComPort1.Open;
    tmpTime := Now;
    s := '';
    repeat DM.ComPort1.ReadStr(s, len);
    until (SecondsBetween(Now, tmpTime) > waitSecound) or (length(s)>0);
    if s = '' then
       Result := 0
    else
       Result := StrToInt(s);
  finally
    dm.Free;
  end;
end;
exports
  getVote;

begin

end.
于 2014-01-05T13:35:14.033 に答える