0

Windows CE 6デバイス（Motorola MC3100スキャナーターミナル）をプログラミングしています。LazarusFPCを使用してコンパイルします。

3週間の作業の後、シリアルポートから出力が文字化けする理由を誰かが提案してくれることを期待して、しぶしぶここに投稿します。

私が使用しているコードは以下に掲載されています。これは私がいくつかの場所から見つけた標準コードです。

OpenPortは正常に動作します。

SendString（'ABCDEF'）を使用して文字列を送信すると、次のようなPCシリアルポートへの入力が文字化けします。

4 [＃131] [＃26] [＃0] [＃0] [＃0] [＃0]（括弧で囲まれたデータは、印刷できない文字のASCIIコードであることを示します）

明らかに、ポートOKに接続しており、正しい文字数（7）を送信しています。

ボーレート、データビット、パリティ、ストップビットのすべての組み合わせを喜んで試しました。また、別のPCなどでケーブルを変更してみました。

DCBに何か他のものを設定する必要があるのでしょうか？

どんな助けや提案も大歓迎です。

unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, 
Windows, LResources;

type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
function OpenPort(ComPort:String;BaudRate,ByteSize,Parity,StopBits:integer):String;
procedure SendString(str:String);

private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

cc:TCOMMCONFIG;
Connected:Boolean;

implementation
{$R *.lfm}
var F: TextFile;
var hComm: THandle;
str: String;
lrc: LongWord;

{ TForm1 }  
function  
OpenPort(ComPort:String;BaudRate,ByteSize,Parity,StopBits:integer):String;

var
cc:TCOMMCONFIG;
SWide:WideString;
Port:LPCWSTR;

begin
SWide:=ComPort;
Port:=PWideChar(SWide);
result:='';
if (1=1) then begin
Connected:=False;
hComm:=CreateFile(Port, GENERIC_READ or GENERIC_WRITE,0, nil,OPEN_EXISTING,0,0);
if (hComm = INVALID_HANDLE_VALUE) then begin
ShowMessage('Fail to Open');
exit;

end;
GetCommState(hComm,cc.dcb);
cc.dcb.BaudRate:=BaudRate;
cc.dcb.ByteSize:=ByteSize;
cc.dcb.Parity:=Parity;
cc.dcb.StopBits:=StopBits;

if not SetCommState(hComm, cc.dcb) then begin
result:='SetCommState Error!';
CloseHandle(hComm);
exit;
end;
Connected:=True;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenPort('COM1:',9600,8,0,0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SendString('ABCDEFG');
end;

procedure TForm1.SendString(str:String);
var
lrc:LongWord;
begin
if (hComm=0) then exit;
try
if not PurgeComm(hComm, PURGE_TXABORT or PURGE_TXCLEAR) then
raise Exception.Create('Unable to purge com: ');
except
Exit;
end;
WriteFile(hComm,str,Length(str), lrc, nil);
end;

end.
4

1 に答える 1

2

これに対する答えを見つけました。

WriteFile（hComm、str、Length（str）、lrc、nil）;

「str」パラメータは、実際には文字列自体ではなく、文字列へのポインタでした。

これに変更すると動作します。

WriteFile（hComm、str [1]、Length（str）、lrc、nil）;

于 2012-09-27T06:15:28.787 に答える