Delphi 7 ComPort library

[sarsen]

Время доброе!
Народ кто имел опыт работы с библиотекой ComPort library https://sourceforge.net/projects/comport/
Не могу сделать логирование с порта, что бы , что пришло сохранять в .txt ну не важно в общем в файл, хоть без расширения. Пмогите кто имеет опыт.
Прикладываю терминал ну и эмулятор в Proteus.

[sarsen]

Решено!

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
Buf: String
begin
ComPort1.ReadStr(Buf, Count);
Memo1.Text:=Memo1.Text + Buf;
end;

И не забыть в евентах врубить RxChar.

[kutani]

...на больших скоростях и малых таймаутах получите торможение вашего приложения, пропуски данных и отжирание памяти.

Данные пихать в визуальный VCL компонент имеет смысл лишь при очень редком обмене. Да и писать в файл из него опять же не лучший вариант. Если уж вы решили сразу работать с символьными данными, то лучше писать файловым потоком с немонопольным доступом, а в мемо визуализировать лишь то что вам нужно из него.

var mem: tfilestream;


procedure TForm1.FormCreate(Sender: TObject);
begin
 // создаем
 mem:= tfilestream.Create('log.txt', fmcreate);
 freeandnil(mem);

 // открываем для записи-чтения и убираем монопольный доступ
 mem:= tfilestream.Create('log.txt', fmOpenReadWrite or fmShareDenyNone);
end;


procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
Buf: String;
begin
 ComPort1.ReadStr(Buf, Count);
 //Memo1.Text:=Memo1.Text + Buf; 

 mem.Seek(0, soFromEnd); // дозапись с конца
 mem.Write(pointer(buf)^, {length(buf)} count);

end;