| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Zilog ©   (2003-08-08 16:42:00) 

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

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....

---

Serginio568   (2003-08-08 17:28:00) [1]

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

---

MBo   (2003-08-08 17:22:00) [2]

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;

---

Zilog   (2003-08-08 17:06:00) [3]

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

---

Zilog   (2003-08-08 17:05:00) [4]

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

---

MBo   (2003-08-08 17:04:00) [5]

p:Pbyte;

---

Zilog   (2003-08-08 17:00:00) [6]

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

---

Serginio845   (2003-08-08 16:55:00) [7]

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

---

Наверх