Кто знает, почему при выгрузке ДИНАМИЧЕСКОГО МОССИВА в COM port,

← →
Лёша (2003-04-25 16:36) [0]

в порт вместо данных прёт кача мусора?

← →
MBo © (2003-04-25 16:39) [1]

код?

← →
Digitman © (2003-04-25 16:40) [2]

порт-то здесь причем ? скорей всего, фактические параметры, подставляемые тобой в ф-цию "выгрузки" не соответствуют формальным по типу ... это достаточно распространенная ошибка при передаче в кач-ве факт.параметра дин.массива (та, где требуется адрес буфера)

← →
Лёша (2003-04-25 17:02) [3]

пример №1:
procedure TForm1.Button9Click(Sender: TObject); var a:array of byte; Bytes:dword; p:pointer; begin hComm:=CreateFile( PChar(Format("COM%1d", [1])), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); SetLength(a,512); FillChar(a, SizeOf(a), $00); WriteFile(hComm, a, 512, Bytes, nil); CloseHandle(hComm); end;
пример №2:
procedure TForm1.Button9Click(Sender: TObject); var a:array of byte; Bytes:dword; p:pointer; begin hComm:=CreateFile( PChar(Format("COM%1d", [1])), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); SetLength(a,512); FillChar(a, SizeOf(a), $00); p:= @a; WriteFile(hComm, p, 512, Bytes, nil); CloseHandle(hComm); end;

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

← →
MBo © (2003-04-25 17:11) [4]

WriteFile(hComm, a[0], 512, Bytes, nil);

← →
Fiend © (2003-04-25 17:11) [5]

всё уже сказали (Дигитмэн) надо адрес буфера давать
р^

← →
Zz_ (2003-04-25 17:11) [6]

Почуствуй разницу (из windows.pas)

function WriteFile(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD;
var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;

function WriteFileEx(hFile: THandle; lpBuffer: Pointer; nNumberOfBytesToWrite: DWORD;
const lpOverlapped: TOverlapped; lpCompletionRoutine: FARPROC): BOOL; stdcall;

Из WinApiHepl

BOOL WriteFile(

HANDLE hFile,
LPCVOID lpBuffer,file
DWORD nNumberOfBytesToWrite,
LPDWORD lpNumberOfBytesWritten,
LPOVERLAPPED lpOverlapped
);

BOOL WriteFileEx(

HANDLE hFile,
LPCVOID lpBuffer,
DWORD nNumberOfBytesToWrite,
LPOVERLAPPED lpOverlapped,
LPOVERLAPPED_COMPLETION_ROUTINE lpCompletionRoutine
);

уроды

и FillChar(a[0], Length(a)*SizeOf(byte), $00);

← →
Лёша (2003-04-25 18:06) [8]

ВСЕМ С П А С И Б О!
Особенная благодарность MBo.
Вроде сдвинулось с места!

Кто знает, почему при выгрузке ДИНАМИЧЕСКОГО МОССИВА в COM port, Найти похожие ветки