[Harima Hario]

Пишу программу, под определенное устройство, которое в ПЗУ хранит информацию в формата:
…
$GPRMC,101072.00,A,5029.0728,N,03028.7404,E,000.0, 000.0,230111,02.2,E,A*0D
…
Для получения данных необходимо отправить команду «1». Полученное сохранить в *.txt файл.
Добился того, что программа отправляет команду, считывает информацию и записывает в текстовый файл, проблема в том как она её считывает и записывает…

В результате работы моей программы в файл записывается следующее:
(это маленький кусочек из текстового файла, я предполагаю, что это одна запись в формате выше)

Код:

???????????????????°?G??
???????????????????°?G??
??T 

Запускаю через hyper terminal – все нормально работает…
Даже не знаю в чем проблема, такое впечатление, что где-то что-то нужно инвертировать…
Код программы:

Код:

unit Main;

interface

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

type
  TMainForm = class(TForm)
    OpenPort: TButton;
    ClosePort: TButton;
    SendData: TButton;
    ReadData: TButton;
    PortStateLabel: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    nToReadLabel: TLabel;
    nReadLabel: TLabel;
    Label3: TLabel;
    RcDataLabel: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    bRefreshComPrt: TButton;
    cbCOMPrts: TComboBox;
    cbSpeed: TComboBox;
    procedure OpenPortClick(Sender: TObject);
    procedure ClosePortClick(Sender: TObject);
    procedure SendDataClick(Sender: TObject);
    procedure ReadDataClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bRefreshComPrtClick(Sender: TObject);
    procedure RefreshComPrt;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Port:THandle;
  end;

var
  MainForm: TMainForm;
  ReadThr:TReadThread;


implementation

{$R *.dfm}

procedure TMainForm.OpenPortClick(Sender: TObject);
Var
 DCB:TDCB;    //структура, содержащая настройки порта
 CommTimeouts:TCommTimeouts;
begin
  Port:=CreateFile(
    pWideChar(cbCOMPrts.Text),    //открываем первый порт
    GENERIC_READ or GENERIC_WRITE,//открываем порт для чтения и записи
    0,                            //общий доступ к ресурсу запрещен, для портов всегда так
    nil,                          //атрибуты защиты, не используются и потому nil
    OPEN_EXISTING,                //атрибуты открытия, для портов OPEN_EXISTING
    FILE_ATTRIBUTE_NORMAL,         //для синхронной работы так
    0                           //хз что это, но должно быть так
  );
 if (port=INVALID_HANDLE_VALUE)  //если порт не окрылся
  then showmessage('Ошибочка вышла!') //то выводим сообщение об ошибке
  else POrtStateLabel.Caption:='Порт открыт';       //Если порт открылся, то пишем что открылся

  GetCommState(port, DCB);        //что бы не заполнять всю структуру самим, сначал считываем ее, потом поменяем нужные поля
  DCB.BaudRate:=StrToInt(cbSpeed.Text); // скорость обмена
  DCB.Parity:=NoParity;           // нет контроля четности
  DCB.ByteSize:=8;                //байт из восьми бит
  DCB.StopBits:=ONESTOPBIT;       //один стоповый бит
  SetCommState(port, DCB);        //записываем измененную структуру, для открытого порта

  GetCommTimeouts(Port, CommTimeouts); //получаем структуру CommTimeouts что бы не заполнять все вручную
  CommTimeouts.ReadIntervalTimeout :=MAXDWORD;  //функция ReadFile возвращает
  CommTimeouts.ReadTotalTimeoutMultiplier := 0; //немедленно все имеющиеся
  CommTimeouts.ReadTotalTimeoutConstant := 0;   //байты в приемном буфере
  CommTimeouts.WriteTotalTimeoutMultiplier := 0;//общий тайм-аут для
  CommTimeouts.WriteTotalTimeoutConstant := 0;  //операции записи не используется.
  SetCommTimeouts(Port, CommTimeouts); //записываем измененную структуру

end;

procedure TMainForm.RefreshComPrt;
var
  reg : TRegistry;
  ts : TStrings;
  i : integer;
begin
  cbCOMPrts.Items.Clear;
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('hardware\devicemap\serialcomm',
              false);
  ts := TStringList.Create;
  reg.GetValueNames(ts);
  for i := 0 to ts.Count -1 do begin
    cbCOMPrts.Items.Add(reg.ReadString(ts.Strings[i]));
  end;
  if cbCOMPrts.Items.Count>0 then
    cbCOMPrts.ItemIndex:=0;
  ts.Free;
  reg.CloseKey;
  reg.free;
end;


procedure TMainForm.bRefreshComPrtClick(Sender: TObject);
begin
  RefreshComPrt;
end;

procedure TMainForm.ClosePortClick(Sender: TObject);
begin
 if not CloseHandle(Port)                 //если порт  не закрылся
  then showmessage('Не закрылось')        //то пишем что он не закрылся
  else PortStateLabel.Caption:='Порт не открыт'   //если всетаки закрылся , то пишем, что закрылся :)
end;

procedure TMainForm.SendDataClick(Sender: TObject);
var
  TRBuf:PChar;    //буфер данных для передачи
  nToWrite:DWord; //число байт для записи
  nWrite:DWord;   //число записанных байт
begin
  TRBuf:='1';         //заполняем буфер данными
  nToWrite:=length(TRBuf)+1;        //число передаваемых байт
  WriteFile(port,TRBuf^,nToWrite,nWrite,nil); //собственно отпавляем данные
//  WriteFile(port,Edit1.Text[1],nToWrite,nWrite,nil); //собственно отпавляем данные
//  WriteFile(port,TRBuf[0],nToWrite,nWrite,nil); //собственно отпавляем данные
end;

procedure TMainForm.ReadDataClick(Sender: TObject);
Var
  RCBuf:PChar;        //Буфер данных для приема
  nToRead:Cardinal;   //Число байт для чтения
  ReadedBytes:integer; //число всего прочитанных байт
  nRead:Cardinal;     //Число прочитанных байт
  ComStat:TComStat;   //состояние порта
  Errs:Dword;
  Data:TStringList;  //прочитанные данные
begin
  ReadedBytes:=0;
  Data:=TStringList.Create;
  ClearCommError(POrt,Errs,@ComStat);       //считываем состояние порта
  nToRead:=ComStat.cbInQue;                 //считываем число байт для чтения из структуры
  nToReadLabel.Caption:=IntToStr(nToRead);  //выводим на форму число байт для чтения
  while ReadedBytes<nToRead do
  begin
    ReadFile(Port,RCBuf^,nToRead,nRead,nil);  //считываем данные
    nReadLabel.Caption:=IntToStr(nRead);      //выводим на форму число прочитанных байт
    ReadedBytes:=ReadedBytes+nRead;
    RcDataLabel.Caption:=RCBuf;
    Data.Add(RCBuf);
  end;
  Data.SaveToFile(ExtractFilePath(ParamStr(0))+'Output.txt');
  Data.Free;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  nToreadLabel.Caption:=''; //Очищаем метки
  nReadLabel.Caption:='';
  RcDataLabel.Caption:='';
  ReadThr:=TReadThread.Create(True);
  ReadThr.Priority:=tpNormal;
  ReadThr.FreeOnTerminate:=True;
  ReadThr.Start;
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
  RefreshComPrt;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//CloseHandle(Port)                 //закрываем порт
end;

end.

Надеюсь на вашу помощь, заранее спасибо.