Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

проблемы при работе с com портом [D7, Win95/98]

DelphiNew © (2003-10-22 15:12:00)

Люди помогите пожалуйста есть такая процедурка
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
не могу понять в чом проблема

Reindeer Moss Eater (2003-10-23 13:02:00) [1]

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

DelphiNew (2003-10-23 12:46:00) [2]

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

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

[7]
[8]

DelphiNew (2003-10-23 12:33:00) [4]

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:27:00) [5]

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

Reindeer Moss Eater (2003-10-23 12:22:00) [6]

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

Reindeer Moss Eater (2003-10-23 12:18:00) [7]

ReadComm ?

DelphiNew (2003-10-23 12:08:00) [8]

ThreadID:dword;

Reindeer Moss Eater (2003-10-23 11:40:00) [9]

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

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

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

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

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

DelphiNew (2003-10-23 11:03:00) [12]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »