Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

Народ кто юзал 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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.011 c
14-71383
Vitaly
2002-07-29 10:41
2002.08.22
Нужен Turbo Debugger для DOS а.


1-71237
Groove
2002-08-11 15:21
2002.08.22
help


1-71258
oguz
2002-08-12 10:12
2002.08.22
Как сделать ссылку на сайт(e-mail) в Delphi


3-70957
dimonf
2002-08-04 12:51
2002.08.22
Подскажите почему у меня не работает база данных под Windows XP?


3-71063
X-jedy
2002-08-01 13:40
2002.08.22
параметры в ADOQuery :(