Форум: "Система";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Вниз

Народ кто юзал TCommPortDriver подскажите   Найти похожие ветки 

← →
ol   (2002-06-06 13:33) [0]

Не могу разобраться как читать данные из сом-порта
функция такая
function ReadData( DataPtr: pchar; MaxDataSize: DWORD ): DWORD;
конкретно не могу понять че нужно подставлять вместо DataPtr
Мож кто примерчик бросит

---

← →
doomin   (2002-06-10 12:54) [1]

А зачем так сложно? Сядь на событие OnReceiveData и обрабатывай приходящие данные. Там приходит такой же указатель на данные и его длина. А дальше можно двумя способами:
procedure TForm1.CommPortDriver1ReceivePacket(Sender: TObject;
Packet: Pointer; DataSize: Cardinal);
type
AA = array[1..255] of char;
var a: ShortString;
i : integer;
begin
a:="";
for i:=1 to DataSize-1 do
a:=a+AA(Packet^)[i];
Edit1.Text:=a;
end;

или второй, если сделать большую паузу между опросами и выгребать помногу:


var
ch: Char;
p: PChar;
i, n: Integer;
begin
(Sender as TCommPortDriver).PausePolling;
try
p := DataPtr;
for i := 1 to DataSize do begin
ch := p^;
//здесь можно сцеплять символы как угодно
Inc(p);
end;
finally
(Sender as TCommPortDriver).ContinuePolling;
end;


---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c