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

Вниз

проблемы при работе с com портом   Найти похожие ветки 

 
DelphiNew ©   (2003-10-22 15:12) [0]

Люди помогите пожалуйста есть такая процедурка
procedure TForm1.CreatPort;
Begin
CommHandle := CreateFile("COM2",GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,0);
SetCommMask(CommHandle,EV_RXFLAG or EV_BREAK);

GetCommState(CommHandle,DCB);
DCB.BaudRate:=CBR_9600;
DCB.Parity:=NOPARITY;
DCB.ByteSize:=8;
DCB.StopBits:=OneStopBit;
//DCB.EvtChar:=chr(13);
SetupComm (CommHandle, 256, 256);
SetCommState(CommHandle,DCB);
CommThread := CreateThread(nil,0,@ReadComm,nil,0,ThreadID);
end;
на строке CommThread:=... выдаёт ошибку variable required
не могу понять в чом проблема


 
DelphiNew ©   (2003-10-23 11:03) [1]

не ужели ни кто не может помочь7?????


 
Reindeer Moss Eater ©   (2003-10-23 11:07) [2]

Последний параметр должен быть переменная.
Что такое ThreadID ?


 
DelphiNew ©   (2003-10-23 11:38) [3]

Это ID потока по документации последним должен стоять именно он


 
Reindeer Moss Eater ©   (2003-10-23 11:40) [4]

ДЕКЛАРАЦИЮ ThreadID покажи. Что должно стоять я и сам знаю.


 
DelphiNew ©   (2003-10-23 12:08) [5]

ThreadID:dword;


 
Reindeer Moss Eater ©   (2003-10-23 12:18) [6]

ReadComm ?


 
Reindeer Moss Eater ©   (2003-10-23 12:22) [7]

Скорее всего твоя ReadComm - метод класса.


 
Reindeer Moss Eater ©   (2003-10-23 12:27) [8]

А требуется :
function(AData:Pointer) : DWORD;


 
DelphiNew ©   (2003-10-23 12:33) [9]

type
......
procedure CreatPort;
procedure READCOMM;
procedure Button1Click(Sender: TObject);
.......
procedure ReadComm;
var
Resive:array [0..255] of char;
Begin
while true do
TransMask:=0;
WaitCommEvent(CommHandle,TransMask,@Ovr);
if (TransMask and EV_RXCHAR)=EV_RXCHAR then
begin
ClearCommError(CommHandle,Errs,@Stat);
Kols := Stat.cbInQue;
ReadFile(CommHandle,Resive,Kols,Kols,@Ovr);
Form1.Edit1.Text:=string(Resive);
end;
End;


 
Reindeer Moss Eater ©   (2003-10-23 12:38) [10]

[7]
[8]


 
DelphiNew ©   (2003-10-23 12:46) [11]

что это такое?


 
Reindeer Moss Eater ©   (2003-10-23 13:02) [12]

Это
Reindeer Moss Eater © (23.10.03 12:22) [7]
и
Reindeer Moss Eater © (23.10.03 12:27) [8]



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

Текущий архив: 2003.12.30;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.025 c
1-99628
Moro
2003-12-17 00:19
2003.12.30
Мультипоточность


3-99474
Chlavik
2003-12-02 20:59
2003.12.30
База данных на Delphi.. Можно ли обойтись без BDE ?


14-99788
ИдиотЪ
2003-12-05 08:55
2003.12.30
резонанс


1-99620
Kvorubin
2003-12-16 12:42
2003.12.30
Как убрать кнопочку с нижней полосы ???


11-99511
newer
2003-04-09 03:16
2003.12.30
KOL и окна