Пытаюсь записать в COM порт.... Нихрена не выходит.....

← →
Zilog © (2003-08-08 16:42) [0]

Пытался это сделать разными путями, но вот кусок кода, который публиковался как рабочий - тоже компилироваться не хочет....
Мож кто сталкивался??

function Write (var Buf; size : word) : integer;
var p : pointer; i : integer;
begin
p := @Buf;
result := 0;
while size >0 do begin
if not WriteFile(Handle, p^, 1, i, nil) then exit;
( result, i) Пытался это сделать разными путями, но вот кусок кода, который публиковался как рабочий - тоже компилироваться не хочет....
Мож кто сталкивался??

function Write (var Buf; size : word) : integer;
var p : pointer; i : integer;
begin
p := @Buf;
result := 0;
while size >0 do begin
if not WriteFile(Handle, p^, 1, i, nil) then exit;
^^грит тут обшипка, типа несовпадение типов

inc(result, i); inc(integer(p)); dec(size);
Application.ProcessMessages;
end;
end;

Вобщем вся проблема, как ни пытался упирается в WriteFile....

← →
Serginio845 (2003-08-08 16:55) [1]

if not WriteFile(Handle, p, 1, i, nil) then exit;

← →
Zilog © (2003-08-08 17:00) [2]

такая же ошибка в том же месте....

← →
MBo © (2003-08-08 17:04) [3]

p:Pbyte;

← →
Zilog © (2003-08-08 17:05) [4]

такая же ошибка в том же месте....

← →
Zilog © (2003-08-08 17:06) [5]

Нихрена не понимаю что происходит.... прям беда какая-то....

function Write (var Buf; size : word) : integer;
var
p : pointer;
i: cardinal;
begin
p := @Buf;
result := 0;
while size >0 do begin
if not WriteFile(Handle, p^, 1, i, nil) then exit;
inc(result, i);
inc(integer(p));
( size) function Write (var Buf; size : word) : integer;
var
p : pointer;
i: cardinal;
begin
p := @Buf;
result := 0;
while size >0 do begin
if not WriteFile(Handle, p^, 1, i, nil) then exit;
inc(result, i);
inc(integer(p));
dec(size);
Application.ProcessMessages;
end;
end;

← →
Serginio568 (2003-08-08 17:28) [7]

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

Пытаюсь записать в COM порт.... Нихрена не выходит..... Найти похожие ветки